Başlangıç > Kodlar > Delphi ile TEdit ismindeki değeri getiren fonksiyon

Delphi ile TEdit ismindeki değeri getiren fonksiyon


Bir Form uzerinde bir suru TEdit be TLabel componenti var  siz istedigin edit veya Label  ismine gore bunun icindeki  bilgileri  donduruyor

// 2004/08/26 17:23 gungor
function gy_form_obj_degeri(pForm: TObject; pStr:String): string;
var s,obj_name,obj_degiken: string;
i: integer;
obj: TObject;
buldu : boolean;
begin
buldu := false;
s :=";
i:= pos('.',pstr);
if i > 0 then begin
obj_name := uppercase(copy(pstr,1,i-1));
obj_degiken := uppercase(copy(pstr,i+1,length(pstr)));
end
else begin
obj_name := uppercase(pstr);
obj_degiken := ";
end;

if assigned(pForm) then
if TForm(pForm).ComponentCount > 0 then
for i:= 0 to TForm(pForm).ComponentCount -1 do
if UpperCase(TComponent(TForm(pForm).Components[i]).name) = obj_name then begin
obj := TForm(pForm).Components[i];
s := TEdit(obj).Text;
if s = " then  s := TLabel(obj).Caption;
buldu := true;
break;
end;
if not buldu then gy_uyari_mesaji('Uyari',pstr +' degiskeni bulunamadi',MB_OK);
result := s;
end;

ornek :
var s: string;
begin
s := gy_form_obj_degeri(form1,'ed_deneme');
{
s := ed_Deneme.text ile ayni degeri verir
s := lbl_deneme.caption ile ayni degeri verir
}

end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: