Programmierung einer Kaskoversicherung

[Wolfgang Mix]

Ich habe den Code hiermit noch einmal getestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var neuwert:double;
    s:string;
begin
  neuwert:=0.00000051;
  str(neuwert:8:2,s);
  Edit1.text:=s;
end;

Bei mir funzt das.

Gruß

Wolfgang