Variant array to string

Hvad indeholder dit variant array?

Hej

Det  indeholder tekst

function GetVarArrayText(Arr : Variant) : string;
var
  i : integer;
begin
  if VarIsArray(Arr) then
    for i:=0 to VarArrayHighBound(Arr,1) do
      Result:=Result+Arr[i]
  else
    Result:=Arr;
end;

-------------
var
  Tekst : string;
begin
  Tekst:=GetVarArrayText(VarArrayOf(['En tekst', 'Mere tekst', 'Og den sidste']));
  Showmessage(Tekst);
end;

Venligst svar på mail tilsendt fra QXL.