Форум: "Основная";
Поиск по всему сайту: 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.75 MB
Время: 0.016 c
14-9286           Alx2                  2002-01-18 08:09  2002.03.04  
Святая вода, или тема на злобу дня


6-9250            ev                    2001-12-07 20:20  2002.03.04  
http


1-9123            cypher                2002-02-16 16:00  2002.03.04  
Весь инет перекопал... =(


3-9051            vopros                2002-02-06 11:20  2002.03.04  
А как в запросе ссуммирровать вычисляемые поля ?


7-9304            amamed_3071           2001-11-22 08:49  2002.03.04  
Програмно читать Barcod