Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Edit-Felder durchnummerieren

  Alt 30. Sep 2005, 20:05
Hallo und herzlich willkommen in der Delphi-PRAXiS.

Es gibt viele Wege um dein Problem zu lösen. Ein Vorschlag: Spendiere deiner Form eine private variable EditList vom Typ TList, erzeuge die Liste im OnCreate-Ereignis der Form und füge deine Edit-Felder mit EditList.Add(Edit_XY_1) in der richtigen Reihenfolge hinzu. Im destructor gibst du den Speicher der EditList einfach wieder mit EditList.Free frei. Immer wenn du jetzt auf die FeldNummer 1 bis 10 zugreifen willst, kannst du folgendes machen:

Delphi-Quellcode:
function TDeineForm.GetEdit(nummer: integer): TEdit;
begin
  Result := TEdit(EditList[Pred(nummer)]);
end;
Nutzen kannst du diese Lösung dann so:

Delphi-Quellcode:
procedure TDeineForm.TestButtonClick(Sender: TObject);
begin
  ShowMessage(GetEdit(3).Text);
end;
Grüße vom marabu
  Mit Zitat antworten Zitat