[Помогите!] Удалить строку из текстовика... (Delphi только начал учить)

[WreckeR/9/2]

Имеется текстовик с названиями других текстовиков в каждой строке
По кнопке "Удалить" в этом текстовике должна удалиться строка с именем файла, а так же сам файл(текстовик) который записан в ней.

Код кнопки "Удалить"...

procedure TForm1.Button3Click(Sender: TObject);
var d:string;
begin
 d := ListBox1.Items[ListBox1.ItemIndex];
 DeleteFile(d+'.txt');

  end;

в общем, нужно добавить удаление строки...
помогите пожалуйста

[VeTaL_UA]

Странный у тебя код... Ну и ладно. Вот твой код с добавлением удаления строки:

procedure TForm1.Button3Click(Sender: TObject);
var 
i:integer
d:string;
begin
d:=ListBox1.Items[ListBox1.ItemIndex];
 for i=0 to ListBox1.Count-1 do
  begin
   if ListBox1.Items[i]=d then
    begin
    ListBox1.Items.Delete(i);
    DeleteFile(d+'.txt');
    end;
  end;
end;

[WreckeR/9/2]

http://zhyk.ru/forum/showthread.php?t=267949
кому интересно что получилось...

[SCratORS]

а так не проще?

var
d:string;
begin
d:=ListBox1.Items[ListBox1.ItemIndex];
DeleteFile(d+'.txt');
ListBox1.DeleteSelected;
end;

[VeTaL_UA]

Цитата: Сообщение от SCratORS а так не проще?

Проще. Я прост сначала не понял смысл задачки. А в аццке я ему точно так и написал...