Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

MBo (2002-02-15 12:37:00) [1]
судя по всему, у тебя comma-separated текст.
проще всего можно его прочитать в TStrings.commatext - при этом куски между запятыми будут на отдельных строках.
пример
memo1.lines.commatext:=strsip;
и потом делай, что хочешь- ненужное удаля и т.п.
можно и в Stringlist, там обработать и нужное внести в memo

Michael C (2002-02-15 11:38:00) [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);

Digitman (M) (2002-02-15 11:33:00) [3]
код где ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »