query format textfile

[koko134]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
     TextDosya:TextFile;
     i : Integer;
     Satir : String;
begin
     i := 0;
     Satir := '';
     AssignFile(TextDosya,'D:\KOKO.TXT');
     ReWrite(TextDosya);
     Query1.First;
     While not Query1.Eof do
     begin
          Satir := '';
          For i := 0 to Query1.Fields.Count -1 do
          begin
                Satir := Satir + Query1.Fields[i].Text + ' ';
                          End;
          Query1.Next;
          WriteLn(TextDosya, Satir);
     End;
     CloseFile(TextDosya);
end;

seklinde sorguyu texte atadım ama fieldslarda biraz değişiklik yapmak istiyorum,
mesela 6. fields ta c ve r gordugum yere artık f yazdırmak istiorum
if Query1.Fields[6].asstring:='C' or Query1.Fields[6].asstring:='R'
then Query1.Fields[6].asstring:='F'; gibi denemeler basarısız oldu ya dayerini yolunu ben beceremedim yardımcı olabilir misiniz ya da ornek uygulama kod falan varsa cok iyi olur
tskkur ederim...

[naile]

kodunuzu lütfen [ code] [ /code] tabı içinde yazınız, bu daha okunaklı olmasını sağlayacaktır.

[naile]

Sorunuzdan fieldın isminde mi yoksa değerinde mi değişiklik olduğunu tam anlayamadım. Ama eğer fieldın ismini değiştiryorsanız Fields verine FieldByName kullnabilirsiniz.

[mussimsek]

Lütfen sorunuzu ilgili başlığa devam edin, yeni başlık açmayın!