[govorun]

Через Listbox выбираю один из нескольких файлов

Код:

SendMessage(ListBox1. handle,LB_DIR,0,integer(pchar('*.txt')));

закидываю его в dbmemo

Код:

dbMemo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);

и загружаю его в базу

Как сделать, чтобы после команды POST выбранный файл удалялся?

[lmikle]

DeleteFile() спасет отца русской демократии.

[poli-smen]

Сообщение от govorun

Через Listbox выбираю один из нескольких файлов

Код:

SendMessage(ListBox1. handle,LB_DIR,0,integer(pchar('*.txt')));

закидываю его в dbmemo

Код:

dbMemo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);

и загружаю его в базу

Как сделать, чтобы после команды POST выбранный файл удалялся?

На событии AfterPost (или BeforePost) вызывай DeleteFile:

Код:

procedure TForm1.ADOTable1AfterPost(DataSet: TDataSet);
begin
  DeleteFile(ListBox1.Items[ListBox1.ItemIndex]);
end;