Forum: Programmieren allgemein
by BUG,
29. Sep 2008
procedure TForm1.Note;
var note: Real;
begin
if (FiCountCorrect=0) and (jkeins=1) and (jkzwei=1) then
begin
note:=7;
end else if (FiCountCorrect=0) and (jkeins=1) then
begin
note:=65/10;
end else if (FiCountCorrect=0) and (jkzwei=1) then
Forum: Programmieren allgemein
by BUG,
29. Sep 2008
var a: double;
begin
a := pi;
caption := FloatToStr(a);
end; Double gehört zu den Gleitkommazahlen (floats) :warn: :mrgreen:
Nur zu langsam, weil ich's noch getestet habe ... spät abends lieber nochmal sichergehen :stupid:
MfG,
Bug