Edit Procedure

[CiTiZEN]

Hayırlı cumalar arkadaşlar benım bi sorum var:
Arama yapmama ragmen bir neticeye ulaşamadım belkide çok basittir
Ben 2 tane procedure sahibim bunlardan birisi

Kod: Tümünü seç

procedure successful;
begin
showmessage('Successful');
end;

Diğeride

Kod: Tümünü seç

procedure unsuccessful;
begin
showmessage('Unsuccessful');
end;

Bu procedurleri edit e yazdığım text ile kontrol etmek istiyorum örneğin
edit in textine successful yazdığımda 'successful' procedurü unsuccessful yadığımda ise 'unsuccessful' procedurü işlesin istiyorum yardımcı olursanız sevinirim.
Kolay gelsin.

[CiTiZEN]

Kimsenın ufakta olsa bi fikri yok mu?

[unicorn64]

editin OnChange inde editteki yazıyı kontrol eder ona göre istediğin prosedürü çağırırsın...??

[CiTiZEN]

Yazıyı kotrol edip çağırabilirm ama yapmaya çalıştıgım şey esasen şu:
ben edite (yukardaki örnege göre yazıyorum) unsuccessful yazdığımda ve butona tıkladığımda o procedur çalışacak yani bir if dönügüsü kullanmak istemiyorum

Kod: Tümünü seç

if edit1.text='Unsuccessful' then 
unsuccessful;

şeklinde kullanmak istemiyorum boyle bır olay mümkün mü onu ögrenmek istedim
Kolay Gelsin.

[mehmetcan]

Delphi de rtti bilgisi oldugundan olur. Fonksiyon forma veya bir bileşene ait olacak ve published edilmesi gerekecek.

Kod: Tümünü seç

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  published
    procedure success(Sender:Tobject);
  end;


procedure TForm1.Button1Click(Sender: TObject);
type
  Tyordam  = procedure of object;
var
  a1 : TMethod;
  yordam : TYordam;
begin
  a1.Data:=Pointer(Form1); // veya nill
  a1.code:=MethodAddress(Edit1.Text);  // bu örnekte sadece success calisir
  if assigned(a1.code) then
  begin 
    yordam:=TYordam(a1);
    yordam;
  end;
end;

procedure Tform1.success(Sender: Tobject);
begin
   ......
end;

[CiTiZEN]

Sayın @mehmetcan kodlar ve ilginiz için teşekkür ederim kodlar çalıştı.
Kolay gelsin