Frage zu String Copy

[galex9]

Wie wäre es damit

Code:

function TCmdMessenger.GetIntValue(Value : string) : Integer;
begin
  Value := Trim(Value);
  Value := StringReplace(Value, ';', '', [rfReplaceAll, rfIgnoreCase]);
  Value := StringReplace(Value, '.', ',', [rfReplaceAll, rfIgnoreCase]);
  Result := Trunc(StrToFloatDef(Value, -1));
end;

....
GetIntValue('6.5;');
....