Umwandlungen

[Luckie]

Alles was das Herz begehrt:

Delphi-Quellcode:

function StrToInt(s: string): Integer;
var
  code: integer;
begin
  val(s, result, code);
end;

function StrToFloat(s: string): Extended;
var
  code: integer;
begin
  val(s, result, code);
end;

function IntToStr(Int: integer): string;
begin
  Str(Int, result);
end;

function FloatToStr(Value: Extended; Width, Decimals: Integer): string;
begin
  Str(Value:Width:Decimals, result);
end;