Форум: "Потрепаться";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Вниз

Деление String по пробелу   Найти похожие ветки 

← →
Delirium   (2002-01-16 19:42) [22]

Я когда-то написал пару функций:

function SubStringCount(Str:String;Separator:String):integer;
var L:String;
begin
L:=Str+Separator;
Result:=0;
While Pos(Separator,L)>0 do
begin
Result:=Result+1;
Delete(L,1,Pos(Separator,L)+Length(Separator));
end;
end;

function GetSubString(Str:String;Num:integer;Separator:String):String;
var i:integer;
begin
Result:=Str+Separator;
if Length(Result)=0 then exit;
for i:=2 to Num do Delete(Result,1,Pos(Separator,Result)+Length(Separator)-1);
Result:=Copy(Result,1,Pos(Separator,Result)-Length(Separator));
end;

может, поможет?

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c