StrToField nasıl yapılır

[AhmetNuri]

Merhaba arkadaşlar
Dataset te mevcut bir alan adını string olarak gönderip geriye Tfield cinsinde değer dönemsini istiyorum
Mesela
Satis Tablosu alanları
Adi
Kodu
Tarihi

StrToField('Adi');// Yazıldığı zaman Adi alanı dönmsi için çalışıyorum

tahmini kod
<kod>

function StrToField(FindField: String;
Dmod: TDataModule): TField;
begin
// stringi field e çevirir
Result := TField(Dmod.FindComponent(FindField)); ;
end;

</kod>
Yardımcı olan arkadaşlara teşekkürler

[vkamadan]

Merhaba,
TDataSet sınıfından türeyenlerin zaten hali hazırda aldığı stiring değerin adında fieldi TField olarak dönüdüren FieldByName(FieldName:String):TField adında bir metodu var, bu işinizi görmezmi?

[davut]

bunu yapsanız bile strtofield('ADI') deyince herhangibir table içinde olabilir, böyle bir uygulama sakıncalı olur bence. birkaç table da "ADI" diye field bulunabilir. ilk bulduğunumu getirecek?