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




Вниз

Мастера товарищи... Как объединить эти две выборки... 


Michael C   (2002-02-19 12:14) [0]

Чтобы и третья и четвертая запятые выбрались...

Readln(F1,Str);
For i := 1 to 3 do
Begin
PosSIP := pos(",",Str);
If PosSIP > 0 then
Delete(Str,1,PosSIP);
End;
PosSIP := pos(",",Str);
If PosSIP > 0 then
ResultSIP := copy(Str,1,PosSIP-1);
Memo1.Lines.Add(ResultSIP);
For e := 1 to 4 do
Begin
PosDIP := pos(",",Str);
If PosDIP > 0 then
Delete(Str,1,PosDIP);
End;
PosDIP := pos(",",Str);
If PosDIP > 0 then
ResultDIP := copy(Str,1,PosDIP-1);
Memo2.Lines.Add(ResultDIP);



MBo   (2002-02-19 14:38) [1]

sl:=tstringlist.create;
sl.commatext:=str;
и делай, что нужно
если непонятно, для наглядности вместо Stringlist запиши
Memo1.Lines.CommaText:=str;




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




Наверх





Память: 0.71 MB
Время: 0.018 c
6-19284           DelphiG               2001-12-21 02:15  2002.03.07  
Как примерно выглядет процедура отключения от интернета?


3-19051           Cossys                2002-02-07 18:12  2002.03.07  
Ну что за глюк поганый!!!


3-19082           Tra                   2002-02-07 18:52  2002.03.07  
Как результат запроса сохранить в txt файл, чтобы потом загрузить на сервер по ftp ?


14-19331          tovSuhov              2002-01-22 08:43  2002.03.07  
Предложение к Хозяевам сайта...


3-19065           Ulikoff               2002-02-07 11:20  2002.03.07  
Ошибка сетевого доступа к БД