Na hoffentlich versteht er das alles...
Er war gerade auf dem richtigen Weg...
Zitat:
Wenn man anstatt integer --> real nimmt ginge es ja auch mit dezimalzahlen?
Ja...
Dein Button zum hinzufügen eines Wertes sollte ungefähr so ausehen:
Delphi-Quellcode:
procedure Form1.Button....;
begin
CASE Zaehler < 10 OF
true : begin
DEIN_ARRAY[Zaehler] := StrToInt(Edit1.Text); //Die Variable ZAEHLER global deklarieren
INC(Zaehler); //Funktion zählt Integerwert um 1 auf
end;
false: begin
Showmessage('Array voll.');
end;
end;
end;
Ein Reset-Button (übrigens gute Idee):
Delphi-Quellcode:
procedure Form1.ResetButton...;
Var I : Integer;
begin
Zaehler := 0;
For I := 0 to Length(DEIN_ARRAY)-1 do
begin
DEIN_ARRAY[I] := 0;
end;
Edit1.Text := '';
end;