И правда. Написал в TForm1.FormCreate(Sender: TObject);
DBFile:=TDBF.Create(Form1);
И вроде заработал компонент. !!!! Премного благодарен!!!!
Вылез другой косяк. С закрытием текстового файла.
открываю по кнопке так
//----------------------------------------
if not FileExists(LogFileName) then
begin
FileHandle := FileCreate(LogFileName);
FileClose(FileHandle);
end;
AssignFile(TxtFile, LogFileName);
по событию записываю
Append(TxtFile);
Write(TxtFile, ReseivString );
Flush(TxtFile);
закрываю по кнопке
CloseFile(TxtFile);
Так вот если не было события записи, то при закрытии
>Debuger exception notification
>Project ....exe raised exception class EInOutError with message 'I/O error 103'.
>Process stopped.
Что то еще неправильно понимаю?
|