Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
procedure TForm4.LOSClick(Sender: TObject);
var y : integer;
begin
zahl.Caption:=floatToStr(int(random*36));
y := StrToint(zahl.Caption);
if (y > 0) and (y < 13) then
begin
money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(first.text))*3));
first.text:='0';
end else
Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
hm es gib ja beim roulette um die 50felder, so wie ich das denke können die ruhig gleichzeitiggelten, denn ich hab für jedes feld ein eigenes geldfeld(1,2,3,4,5,6,schwarz,rot usw.), was ja wenns nicht ausgefüllt ist, nichts macht...
aber das wenn die zahl nicht getroffen wird das geld abgezogen wird muss dennoch erhalten bleiben (was nicht klappt wenn ichs einfach hintereinander kopier)
Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
jo klappt, danke....
jetzt will ich natürlich noch um die 40 weiteren abfragen dieser art machen, wie hänge ich die hintereinander`?
Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
ZAHL.caption:=floatToStr(int(random*36));
y:=StrToint(ZAHL.caption); so hatte ichs jetzt gemacht
was aber nicht klappt ist die else abfrage :(
begin
ZAHL.caption:=floatToStr(int(random*36));
y:=StrToint(ZAHL.caption);
IF (y>0) AND (y<13) THEN
Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
danke :-D das kalppt jetzt und das mit edit und label hatte ich verwechselt aber dies klappt nun auch...
was noch nicht geht ist der teil hier:
ZAHL.caption:=floattostr(int(random*36));
y:=floattostr(ZAHL.caption);
ich will eine zufallszahl erstellen mit 36zahlen erstellen und diese ist halt als variable notwendig und soll auch angezeigt werden (label "Zahl")
Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
procedure TForm4.LOSClick(Sender: TObject);
var GELD, y : integer;
begin
ZAHL.caption:=floattostr(int(random*36));
y:=floattostr(ZAHL.caption);
IF (y>0) AND (y<13)
THEN
BEGIN
money.Text:=strtofloat(floattostr(money.text)+((floattostr(first.caption))*3));
first.text:='0';
Forum: Object-Pascal / Delphi-Language
Delphi
by Hansdieter,
14. Jan 2007
also wenn man die zahl 1-12trifft, dann soll der betrag in dem entsprechendem feld(first) x3 genommen werden und zu einem (money)editfeld hinzugefügt werden.
ich kriegs irgendwie net hin... könnt ihr mir helfen?
money.Text:=strtofloat(floattostr(money)+((floattostr(first))*3));
first.text:='0';