Editeinträge einlesen, wie?

[mk979]

Danke schonmal für die antworten.
Die Zahlen die gezogen werden werden direkt angezeigt (erste zahl im ersten Editfeld etc.).
Die Zahelen die ich in den anderen Felder eingebe sollen dann mit den Ergebnissen verglichen werden. Außerdem soll dann angezeigt werden wieviele Richtige man hat.

[mk979]

Ich nochmal.
Am liebsten würde ich die sechs eingegebenen Zahlen in einem Array speichern, mit dem Ausgabe array vergleichen. Und dann ahlt noch die Anzeige wieviele richtig sind. Funzt das so wie ich mir das vorstelle?

[MrKnogge]

jap, das lässt sich ohne weiteres so umsetzten, falls du probleme hast, kannst du ja mal kutz posten was du bisher hast.

[mk979]

Hier mien Programm bis jetzt. Und mein Problem ist halt nun die Umsetzung der Eigabe mit Vergleich der Ausgebe und dem Ergebnisstand. Da komm ich nicht weiter.

procedure TForm1.StartClick(Sender: TObject);

var arr: array[1..49] of integer;
i,k,zahl: integer;
arrZahlen of integer;

begin
Randomize;
for i:=Low(arr) to High(arr) do arr[i]:=i;
for i:=Low(arrZahlen) to High(arrZahlen) do
begin
zahl:=Random(49)+1;
while arr[zahl]=0 do zahl:=Random(49)+1;
arrZahlen[i]:=zahl;
arr[zahl]:=0;
end;

begin
for i:=1 to 6 do
tedit (findcomponent('edit'+inttostr(i))).text:=format(' %3d',[arrzahlen[i]]);
end;
end;

procedure TForm1.EndeClick(Sender: TObject);
begin
application.Terminate;
end;

end.

[Thorben86]

Es gibt hier die Delphi-Tags :shock: Bitte editiere deinen Beitrag und füge die Delphitags hinzu, damit man das besser lesen kann :gruebel:

[Steve]

Hi, das hat jetzt nicht unbedingt was mit Deiner Frage zu tun, aber mal was anderes zu Deinem Code:

• Derzeit kann eine Zahl mehrmals gezogen werden ("mit Zurücklegen" sozusagen ;) )
• Nimm doch ein TEdit-Array, dann musst Du nicht mit FindComponent rummachen, dürfte einfacher sein :)

So far..
Stephan