Hallo zusammen,
ich habe ein kleines Problem. Ich möchte in ein Edit Feld eine Zahl von 1-10 eingeben. Diese Zahl soll nach Betätigung des OK. Button in ein Label geschrieben werden. Dann soll der Eingabefocus wieder in das Edit Feld gelegt werden. Bis hierhin bin ich gekommen.
Jetzt soll die nächste Zahl von 1-10 eingegeben werden. Die neue Zahl soll nun in das Label der vorherigen Zahl geschrieben werden. Und so weiter. Wenn das letzte der 10 Labels mit Zahlen gefüllt ist, soll die zuerst eingegebene Zahl verschwinden und die elfte Zahl oben erscheinen.
Aus diesen Zahlen soll nun jeweils ermittelt werden, ob zwei Zahlen identisch(Zwillinge) sind. Der erste Zwilling soll nun in das erste Label mit Namen Zwilling geschrieben werden. Dann soll so vorgegangen werden wie bei den anderen Zahlen, die Zwillinge sollen weiter nach unten wandern.
Aus den Zwillingen sollen Drillinge ermittelt werden, ansonsten wie vor.
Zum schluss sollen aus den Drillingen die Vierlinge ermittelt werden.
Und das alles immer fortlaufend.
Zur besseren Übersicht habe ich mal den bisherigen Quellcode beigefügt. Wäre schön, wenn mir jemand helfen könnte.
Vielen Dank.
Delphi-Quellcode:
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 TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=inttostr (Zahl[1]);
end;
end.
[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]