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

[esistem]

Tamamen alıntıdır, daha önce hiç ihtiyacım olmadığı için kullanmamıştım fakat güzel bi olaymış.

function VarRecToStr( AVarRec : TVarRec ) : string;
 const
   Bool : array[Boolean] of string = ('False', 'True');
 begin
   case AVarRec.VType of
     vtInteger:    Result := IntToStr(AVarRec.VInteger);
     vtBoolean:    Result := Bool[AVarRec.VBoolean];
     vtChar:       Result := AVarRec.VChar;
    vtExtended:   Result := FloatToStr(AVarRec.VExtended^);
     vtString:     Result := AVarRec.VString^;
     vtPChar:      Result := AVarRec.VPChar;
     vtObject:     Result := AVarRec.VObject.ClassName;
     vtClass:      Result := AVarRec.VClass.ClassName;
     vtAnsiString: Result := string(AVarRec.VAnsiString);
     vtCurrency:   Result := CurrToStr(AVarRec.VCurrency^);
     vtVariant:    Result := string(AVarRec.VVariant^);
   {$ifdef Unicode}
    vtUnicodeString: Result := UnicodeString(AVarRec.VUnicodeString);
   {$endif}      vtWideString:    Result := WideString(AVarRec.VWideString);
     vtWideChar:      Result := WideChar(AVarRec.VWideChar);
     vtPWideChar:     Result := WideChar(AVarRec.VPWideChar^);
   else
     result := 'TYPE:'+INTTOSTR(AVarRec.VType);
   end;
 end;

function ArrayOfConstToString(const Argumanlar: Array of Const): String;
var
   X : integer;
 begin
   result := '';
   for X := 0 to High(Argumanlar) do begin
     result := result +  ';' +VarRecToStr( Argumanlar[X] );
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (  ArrayOfConstToString( [ 1.1, DATETOSTR(now), 'Ali Kemal', '', 55 ] )  );
end;