Einzelnen Beitrag anzeigen

Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#4

Re: Edit-Felder durchnummerieren

  Alt 30. Sep 2005, 20:09
Auch eine Möglichkeit:

Delphi-Quellcode:
var
  Felder : Array[1..10] of TEdit;
  // [Startnummer..Endnummer]


// Beim Erstellen der Form klären, welches Editfeld welche Nummer hat
procedure TForm1.FormCreate(Sender: TObject);
begin
  Felder[1] := Edit1;
  ... // Hier wird natürlich der Rest auch definiert, ich war nur zu faul ;-)
  Felder[10] := Edit10;
end;


// In der Ausführung:
  Felder[Runde].Text := 'G';
// oder
  if (Felder[Runde].text = 'G') then
    ...
Gruß,
ManuMF

[edit]Code aufgebessert[/edit]
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat