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