Alternative mit API zu SysUtils

[MathiasSimmack]

Ich benutze die Funktionen auch immer:

Delphi-Quellcode:

function StrToIntDef(const s: string; const i: integer): integer;
var
  code : integer;
begin
  Val(s,Result,code); if(code <> 0) then
                        Result := i;
end;

function IntToStr(const i: integer): string;
begin
  Str(i,Result);
end;

Wobei es mir "Wurscht" is´, ob das Ergebnis nun String oder PChar ist. Dafür gibt´s ja:

Delphi-Quellcode:

MessageBox(0,
  pchar(inttostr(1234)),
  nil,
  0);

Kürzlich (in Popovs "Monitor TV") habe ich eine Art "FloatToStr" mit zwei Stellen nach dem Komma gebraucht; geht ebenfalls mit "Str" und sieht so aus:

Delphi-Quellcode:

function floattostr(const i: Extended): string;
begin
  Str(i:2:1,Result);
end;

Wie Sebastian sagte: mal in die Hilfe schauen.

btw: Zu meiner Standardausrüstung von API-Programmen gehört meist eine "SysUtils.inc" mit häufiger benötigten Funktionen, wie

Code:

fileexists
ExtractFilePath
ExtractFileName
CutFileExt
Format
UpperCase
LowerCase

Damit kann man recht gut arbeiten und die Programmgröße klein halten.