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




Вниз

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


Michael C   (2002-02-15 11:27) [0]

Выбирал из файла, из строки по три отрезка, каждый кусок строки выбирался нажатием на отдельный Баттон, теперь когда попытался соеденить все это, все на хрен перепуталось, все переменные разные все проверил, и такое ощущение что выбирает только первый кусок записывая во все три. Думаю что-то с Readln? Скажите... :)



Digitman (M)   (2002-02-15 11:33) [1]

код где ?



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);



MBo   (2002-02-15 12:37) [3]

судя по всему, у тебя comma-separated текст.
проще всего можно его прочитать в TStrings.commatext - при этом куски между запятыми будут на отдельных строках.
пример
memo1.lines.commatext:=strsip;
и потом делай, что хочешь- ненужное удаля и т.п.
можно и в Stringlist, там обработать и нужное внести в memo




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




Наверх





Память: 0.72 MB
Время: 0.016 c
14-9297           Лана Розанова         2002-01-16 15:16  2002.03.04  
Привет народу здешнему.


1-9115            Gene Green            2002-02-16 00:23  2002.03.04  
DrawGrid, StringGrid etc.


3-9048            ARDA                  2002-02-05 20:31  2002.03.04  
Кодировка


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


14-9269           mvg_first             2002-01-10 20:32  2002.03.04  
Есть ли альтернатива АДО при доступе к MS SQL 2000