Из строки в массив и наоборот |
Previous Top Next |
Code: |
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;
function ArrayToStr(str: TStrings; r: string): string; var i: integer; begin Result:=''; if str = nil then Exit; for i := 0 to Str.Count-1 do Result := Result + Str.Strings[i] + r; end; |
©Drkb::00144
Взято с http://delphiworld.narod.ru