Thema: Delphi Arrays auswerten

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#7

Re: Arrays auswerten

  Alt 2. Dez 2006, 18:50
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
  Mit Zitat antworten Zitat