Hallo Tigerhead,
dein Problem liegt hier :
Delphi-Quellcode:
procedure TGUI.btokClick(Sender: TObject);
begin
if (Tipp.text < IntToStr(wuerfel1.liesFZahl))
then begin
LaStatus.caption := 'Die Zahl ist zu klein.';
LaStatus.Visible := true;
end;
if (Tipp.text > IntToStr(wuerfel1.liesFZahl))
then begin
LaStatus.caption := 'Die Zahl ist zu groß.';
LaStatus.Visible := true;
end;
Du Wandelst eine Zahl in einen String um und vergleichst dann zwei Strings, lieber
den Strig in ein Integer umwandel mit StrToInt.
also :
if StrToInt(Tipp.Text) > wuerfel.liesZahl then mach was
Hoffe geholfen zu haben