Работа со строками

← →
Maxman (2002-05-06 12:32) [0]

Напомнитепожалуйста функцию которая бы изстроки "12.22.1.44.6"
сделала бы строки "12" "22" "1" "44" "6" (разделитель "." илилюбоедругое).

← →
Виктор Щербаков © (2002-05-06 12:38) [1]

Лень самому писать - поищи.
http://delphibase.endimus.com/?action=viewfunc&topic=strsearch&index=3

← →
Кулюкин Олег © (2002-05-06 12:40) [2]

Можно написать самому, использую функции WordCount, ExtractWord из RXLib, модуль StrUtils.

← →
Song © (2002-05-06 12:43) [3]

With TStringList.Create Do
try
Text:="12.22.1.44.6";
Text:=StringReplace(Text,".",#13#10,[rfReplaceAll]);
For t:=0 to Count-1 Do ShowMessage(Strings[t]);
finally
Free;
end;

← →
Maxman (2002-05-06 13:22) [4]

Всем большое спасибо. Особенно Song © (06.05.02 12:43), за оригинальное решение! :-)

← →
Андрей Сенченко © (2002-05-06 13:26) [5]

Как раз это ( Song © ) - стандартное решение. Как показывает практика, одно из самых медленных.

В архивах форума пошукай если есть желание - Там есть очень интересная ветка по поводу работы с бейсик-строкой

← →
Ivanov Sergey (2002-05-06 20:17) [6]

StrUtils->ExtractWord(Number,Input,[" ","+","-","*","/","\"])

UBPFD: http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&index=5
или
UBPFD: http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&index=4

Работа со строками Найти похожие ветки