Как разделить строку на элементы (2)

Delphi , Синтаксис , Массивы

Вариант 1. Используем стандартные массивы:

Code:

var a:array of string;//наш массив

s:string;//строка которую мы будем разбивать

begin

s:='Windows Messages SysUtils Variants Classes Graphics Controls Forms';

Repeat //мы постепенно заполняем массив на каждом шаге цикла по  1 элементу

setlength(a,length(a)+1);//увеличиваем размер массива на 1

if pos(' ',s)>0 then //если есть пробел то надо взять слово до пробела

begin

        a[length(a)-1]:=copy(s,1, pos(' ',s));//присвоение последнему элементу массива первого  слова

s:=copy(s,pos(' ',s)+1, length(s));//удаляем из строки первое слово

end

else//в строке осталось только одно слово

begin

a[length(a)-1]:=s;// присвоим последнее слово

break;//выход из цикла

end;

Until False;//цикл бесконечный, выход изнутри

//теперь проверяем что получили

showmessage(a[0]);

showmessage(a[1]);

showmessage(a[2]);

После использования массива не забудте освободить память a:=nil или setlength(a,0)

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru

Code:

procedure SplitOnWords(const s:string; Delimiters:set of char; Strings:TStrings);

var

p,sp:PChar;

str:string;

begin

include(Delimiters,#0); //чтоб уж наверняк

p:=pointer(s);

while true do

begin

//пропускаем все разделители в начале

while p^ in Delimiters do

if p^=#0 then

exit

else

inc(p);

sp:=p;

//пока не кончилось слово.

while not (p^ in Delimiters) do inc(p);

//запоминаем слово

SetLength(str,cardinal(p)-cardinal(sp));

Move(sp^,pointer(str)^,cardinal(p)-cardinal(sp));

Strings.Add(str);

end;

Автор: Fantasist Взято с Vingrad.ru http://forum.vingrad.ru

Статья описывает два способа разделения строки на элементы в Delphi, первый использует стандартные массивы, а второй - функцию SplitOnWords для работы с текстом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Массивы ::

Время компиляции файла: 2024-12-22 17:14:06
2025-11-15 16:47:56/0.0097091197967529/0