справочник

[bill]

Я тут решил написать простенький блоконт-справочник. По замыслу там есть календарь и т.п.
Но с кнопкой удаления у меня приключилась какая-то странная история. В мемо должны записываться все остальное что я не удалил(строку из combobox-потом в новой форме у меня идет как раз сохранение оставшихся строк из combobox в файл ). В него записывается и так не все а при удалении/ записывании в новый файл не выдается ничего?
В чем проблема? Заранее благодарен за ответ.
Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var f,g:textfile; a:string; i:integer;
begin
n:=combobox1.text;
combobox1.DeleteSelected;
assignfile(f,'1.txt');
reset(f);
while not eof(f) do begin
readln(f,a);
for i:=1 to ComboBox1.Items.Count do // оставшиеся строки в комбе
if pos(combobox1.items[i],a)=1 then
memo2.Lines.Add(a);
end;
closefile(f);
assignfile(g,'1.txt');
rewrite(f);
append(f);
for i:=1 to memo2.Lines.Count do
write(f,memo2.lines[i]);closefile(f);
end;

[Virtson]

а вот теперь сам подумай что ты написал ..
посиди и прокоментируй каждую стоку )

[bill]

Вот я немного переделал алгоритм + добавил коменты, но суть все та же
В коментах написано построчно что как по идее должно работать и там же отмечено что где не работает.
Помогите, пожалуйста.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var f,g:textfile; a:string; i:integer;
begin
n:=combobox1.text;
combobox1.Items.Delete(yu); //удаляю выбранную строку (yu) присваиваю значение выбранной строки в оnclick
assignfile(f,'1.txt'); // открываю файл в котором содержится инфа
reset(f); // чтение из него
while not eof(f) do begin // цикл чтение до конца файла
readln(f,a);//считываю строку из файла просто в строку
for i:=1 to ComboBox1.Items.Count do // цикл количества строк
if pos(combobox1.items.Text[i],a)=1 then
memo2.Lines.Add(a); // если позиция этой продстроки встречающейся в строке а=1 тогда добавляем инфу этой строки в memo
end; // !!!!!(там в memo записывается почему то только первая строка )!!!!
closefile(f);
assignfile(g,'1.txt');
rewrite(f); // удаляет и создает новый файл с таким же именем
append(f); //открываю для добавления
for i:=1 to memo2.Lines.Count do // опять же цикл количества строк
write(f,memo2.lines[i]);closefile(f); // должен добавить вфайл инфу и закрыть его
end;

[bill]

фуф. сделал. Вот если кому понадобиться:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var f,g:textfile; a:string; i:integer;
begin if combobox1.Text<>'' then begin
ty:=combobox1.ItemIndex;
n:=combobox1.Text;
combobox1.Items.Delete(ty);
assignfile(f,'1.txt');
reset(f);
while not eof(f) do begin
readln(f,a);
if pos(n,a)=0 then memo2.Lines.Add(a);
end;
closefile(f);
assignfile(g,'1.txt');
rewrite(f);
append(f);
write(f,memo2.text);closefile(f); memo2.Text:='';
end;
end;