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




Вниз

И ещё вопрос... 


Michael C   (2002-02-15 11:38) [2]

AssignFile (F1,"C:\capture_Feb_5_2002_17_4_23_760.csv");
Reset (F1);

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




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




Наверх





Память: 0.71 MB
Время: 0.024 c
1-9209            Королев               2002-02-14 11:44  2002.03.04  
как узнать параметры функции импортируемые из DLL?


3-9060            amamed_3071           2002-02-06 16:22  2002.03.04  
Create Quickreport


1-9197            ikar                  2002-02-14 09:48  2002.03.04  
Как создать DLL который работает как EXE сервер.


14-9272           Ghost!                2002-01-11 20:42  2002.03.04  
Деление String по пробелу


1-9141            SireX                 2002-02-17 16:27  2002.03.04  
INI Files