TStrings array değişkenini string değişkenine çeviren fonksiyon.

function ArrayToStr(str: TStrings; r: string): string;

var

i: Integer;

begin

Result := '';

for i := 0 to Str.Count - 1 do

begin

Result := Result + Str.Strings[i] + r;

end;

end;