Форум: "Основная";
Поиск по всему сайту: 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.74 MB
Время: 0.014 c
1-9125            Геральт               2002-02-15 22:14  2002.03.04  
Вывод различной информации


1-9143            Hewlping              2002-02-17 19:03  2002.03.04  
Помогите!


3-9084            karafuto              2002-02-07 10:10  2002.03.04  
Глюк клиента MS SQL 2000?


14-9289           mvg_first             2002-01-10 13:38  2002.03.04  
Пара предложений для Мерлина (присоединяйтесь!)


1-9162            foks                  2002-02-02 11:19  2002.03.04  
У меня не работает Delphi 5.0 из под Windows XP