Edit Felder mit Variable aufrufen

[Blackhalflife]

Hallo!

Ich hab folgendes Problem, ich hab 45 Edit-Felder und deren Werte möchte ich in nen Array einlesen also:

Code: Alles auswählen

punkte[1] := StrToInt(Edit1.Text);
 punkte[2] := StrToInt(Edit2.Text);

und so weiter, ist halt nur seeeehr viel arbeit kann ich edit felder nicht irgendwie über ne Variable aufrufen? Also dann in die Richung

Code: Alles auswählen

for i:= 1 to 45 do   
   punkte[i] := StrToInt(Edit?.Text);

[theo]

Nimm Findcomponent.

[creed steiger]

FindComponent

[theo]

[creed steiger]

[Eb]

Ich hatte das selbe Problem - war das von VB so gewöhnt ...

Mit Pascal mache ich es jetzt so:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var FormX    : TForm;
    i        : integer;
    feldname : string;
    punkte   : array[1..3] of string;
begin
   FormX := Form1;
   for i := 1 to 3 do
     begin
        feldname  := 'edit' + inttostr(i);
        punkte[i] :=  TEdit(FormX.FindComponent(feldname)).text;
     end;
end;

Gruss
Eberhard

[pluto]

Wo fängt dein Array an ? Bei 0 oder 1 ?
Deine For schleife fängt bei 1 an könnte evlt zu fehlern führen.

[Christian]

steht doch da, bei 1

[pluto]

Stimmt. Ist mir gestern nicht aufgefallen.
(hätte mich auch sonst etwas drüber gewundert)