Array of Const to String (Çözüldü)

[esistem]

Buyur hocam;

function MakeStr(const Args: array of const): string;
var
 I: Integer;
begin
 Result := '';
 for I := 0 to High(Args) do
    with Args[I] do
       case VType of
         vtInteger:  Result := Result + IntToStr(VInteger) + ';';
         vtBoolean:  Result := Result + BoolToStr(VBoolean) + ';';
         vtChar:     Result := Result + VChar + ';';
         vtExtended: Result := Result + FloatToStr(VExtended^) + ';';
         vtString:   Result := Result + VString^ + ';';
         vtPChar:    Result := Result + VPChar + ';';
         vtObject:   Result := Result + VObject.ClassName + ';';
         vtClass:    Result := Result + VClass.ClassName + ';';
         vtAnsiString:  Result := Result + string(VAnsiString) + ';';
         vtUnicodeString:  Result := Result + string(VUnicodeString) + ';';
         vtCurrency:    Result := Result + CurrToStr(VCurrency^) + ';';
         vtVariant:
         begin
         If not VarIsNull(VVariant^) then Result := Result + string(VVariant^) + ';';
         end;
         vtInt64:       Result := Result + IntToStr(VInt64^) + ';';
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(MakeStr(['test', datetostr(now), Null, True, False, 3.14159, TForm1]));
end;