Форум: "Потрепаться";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
ВнизДеление String по пробелу Найти похожие ветки
← →
Набережных С. (2002-01-15 16:50) [9]procedure ParseValueString(const Source, Separator: string;
List: TStrings; NullString: boolean = false;
BreakSpace: boolean = false);
const
DefSeparator:string =";";
var
Criteria,SL,n:integer;
P:PChar;
Spr:string;
begin
if Source = "" then raise Exception.Create("Source string is Null");
if List = nil then raise Exception.Create("List is Null");
if Separator = "" then Spr:=DefSeparator
else Spr:=Separator;
SL:=Length(Spr)-1;
if NullString then Criteria := 0
else Criteria:= 1;
P:=PChar(Source);
repeat
n:=Pos(Spr,P);
if n > Criteria then
begin
case BreakSpace of
false: List.Add(Trim(Copy(P,0,n-1)));
true: List.Add(Copy(P,0,n-1));
end;
P:=@(P[n+SL]);
end else
P:=@(P[n]);
until (n = 0) or (P[0] = #0);
if n = 0 then case BreakSpace of
false: List.Add(Trim(Copy(P,0,Length(P))));
true: List.Add(Copy(P,0,Length(P)));
end;
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c