Aktif olan db editteki bilgiyi alma

[sako]

if (ActiveControl is TDBedit) then
begin

aranan:=pchar(ActiveControl.name)+'.text';
Edit1.Text:=pchar(aranan);
end;

Benim bildiğim kadarıyla edit1.text in içine aktif olan DBEditin içine yazılan değerin aktarılması gerekiyor. Ama edit1 içine gelen değer dbedit... olarak geliyor. pchar ı yanlış mı kullanıyorum acaba ?

[SimaWB]

Kod: Tümünü seç

Edit1.Text := TDBedit(ActiveControl).Text;

[sako]

teşekkürler