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

Вниз

Как в ListBox загрузить из текстового файла...   Найти похожие ветки 

 
menel   (2002-11-19 15:23) [0]

Как в ListBox загрузить из текстового файла строки определенного формата, например начинающиеся с символа #
а все остальные игнорировать.

Спасибо


 
MBo ©   (2002-11-19 15:25) [1]

через readln.
а можно загрузить все, а ненужные удалить


 
menel   (2002-11-19 15:28) [2]

а кусочек кода, в частности удаления, плиз можно...


 
han_malign ©   (2002-11-19 15:30) [3]

while not EOF(inF)do begin
ReadLn(inF,Str);
if((Str<>"")and(Str[1]="#")then ListBox.Items.Add(Copy(Str,2,Length(Str))); ???????????


 
Lord Warlock ©   (2002-11-19 15:32) [4]

Еще непример так:

ListBox1.Items.LoadFromFile("d:\1.txt");
i:=0;
while i<ListBox1.Items.Count do
if Copy(ListBox1.Items[i],1,1)="#" then
ListBox1.Items.Delete(i)
else
Inc(i);


 
Anatoly Podgoretsky ©   (2002-11-19 15:32) [5]

ListBox.Items.Delete[i]


 
han_malign ©   (2002-11-19 15:33) [6]

Перед while можно еще сделать ListBox.Items.Clear;
З.Ы Надеюсь где end для while()do begin догадаешься поставить?


 
han_malign ©   (2002-11-19 15:35) [7]

что то я совсем по русски изъясняться разучился :))


 
menel   (2002-11-19 15:37) [8]

Спасибо, попробую!


 
Lord Warlock ©   (2002-11-19 15:41) [9]

han_malign © (19.11.02 15:33)

> Перед while можно еще сделать ListBox.Items.Clear;

Это можно


> З.Ы Надеюсь где end для while()do begin догадаешься поставить?

это не нужно


> Anatoly Podgoretsky © (19.11.02 15:32)
> ListBox.Items.Delete[i]


Все-таки ListBox.Items.Delete(i)


 
SI-riuss ©   (2002-11-19 15:47) [10]

А проблема загрузить или отфильтровать?
Лучше вначале загрузить все, а потом фильтруем (например дело обстоит в Memo1):

var b: integer;
begin
for b:=0 to Memo1.Lines.Count do
if Copy(Memo1.Lines[b],1,1)<>"#" {или какая другая загогулина} then {... стираем строчку}
...
end;


 
SI-riuss ©   (2002-11-19 15:51) [11]

Пардон, ребята. Почему у меня Delete(i) стирает i-число строк, начиная с первой?


 
MBo ©   (2002-11-19 15:52) [12]

>SI-riuss
потому что неправильно стираешь
for b:=Memo1.Lines.Count-1 downto 0 do ...


 
Lord Warlock ©   (2002-11-19 15:53) [13]


> SI-riuss © (19.11.02 15:51)


С Delete(i) нельзя использовать цикл for


 
MBo ©   (2002-11-19 15:58) [14]

>Lord Warlock
можно


 
SI-riuss ©   (2002-11-19 16:00) [15]

> Lord Warlock
Почему нельзя в цикле???


 
Lord Warlock ©   (2002-11-19 16:01) [16]


> SI-riuss © (19.11.02 16:00)


Да можно, можно! Только обратным перебором как Mbo сказал, забыль просто..


 
SI-riuss ©   (2002-11-19 16:05) [17]

Мысль понял, только я спрашивал не про данный случай, а вообще. У меня был такой гимор



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

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

Наверх




Память: 0.5 MB
Время: 0.011 c
3-92883
Алик
2002-11-08 12:54
2002.11.28
Проблемка


1-93061
Ag2002
2002-11-15 19:17
2002.11.28
Удаление файла


3-92855
MaxM
2002-11-05 23:04
2002.11.28
---|Ветка была без названия|---


1-93059
mazepa
2002-11-16 09:09
2002.11.28
stringgrid


3-92886
Miss
2002-11-11 07:37
2002.11.28
Поиск