(String-) Format - variable Anzahl an Paramern (dynamisch!)

[ralfiii]

Zitat von Bummi:

http://rvelthuis.de/articles/articles-openarr.html
>> Internals

Super, danke.

Wen's interessiert:

Delphi-Quellcode:

type
  TConstArray = array of TVarRec;

procedure FinalizeVarRec(var Item: TVarRec);
begin
  case Item.VType of
    vtUnicodeString: UnicodeString(Item.VUnicodeString):='';
  else
    raise Exception.Create('type not handled properly');
  end;
  Item.VInteger := 0;
end;
procedure FinalizeVarRecArray(var Arr: TConstArray);
var
  I: Integer;
begin
  for I := Low(Arr) to High(Arr) do
    FinalizeVarRec(Arr[I]);
  Arr := nil;
end;

procedure TForm1.butLoadClick(Sender: TObject);
var
  x : TConstArray;
  i: Integer;
begin
   setlength(x,2);
   for i:=0 to High(x) do
   begin
        x[i].VType:=vtUnicodeString;
        x[i].VUnicodeString:=nil;
        UnicodeString(x[i].VUnicodeString):=IntToStr(i);
   end;
   Memo1.Lines.Add(Format('Test %s %s', x));
   FinalizeVarRecArray(x);
end;