Текущий архив: 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