|
|
Puppen-spieler
|
| Titel: 6 aus 49 Fehlersuche |
18.09.2009 18:23 |
|
|
Anmeldungsdatum: 07.09.2009
Beiträge: 19
|
so, das ist mein quelltext, aber da steckt iwie n fehler drin, der erzeugt teilweise nur 5 zahlen und manchmal auch doppelt, was er nicht sollt, bitte um hilfe
procedure TForm1.Button1Click(Sender: TObject) ;
var i,z,x,y,anz,o: integer;
{startet Zufallszahlen für Memo2}
begin
randomize ;
For i:=1 TO 6 DO
begin
z:=random(49)+1 ;
memo2.lines.add(IntToStr(z) ) ;
end;
{zieht zufällige Superzahl}
begin
randomize;
Superzahl:=random(9)+1;
edit2.Text:=(IntToStr(Superzahl ) ) ;
end;
{Vergleich der eingegebenen mit den gezogenen Zahlen}
anz:=0;
For x:=0 To memo1.Lines.Count-1 Do
For y:=0 To memo2.Lines.Count-1 Do
IF memo1.Lines[x]=memo2.Lines[y]
then
begin
memo3.Lines.add(memo1.lines[x] ) ;
anz:=anz+1;
label5.caption:=IntToStr(anz) ;
end;
{Vergleich der Superzahlen}
If edit1.Text=edit2.Text
then
begin
edit3.Text:=edit1.Text ;
label8.Caption:='Superzahl stimmt überein! ! '
end
else
label8.caption:='leider nicht..' ;
{Elememinierung doppelter Zahlen}
for i:=0 To memo2.Lines.count-1 DO
begin
o:=i+1;
while o<memo2.lines.count do
begin
IF memo2.lines[i]=memo2.Lines[o] then
begin
memo2.lines.Delete(i) ;
dec(o) ;
end;
inc(o) ;
end ;
end ;
{Fehlerabfederung}
anz:=0;
if memo1.Lines.Count<>6 then
begin
ShowMessage('Bitte geben Sie genau 6 Zahlen als Tipp ein ! ' ) ;
exit;
end;
try
For x:=0 TO memo1.lines.count-1 DO begin
if not ( (strToInt(memo1.Lines[x] )<50) and (strToInt(memo1.Lines[x])>0) ) then begin
Showmessage('Bitte geben Sie nur Zahlen zwischen 1 und 49 ein ! ' ) ;
exit;
end;
end;
except
Showmessage('Fehler! Bitte geben Sie Zahlen ein ` ) ;
end;
try
if not ( (strToInt(edit1.Text)<10)and (StrToInt(edit1.Text)>0) ) then
begin
showmessage('Bitte geben Sie nur Zahlen zwischen 1 und 9 ein ! ' ) ;
exit;
end;
except
Showmessage('Fehler! Bitte geben Sie Zahlen ein ! ' ) ;
end;
end;
|
 |
|
| |
|
ctFreez
|
| Titel: 6 aus 49 Fehlersuche |
21.02.2010 03:03 |
|
|
Anmeldungsdatum: 21.02.2010
Beiträge: 18
|
1. randomize dient zum initialisiren des zufalszahlen generators... also nur 1 mal aufrufen
2. wenn du die bereits gezogenen Zahlen nicht aus einer Menge abziehst, dann ist das kein wunder.
3. Bitte hör auf zu Programmieren
Gruß ctFreez
|
|
|
| |
|
Epytir
|
| Titel: 6 aus 49 Fehlersuche |
02.05.2010 14:43 |
|
|
Anmeldungsdatum: 19.04.2010
Beiträge: 52
|
ehm das is ja ma voll unleserlich wie wärs ma mit taps dann sieht man seine eigenen fehler besser ich bin auch anfänger aber taps und comments im quelltext helfen
und puppenspieler sei nicht so hart jeder fängt mal an
|
|
|
| |
|
|
|
|
|
|
Themen
Unbeantwortet
Betriebssysteme
