Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

И ещё вопрос...   Найти похожие ветки 

 
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



Страницы: 1 вся ветка

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-9115
Gene Green
2002-02-16 00:23
2002.03.04
DrawGrid, StringGrid etc.


14-9278
Сергей Чурсин
2001-08-07 19:14
2002.03.04
---|Ветка была без названия|---


4-9344
ebeden
2002-01-06 05:32
2002.03.04
Win Api


6-9257
4ainick
2001-12-18 10:07
2002.03.04
Понял что совсем ничего непонял......


1-9122
vic_vm
2002-02-16 16:46
2002.03.04
Вопрос по Excel.