Danke Dir aber ich check das nicht mehr jetzt...-.- Kopf ist zu. Muss pennen morgen in aller frische wieder
jedenfalls müsste es so sein:
User gibt Zahl ein.
programm guckt ob anzahl der versuche = 4 ist
wenn nein dann startet er und vergleicht ratezahl mit eingabezahl
wenn treu dann ausgabe der ratezahl ansonsten neuer versuch und ratezahl im feld merken
man hat 5 versuche wenns nicht klappt wird gesagt: tja klappt wohl nicht
wenn beim 4. versuch-> werden die 4 Zahlen ausgeben und die randomzahl
naja Gute NAcht gucke noch kurz aber globe net das ich zu einem vernünftigen Ergebnis komme mehr...
Delphi-Quellcode:
begin
i := 0;
For i := 0 to 4 do
If (i = 4) then
showmessage('Tja war wohl nichts!') ----> neuer versuch initialisieren *aaaaargh* nicht mehr denkfähig heute xD
else
begin
eingabezahl := strtoint(eingabeedt.text);
Zahl[i] := eingabezahl;
inc(i); ----> sobald ich hier begin und end setze kennt der i nicht mehr *grrrrrr* -.-
end;
For i := 0 to 4 do
ausgabeedt.caption := inttostr(Zahl[i]);
inc(i);
end;
mfg
LUn87