Мастера товарищи... Как объединить эти две выборки...
Michael C © (2002-02-19 12:14:00)
Чтобы и третья и четвертая запятые выбрались...
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:00) [1]
sl:=tstringlist.create;
sl.commatext:=str;
и делай, что нужно
если непонятно, для наглядности вместо Stringlist запиши
Memo1.Lines.CommaText:=str;
Наверх 
ЧАТ |
Орешник |
|
