GetTextValeuFromTObject(obj:TObject)

[ssteeltr]

Arkadaşlar ben bir panel üzerindeki edit,combobox,datetime nesnlerindeki bilgileri bir döngü ile almak istiyorum bunu
yapan yukarıdaki fonksiyonu nasıl yazarız

Function GetTextValeuFromTObject(obj:TObject):string;
begin
result:=..........;
end;

[eyalin]

Yanlış anlamıyorsam componentcount diye forumda aratırsan yapmaya çalıştığın şeyle ilgili ipuçları yakalayabilirsin diye düşünüyorum.Ustalar tabiki daha doğrusunu söyleyecekler ama sanırım componentcount çıkış noktası.İyi çalışmalar...

[aslangeri]

s.a.
Fonksiyonun geriye bileşenin text değerini döndereceğini varsayıyorum.
Panelde birden fazla edit,combo,datatimepicker olması durumunu da düşünerek hedef bileşenin tipini ve adınıda (veya diğerlerinden ayıran başka bir özelliği) fonksiyonun parametresine eklememiz lazım.
kabaca fonksiyon şöyle bişey olur.

Kod: Tümünü seç

Function GetTextValeuFromTPanel(aPanel:TPanel; objName:string):string
var
i:integer;
Begin
  for i:=0 to apanel.componenetcount-1 do
  begin
    if apanel.components[i].name=objName then
    Begin
      if (apanel.components[i] is TEdit) then result:=(apanel.components[i] as tedit).text else
      .....
      if (apanel.components[i] is TXXXX) then result:=(apanel.components[i] as tXXXX).XXXX;
    End; 
  end;
End;

kolay gelsin.

[sabanakman]

Soruyu anlamadım ama çalışma zamanı dizayn değerleri istiyorsan viewtopic.php?f=19&t=18415&p=105829 bağlantısına bir göz atmanda fayda olabilir.

[ssteeltr]

bir panel içindeki bir edit veya combobox veya text özelliği olan nesnenin değerini alabilmenin yolu :

Kod: Tümünü seç

for i:=0  to Panel1.ControlCount-1 do
GetStrProp(Panel1.Controls[i],'Text') 

bu sayede

Kod: Tümünü seç

      if (apanel.components[i] is TEdit) then result:=(apanel.components[i] as tedit).text else
      .....
      if (apanel.components[i] is TXXXX) then result:=(apanel.components[i] as tXXXX).XXXX;

gibi demeden

Tedit
TCombobox

nesnelerinin Text özelliğini direk alabiliriz