Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.10.31;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
8-1207328480
Alexus
2008-04-04 21:01
2010.10.31
Работа с графиком


15-1279608783
abun
2010-07-20 10:53
2010.10.31
Ложное срабатывание Trojan.Win32.StartPage


15-1279743038
KilkennyCat
2010-07-22 00:10
2010.10.31
В году этак 1998-ом я проходил курсы сварщика оптоволокна.


2-1281421021
admax_
2010-08-10 10:17
2010.10.31
ускорение цикла


3-1247039879
SDSK
2009-07-08 11:57
2010.10.31
как получить размер IMAGE (blob) поля MS SQL?