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

[esistem]

(18-09-2017, Saat: 16:34)uparlayan Adlı Kullanıcıdan Alıntı: Sorudaki uyarıyı ve null değerleri es geçmeyelim arkadaşlar

o zamansa;

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