Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
Du könntest die Abfrage in ein Funktion/prozedur verlagern und diese mit den Grenzen aufrufen
Procedure Form.Pruefe( y, a, b: Integer; ausgabe: TEdit);
begin
if (y > 12) and (y < 25) then
begin
money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(ausgabe.text))*3));
ausgabe.text:='0';
end else
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
Wie würden die weiteren Abfragen aussehen?
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
Sollen diese gleichzeitig, alternativ oder gleichzeitig gelten?
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
ZAHL.caption:=IntToStr(Trunc(random*36));
y:=StrToInt(ZAHL.caption); oder y als Extended deklarieren
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
ZAHL.caption:=IntToStr(int(random*36));
y:=StrToFloat(ZAHL.caption);
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
Was für einen Typ haben jetzt money und first?
Tedit?, TLabel?
Außerdem hast du die Funktionen vertauscht:
money.Text:=FloatToStr(StrToFloat(money.text)+((StrToFloat(first.caption))*3));
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
14. Jan 2007
Was für ein Typ haben money und first? Es muß money.Text o.ä. heißen.