Arrays auswerten

[marabu]

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