Форум: "Начинающим";
Текущий архив: 2010.10.31;
Скачать: [xml.tar.bz2];

Вниз

разбитие строки на по подсктроки через нужный сепаратор   Найти похожие ветки 

← →
aka   (2010-08-04 12:27) [0]

разбитие строки на по подстроки через нужный сепаратор в дин. массив
Нужно для разбора и загрузки в базу.

Посоветуйте готовое решение.

---

← →
anonims   (2010-08-04 12:49) [1]

s:=TstringLit.Create;
s.delimiter:="|";
s.delimetedText:="1|2 |5    |";

---

← →
KilkennyCat ©   (2010-08-04 14:12) [2]

> anonims   (04.08.10 12:49) [1]

это не готовое решение. это - программирование.

---

← →
Игорь Шевченко ©   (2010-08-04 14:52) [3]

procedure StrBreakApartToArray(const Source, Delimeter: string;
 var Parts: TStringArray; IgnoreEmptyTail: boolean = false);
var
 curPos: Integer;
 curStr: string;
begin
 SetLength(Parts, 0);
 if Length(Source) = 0 then
   Exit;
 CurStr:= Source;
 repeat
   CurPos:= AnsiPos(Delimeter, CurStr);
   if CurPos > 0 then begin
     SetLength(Parts, Length(Parts)+1);
     Parts[Length(Parts)-1] := Copy(CurStr, 1, Pred(CurPos));
     CurStr:= Copy(CurStr, CurPos+Length(Delimeter),
       Length(CurStr)-CurPos-Length(Delimeter)+1);
   end else if not IgnoreEmptyTail or (Length(CurStr) > 0) then
   begin
     SetLength(Parts, Length(Parts)+1);
     Parts[Length(Parts)-1] := CurStr;
   end;
 until CurPos=0;
end;

---

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

Форум: "Начинающим";
Текущий архив: 2010.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c