Kleine Non-VCL Fragen

[ErazerZ]

Delphi-Quellcode:

function IntToStr(i: Integer): String;
begin
  Str(i, Result);
end;

function StrToInt(S: String): Integer;
begin
  Val(S, Result, Result);
end;

function FloatToStr(E: Extended): String;
begin
  Str(E:2:2, Result);
  Result := ReplaceChar(Result, '.', ',');
end;

function StrToFloat(S: String): Extended;
var
  I: Integer;
begin
  Val(S, Result, I);
end;

function ReplaceChar(S: String; Old, New: Char): String;
var
  i, j: Integer;
begin
  for j := 0 to Length(S) do
  begin
    i := Pos(Old, S);
    if i > 0 then
      S[i] := New;
  end;
  Result := S;
end;