Gleitkomma Problem

[Klaus01]

Zitat:

Zitat von Garrad

Problem is leider immer noch vorhanden habe jetzt

Delphi-Quellcode:

 begin
                a:=ziehen;
                Label5.Caption:=floattostr(a);
                if a>21 then  verloren;
                if a=21 then  gegner
                end;

Schau mal wie Du ziehen deklarier hast:

Delphi-Quellcode:

 function ziehen:integer;

Und, gibt ziehen nun eine Gleitkommazahl zurück?

Grüße
Klaus