über best. Zahl in edt -> Message

[Micha]

Ich hab wiedermal ein kleines Problem.

Delphi-Quellcode:

procedure TTaetigkeiten.Button1Click(Sender: TObject);
begin
 if mo_std_1.Text > '15' then
 ShowMessage('Über 15 nicht erlaubt');
end;

Dieser procedure klappt nicht ganz. Ich nehme mal an, es liegt an Edit.Text, da es ja eine Zahl überprüfen soll.

Kann mir jemand helfen?

[Luckie]

Dann überprüf doch eine Zahl und nicht einen String.

[Micha]

und wie stell ich das an


???

[CalganX]

IntToStr() in der Hilfe nachschlagen.

Chris

[Matze]

Delphi-Quellcode:

procedure TTaetigkeiten.Button1Click(Sender: TObject); 
var i: integer;
begin 
  i:=StrToInt(mo_std_1.Text)
  if i > 15 then 
  ShowMessage('Über 15 nicht erlaubt'); 
end;

[fkerber]

Hi!

Du musst folgendes schreiben:

Delphi-Quellcode:

procedure TTaetigkeiten.Button1Click(Sender: TObject);
begin
if strtoint(mo_std_1.Text) > 15 then
ShowMessage('Über 15 nicht erlaubt');
end;

Also den String zu einem Integer umwandeln und die Anführungszeichen um die 15 weglassen!

// untested

Ciao fkerber

[Micha]

Yes, dankeschööön.