Einzelnen Beitrag anzeigen

Benutzerbild von Mazel
Mazel

Registriert seit: 11. Nov 2005
Ort: Leipzig
831 Beiträge
 
#1

TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten

  Alt 17. Aug 2006, 19:02
Hallo,

in Delphi habe ich 4 Möglichkeiten (zumindest kenn ich nicht mehr) einem Editfeld über FindComponent einen anderen Text zu zuweisen, wobei 2 Möglichkeiten mit "with do" verbunden werden. Nun die Frage, warum gibt es mehrere Möglichkeiten und welche von denen ist die bessere?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  TEdit(FindComponent('Edit1')).Text:='Text1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  (FindComponent('Edit1') as TEdit).Text:='Text2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  with (FindComponent('Edit1') as TEdit) do Text:='Text3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 with TEdit(FindComponent('Edit1')) do Text:='Text4';
end;
Gruß
Mazel
Marcel Jänicke
www.mj-software.net
  Mit Zitat antworten Zitat