StrToFloat funzt nicht

[Sharky]

Zitat von Luckie:

pos, delete.

Oder einfach mit StringReplace.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  foo : String;
  baa : Real;
begin
  foo := '1.024,99';
  foo := StringReplace(foo,'.','',[rfReplaceAll]);
  baa := StrToFloat(foo);
end;