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

[Abdullah ILGAZ]

Önce VarRecToStr fonksiyonu ile gelen değeri string olarak elimize alıyoruz.

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^);
    else
      result := '';
    end;
  end;

Daha sonra parametreleri yan yana ekliyoruz.

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