Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
So könnte es aussehen. recht übersichtlich...
procedure TForm1.Vergleiche(Sender: TObject);
begin
count := count + 1;
Label4.Caption := IntToStr( count);
if count = 10 then
begin
Label4.Caption := 'Maximale Rateanzahl erreicht, die Lösung ist: , Neue runde?';
BRaten.Enabled := false ;
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Hör auf mkinzler ;) Mit den Bereichen ist das besser und auch einfacher zu implementieren.
So ungefähr könnte die Abfrgae aussehen:
procedure TForm1.Vergleiche(Sender: TObject);
begin
count := count + 1;
Label4.Caption := IntToStr( count);
if count = 10 then
begin
Label4.Caption := 'Maximale Rateanzahl erreicht, die Lösung ist: , Neue runde?';
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Das muss hier rein:
if StrToInt(EEingabe.Text) > Zahl then..
if StrToInt(EEingabe.Text) < Zahl then...
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Ist eigentlich auch nicht sonderlich schwer. So als kleines Bsp:
if (abs(zahl - eingabe) > 0) and (abs(zahl - eingabe) < 5) then Panel.caption := 'Du bist ganz nah dran!' else
if (abs(zahl - eingabe) > 5) and (abs(zahl - eingabe) < 15) then es Panel.captin := 'es wird wärmer...' else ...
Dürfte verständlich und selbsterklärend sein ;)
PS.: KA ob das mit abs() stimmt, ich habs einfach mal...
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Ah, jetzt seh ichs, ist ja logisch. Es liegt daran das du im OnCreate der Variable Zahl keinen Wert zuweist, somit ist sie für das Programm immer noch eine 0
Also einfach zahl := Random(100) und die sache hat sich gegessen.
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
An welcher Stelle des Codes rufst du denn eigentlich die prozeduren Neuezahl, bleibHier, Vergleiche auf?
Poste doch mal den ganzen Code (aber editiere deinen vorherigen und schreibs darein.)
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Könntest du vielleicht nochmal den Source-Code hier rein schreiben? (abre nur die Prozeduren, den Rest brauch ich nicht ^^)
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Einfach bei Form1.Create die zeile randomize; einfügen, dann ist es am anfang immer eine andere zahl :)
Forum: Sonstige Fragen zu Delphi
by Aurelius,
2. Nov 2007
Was klappt daran nicht?
PS: Mach mal Random(100) + 1. Ich glaub mit Random(100) geht das nur von 0 bis 99 :D