Форум: "Основная";
Поиск по всему сайту: 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.018 c
1-9132            Fast                  2002-02-17 09:45  2002.03.04  
Элементарная вещь


1-9218            avk                   2002-02-15 11:33  2002.03.04  
ListBox переход на следующую строку...


1-9170            ProstoChaynik         2002-02-14 09:25  2002.03.04  
цвет TButton


1-9130            Squall                2002-02-17 03:05  2002.03.04  
Объясните пожалуйста !!! (Transparency)!!!


1-9231            Shoo                  2002-02-15 16:54  2002.03.04  
Констант-массив