Из строки в массив и наоборот
|
Программист с женой отправились в супермаркет.
Сделав все необходимые закупки, они вышли на улицу, и
жена сказала:
- Стой здесь и смотри в оба за этими десятью сумками, пока
я схожу и разыщу такси.
Когда жена вернулась, то увидела обалдевшего мужа,
переставляющего сумки с места на место.
Программист:
- Ты сказала, что здесь десять сумок, а я насчитал только 9!
Жена:
- Hо их было десять!
Программист:
- Hет, давай вместе считать: 0, 1, 2, 3......
|
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;
|
|
