Цитата:
|
Сообщение от 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;