Delphi Can

(16-06-2020, Saat: 10:39)SimaWB Adlı Kullanıcıdan Alıntı: [ -> ]@ismailkocacan;  o zaman şöylesi daha iyi bence:

var
  aField: TField;
begin
  aField := ADataset.FieldByName('Alanİsmi);
  while not ADataset.Eof do
  begin
    aField.As....
    ADataset.Next;
  end; 
end;