Code:
for i:=0 to IBTable.FieldsCount-1 do
RadiNesto(IBTable.Fields[i].FIeldName);
Ili mozda mislis na :
.....
Var Polja:TStrings;
begin
Polja:=TStringList.Create;
try
IBTable.Open;
IBTable.IBTable1.GetFieldNames(Polja);
RadiNesto(Polja);
IBTable.Close;
fInally
Polja.Free;
end;
end;
[Ovu poruku je menjao marcha dana 29.08.2005. u 22:03 GMT+1]
Marcha
-----------------------------------
Pretpostavka je majka za***a.