Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.015 c
1-9193            kingdom               2002-02-14 15:38  2002.03.04  
Как узнать, что форма минимизирована???


4-9330            Hair_Fly              2001-12-17 13:38  2002.03.04  
МАСТЕРА, плз, помогите разобраться с CreateProcessWithLogonW!


1-9239            Андре                 2002-02-15 19:22  2002.03.04  
The Bat !


4-9352            BH                    2002-01-04 09:00  2002.03.04  
Перемещение файлов и папок


14-9285           Геннадий              2002-01-18 07:51  2002.03.04  
Ребята, подскажите где можно скачать бесплатную версию InterBase