Программист с женой отправились в супермаркет.
Сделав все необходимые закупки, они вышли на улицу, и
жена сказала:
- Стой здесь и смотри в оба за этими десятью сумками, пока
я схожу и разыщу такси.
Когда жена вернулась, то увидела обалдевшего мужа,
переставляющего сумки с места на место.
Программист:
- Ты сказала, что здесь десять сумок, а я насчитал только 9!
Жена:
- Hо их было десять!
Программист:
- Hет, давай вместе считать: 0, 1, 2, 3......
function StrToArrays(str, r: string; out Temp: TStrings): Boolean;
var
j: integer;
beginif temp <> nilthenbegin
temp.Clear;
while str <> '' dobegin
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;
endelse
Result:=False;
end;
function ArrayToStr(str: TStrings; r: string): string;
var
i: integer;
begin
Result:='';
if str = nilthen
Exit;
for i := 0 to Str.Count-1 do
Result := Result + Str.Strings[i] + r;
end;
В статье описаны функции для преобразования строки в массив и наоборот, с помощью которых можно извлечь отдельные символы или подстроки из строки и объединить их обратно.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал