Zugriff auf zur Laufzeit erstellte Edit-Felder

[DeddyH]

Delphi-Quellcode:

if Sender is TEdit then
  begin
    if TEdit(Sender).Text <> '' then
      ...
  end;

[edit] Hat man "etwas mehr" Code zwischen begin und end lohnt sich evtl. die Verwendung einer Zwischenvariablen.

Delphi-Quellcode:

var 
  Edit: TEdit;
begin
  //ggf. nötig, schaden kann es auf keinen Fall
  Edit := nil;
  if Sender is TEdit then
    begin
      Edit := TEdit(Sender);
      if Edit.Text <> '' then
        ...
    end;

[/edit]