Thema: Delphi Arrays auswerten

Einzelnen Beitrag anzeigen

rambospike

Registriert seit: 29. Nov 2006
13 Beiträge
 
Delphi 7 Personal
 
#6

Re: Arrays auswerten

  Alt 1. Dez 2006, 21:16
Zitat von rambospike:
Zitat von oldmax:
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.

Gruß oldmax
Hallo Oldmax,

erst einmal vielen Dank für deine Antwort. Du hast vollkommen richtig geraten. Deine Beschreibung entspricht genau dem, was ich mir vorgestellt habe. Ich werde jetzt mal versuchen, mit deinem Code weiterzukommen.

Vielen Dank nochmal.

Herzliche Grüße von

rambospike
Hallo nochmal,

ich habe deinen Code im Programm eingegeben, doch beim Compilieren kommt die Meldung: Undefinierter Bezeichner: 'Label2' , Label3 usw.
Ich schicke nochmal den Code zur Prüfung, vielleicht findest du ja den Fehler. Vielen Dank.

herzliche Grüße von

rambospike


unit Zwillinge;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Zahl: Array [1..10] of Integer;
Zwilling: Array [1..5] of Integer;
Drilling: Array [1..3] of integer;
Vierling: Array [1..2] of Integer;

implementation

{$R *.dfm}
Procedure Arrayvorbesetzen;
Var a: Integer;
Begin
For a:=1 to 10 do Zahl[a]:=0;
End;

Procedure 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]);
Label3.Caption:=inttostr (Zahl[2]);
Label4.Caption:=inttostr (Zahl[3]);
Label5.Caption:=inttostr (Zahl[4]);
Label6.Caption:=inttostr (Zahl[5]);
Label7.Caption:=inttostr (Zahl[6]);
Label8.Caption:=inttostr (Zahl[7]);
Label9.Caption:=inttostr (Zahl[8]);
Label10.Caption:=inttostr (Zahl[9]);
Label11.Caption:=inttostr (Zahl[10]);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin



end;

end.
  Mit Zitat antworten Zitat