Entwickler-Ecke
Sonstiges (Delphi) - (Lottozahlen)für jede Zahl ein editfeld
chriss1988 - Mi 26.04.06 09:45
Titel: (Lottozahlen)für jede Zahl ein editfeld
hi
habe das Forum ein bissle durchforstet aber nichts passendes für mein Programm gefunden.
wie in der überschrifft schon genannt geht es hierbei um ein Lottospiel.
Unser Lehrer hat gemeint wenn mann auf einen Button klickt soll das wie beim Lotto ablaufen für jede zahl gibt es ein edit feld.
nun habe ich etwas gefunden, dort schreibt er mir aber alles in ein editfeld und nicht in 6.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TLottozahlen.Button1Click(Sender: TObject);
var Zahlen: Array[1..49] of Boolean;
i, z: Integer;
begin
for i:= 1 to 49 do Zahlen[i]:=false;
for i:=1 to 6 do begin
repeat
z:=random(49)+1
until Zahlen[z] = false;
Zahlen[z]:=true;
end;
Edit1.Text:='';
for i:=1 to 49 do
if Zahlen[i] then Edit1.Text:=Edit1.Text+' '+Inttostr(i)+' ';
end; |
hoffe es kann mir einer Helfen
Narses - Mi 26.04.06 10:17
Moin!
 chriss1988 hat folgendes geschrieben: |
| hoffe es kann mir einer Helfen |
Klar, wenn du gesagt hättest, wobei... ;) Oder sollen wir dir einfach gleich das Programm schreiben und du hast dich nur nicht getraut zu fragen? :D
cu
Narses
PS: Hausaufgaben sind dazu da, um sich selbst damit zu beschäftigen. ;) Sag doch mal deinem Lehrer, dass du damit nicht klar kommst, woher soll er denn wissen, ob er den Stoff gut vermittelt hat.
jasocul - Mi 26.04.06 10:35
Du musst einfach nur der Reihe nach die Edits prüfen, ob schon was drin steht. Falls nicht, kannst du was reinschreiben, falls doch, dann eben nicht.
chriss1988 - Mi 26.04.06 11:27
@Narses
nein mir soll keiner ein programm schreiben wollte nur wissen was ich machen muss damit er mir die erste zahl in edit1 schreibt die 2 zahl in edit2 usw.
Narses - Mi 26.04.06 11:43
Moin!
Hmm, ich mach dir mal einen Vorschlag:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| Edit1.Text := IntToStr(Random(49)+1);
Edit2.Text := IntToStr(Random(49)+1);
Edit3.Text := IntToStr(Random(49)+1);
Edit4.Text := IntToStr(Random(49)+1);
Edit5.Text := IntToStr(Random(49)+1);
Edit6.Text := IntToStr(Random(49)+1); |
cu
Narses
Simon Joker - Mi 26.04.06 12:54
@Narses
Das wird 'ne sehr seltsame Ziehung!
Und die Lottozahlen: 7 .. 12 .. 12 .. 25 .. 34 .. 34
Duplicate beim Lotto würden Aufstände hervorrufen. ;-)
Vorschlag:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
| procedure TLottozahlen.Button1Click(Sender: TObject);
var PoolList : TStringList;
i,PoolIndex: Integer;
begin
PoolList := TStringList.Create;
try
for i:=1 to 49 do
PoolList.Add(IntToStr(i));
for i:=1 to 6 do
begin
PoolIndex := random(PoolList.Count); TEdit(FindComponent('Edit'+IntToStr(i))).Text := PoolList.Strings[PoolIndex];
case i of
1 : Edit1.Text := PoolList.Strings[PoolIndex];
2 : Edit2.Text := PoolList.Strings[PoolIndex];
3 : Edit3.Text := PoolList.Strings[PoolIndex];
4 : Edit4.Text := PoolList.Strings[PoolIndex];
5 : Edit5.Text := PoolList.Strings[PoolIndex];
6 : Edit6.Text := PoolList.Strings[PoolIndex];
end;
PoolList.Delete(PoolIndex); end;
finally
PoolList.Free;
end;
end; |
MfG Simon
Narses - Mi 26.04.06 13:00
...war klar, dass einer fertigen Code abliefert... :roll:
jasocul - Mi 26.04.06 15:09
Hast du was anderes erwartet? :wink:
chriss1988 - Mi 26.04.06 15:20
danke für die hilfe
aber ich hatte es schon anders halt viel viel viel viel viel umständlicher.
also nochmals danke
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!