Hallo,
Zitat von
rambospike:
... ich habe deinen [oldmax] Code im Programm eingegeben, doch beim Compilieren kommt die Meldung: Undefinierter Bezeichner: 'Label2' , Label3 ...
um auf die Komponenten Label2, Label3 etc. einfach zugreifen zu können, muss die Routine ArraySchieben() eine Methode deiner Form sein:
Delphi-Quellcode:
type
TForm1 = class(TForm)
Label2: TLabel;
// ...
private
procedure ArraySchieben (neuerWert: Integer);
// ...
end;
implementation
// ...
procedure TForm1.ArraySchieben (neuerWert: Integer);
var
a: Integer;
begin
for a := 2 to 10 do
Zahl[a - 1] := Zahl[a];
// schiebt von oben nach unten...
Zahl[10] := Neuerwert; // neuer Wert in 10.Feld
Label2.Caption := IntToStr (Zahl[1]);
// ...
Label11.Caption := IntToStr (Zahl[10]);
end;
Das ist nur eine Möglichkeit - es gibt auch noch andere.
Freundliche Grüße