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

Вниз

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

 
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;



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

Текущий архив: 2002.03.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
3-19072
Ura
2002-02-01 15:55
2002.03.07
IB и скорость


1-19138
cahek20000
2002-02-13 18:55
2002.03.07
Синхронный скролинг


1-19248
Станислав Дмерть
2002-02-07 17:51
2002.03.07
Спрятать прогу в NT/2k


14-19348
Сержик
2002-01-24 15:59
2002.03.07
А чё, правда, что Delphi6 на русском языке бывает?


6-19273
T2
2001-12-14 03:15
2002.03.07
DialUp