String değişkenini Tstrings değişkenine çeviren fonksiyon.

function StrToArrays(str, r: string; out temp: TStrings): Boolean;

var

j: Integer;

begin

if temp <> nil then begin

temp.Clear;

while str <> '' do begin

j := Pos(r, str);

if j = 0 then j := Length(str) + 1;

temp.Add(Copy(Str, 1, j - 1));

Delete(Str, 1, j + Length(r) - 1);

end;

Result := True;

end

else

Result := False;

end;