fields.count hakkında

[rapsodim]

begin
sayac:=0;
satir:='';
assignfile(textdosya,'c:\deneme.txt');
rewrite(textdosya);
write(textdosya,transfer);
while not table2.eof do
begin
satir:='';
for sayac:=0 to table2.fields.count -1 do
begin
satir:=satir+table2.fields[sayac].asstring;
end;
table2.next;
writeln(textdosya,satir);

end;

closefile(textdosya);
şeklinde kod var.ben table lın 3.,4., ve 5. stunlarındakı alanları almak istiyorum.nasıl yapabilirim.tşkr ederim.

[naile]

Kod: Tümünü seç

for sayac:=0 to table2.fields.count -1 do 
begin 
satir:=satir+table2.fields[sayac].asstring; 
end; 

yerine

Kod: Tümünü seç

for sayac:=3 to 5 do 
begin 
satir:=satir+table2.fields[sayac].asstring; 
end; 

[freeman35]

yada

Kod: Tümünü seç

for sayac:=0 to table2.fields.count -1 do
begin
 if table2.fields[sayac].Filedname ='HedeHödö' then 
   satir:=satir+table2.fields[sayac].asstring;
end;

kolay gele