Problem mit alternativer Format-Funktion

[CalganX]

Hi,
ich habe aus Luckie's Toolbox folgende Format-Funktion:

Delphi-Quellcode:

function Format(fmt: string; params: array of const): string;
var
  pdw1, pdw2: PDWORD;
  i: integer;
  pc: PCHAR;
begin
  pdw1 := nil;
  if length(params) > 0 then GetMem(pdw1, length(params) * sizeof(Pointer));
  pdw2 := pdw1;
  for i := 0 to high(params) do begin
    pdw2^ := DWORD(PDWORD(@params[i])^);
    inc(pdw2);
  end;
  GetMem(pc, 1024 - 1);
  try
    SetString(Result, pc, wvsprintf(pc, PCHAR(fmt), PCHAR(pdw1)));
  except
    Result := '';
  end;
  if (pdw1 <> nil) then FreeMem(pdw1);
  if (pc <> nil) then FreeMem(pc);
end;

Nun ist das Problem, dass bei dem Aufruf
format('%.0f', [TimerLow / (1000.0 * TimeOfDelay)]) dann im Nachhinein f ausgegeben wird. Das Problem ist nicht da, wenn ich die SysUtils wieder einbinde und das dann aufrufe. Denn dann wird die Zahl korrekt ausgegeben.
Kann mir da jemand helfen?

Chris

[jbg]

Das Programmieren wird eben schwerer, wenn man die Highlevel Funktionen der RTL nicht nutzen will.

[CalganX]

Und was willst du mir damit jetzt sagen? Außer, dass man es eben selbst schuld ist, dass man nonVCL programmiert.

Chris

[jbg]

Deine Zeigerumwandlung ist komplett falsch. Lese dir mal in der Delphi Hilfe den Text zum Index "Variante offene Array-Parameter" durch.

[CalganX]

Hi,
hat sich jetzt auch erledigt, da ich es nicht mehr brauche... Desweiteren habe ich diese Funktion nicht geschrieben.

Chris