Editeinträge einlesen, wie?

[mk979]

Ich bin absoluter Newbie in Delphi.
Wir sollen für die Schule ein Lotto Programm erstellen. 12 Editfelder, 2 TButtons (Start und Ende). In den ersten sechs Edit Feldern sollen die generierten Zahlen angezeigt werden, dass klappt auch soweit, habe arrays verwendet.
Die anderen sechs Edit Felder dienen der Eingabe der Zahlen, die dann mit den gezogenen verglichen werden sollen. Wie kann ich die Editfelder einlesen und mit den gezogenen Zahlen vergleichen.

[Neuni]

Erstmal Herzlich Willkommen in der DP :dp:

Sollen die Ergebnisse exakt übereinstimmen? Also sollen die edits glich sein?

[MrKnogge]

Abend mk979

erstmal, herzlichwillkommen in der :dp:

Delphi-Quellcode:

deineZahl := StrToInt(Edit1.Text);

[Nicodius]

herzlich willkommen



aber MrKnogge: ich denke er meint mit dem array vergleichen

Delphi-Quellcode:

 deineZahl := Arrayname[index];

[Neuni]

Ok, beim zweiten Lesen fällt mir jetzt auch auf, dass die Zahlen wohl exakt übereinstimmen müssen :mrgreen:

PS: Warum mit integer?? Wenn die eh schon angezeigt werden, dann geht doch auch einfach

Code:

 if edit1.text = edit2.text then //richtig//

[Nicodius]

Zitat:

Wie kann ich die Editfelder einlesen und mit den gezogenen Zahlen vergleichen.

die gezogenen WERDEN N I C H T ausgegeben ;) steht halt cht drinnen und dann stimmt die lösung mit dem array :stupid:

[Neuni]

Ich denke aber mal, dass man die gezogenen auch anzeigt (wegen den 12 edits)

[Nicodius]

die sind zur eingabe :gruebel: dann wird zuerst geprüft und dann ausgegeben.. ;)


aber wieder on topic : sag doch mal genauer oder besser was du willst :mrgreen:

[MrKnogge]

Zitat:

Zitat von Neuni

Ich denke aber mal, dass man die gezogenen auch anzeigt (wegen den 12 edits)

12 gezogenen, wie spielst du den Lotto :gruebel:

[Nicodius]

:mrgreen: andere länder....


naja aber ist mk979 nicht da?

[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