Arrays auswerten

[oldmax]

Hi
Erst mal Willkommen.
Nun, deine Beschreibung ist, ehrlich gesagt etwas für die Glaskugel. Ich vermute mal, das du die Zeichen in Form einer Laufschrift durch die Labels wandern lassen möchtest und wenn 2, 3 oder 4 auftauchen dieses ebenfals in einer Laufschriftähnlichen Form anzeigen möchtest. Sag mir, wenn ich gut geraten habe, dann mach ich beim nächsten Mal weiter.
Ich weiß, es ist nicht einfach, seine Aufgabe zu beschreiben, aber je besser du sie beschreiben kannst, un so mehr Probleme wirst du selbst lösen können.
z. B. vorgehensweise beim Programmieren einer Laufschrift.

Var Werte :Array[1..10] of integer;

Delphi-Quellcode:

Procedure Arrayvorbesetzen;
Var i: Integer;
Begin
  For i:=1 to 10 do Werte[i]:=0;
End;

nun schieben wir mal...

Delphi-Quellcode:

Procedure ArraySchieben(neuerWert: Integer);
Var i : Integer;
begin
  For i:=2 to 10 do Werte[i-1]:=Werte[i]; // schiebt von oben nach unten...
  Werte[10]:=Neuerwert;    // neuer Wert in 10. Feld
  Label1.Caption:=Werte[1];  
  Label2.Caption:=Werte[2];
  Label3.Caption:=Werte[3];
  usw
end;

und andersrum schieben wäre

Delphi-Quellcode:

For i:=1 to 9 do Werte[10-i+1]:=Werte[10-i]; // schiebt von unten nach oben...
  Wert1:=Neuwert; // neuer wert in 1.Feld

viel Spass noch
Gruß oldmax