Как убить процесс?

[coolle]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FileExists('file.txt')=false then
begin
FileCreate('file.txt');
FileClose('file.txt');
end;
Memo1.Lines.LoadFromFile('file.txt');
end;

Ошибка:

[Error] Unit1.pas(79): Incompatible types: 'Integer' and 'String'

В чём проблема???

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

Код правильный но работать не будет.
Зачем тебе именно создавать файл во во время проверки?

дак а тогда прверять не чего будет и снова ошибка.

[Stilet]

и снова ошибка.

Чего это?

if FileExists('file.txt') then файл существует и его можно прочесть

Но учти - он может занят быть, и вот как раз на эту ошибку ты и попадаешься скорее всего. Тут нужно еще проверять не занят ли файл, т.е. попытаться открыть его на запись.

Ты скажи что ты хочешь написать уверен есть куча других способов понадежнее.

[Utkin]

Начнем с того, что FileCreate это вообще-то функция.

FileClose(FileCreate('file.txt'));

Вообще, на форуме есть в начале хитрая строчка:
Правила форума | Исходники Delphi | Основы Delphi | Блог программистов | Рассылка | Конкурс программистов!
Вам это ни о чем не говорит?

Тут нужно еще проверять не занят ли файл, т.е. попытаться открыть его на запись.

Он у него и так занят - когда создает, то не закрывает .

[DeKot]

Как сказал Stilet

Зачем тебе именно создавать файл во во время проверки?

Имеется ввиду в таймере.
Делай проверку наличия и создание (по необходимости) файла при инициализации программы после запуска (в том же OnCreate).
Если Вы не закрываете файл после работы с ним, то фактически создание или редактирование существующего файла происходит в буфере памяти, а на диске файла еще нет (при создании) или изменения не вносятся (при редактировании). Физически создание/изменение файла на диске происходит только после команды закрытия файла из программы.

[coolle]

чем дальше в лес тем больше дров...
я окончательно запутался (((

[Utkin]

Я же тебе дал код - впихни ты его в свой таймер...

[Stilet]

чем дальше в лес тем больше дров...

Ну дык вооружись топром - почитай книги про программирование, а потом уж и пробуй. Все так делают )

[coolle]

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

Я же тебе дал код - впихни ты его в свой таймер...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FileExists('file.txt')=false then
begin
FileClose(FileCreate('file.txt'));
end;
Memo1.Lines.LoadFromFile('file.txt');
end;

Код сработал!!! Спасибо!
Utkin, прочитай мне пожалуйста это FileClose(FileCreate('file.txt'));
не понимаю я как можно в команде закрыть, умудриться создать...

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

Ну дык вооружись топром - почитай книги про программирование, а потом уж и пробуй. Все так делают )

Именно для этого и существуют форумы, чтобы отправлять читать книги да?

[Utkin]

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

Код сработал!!! Спасибо!
Utkin, прочитай мне пожалуйста это FileClose(FileCreate('file.txt'));
не понимаю я как можно в команде закрыть, умудриться создать...

Сам читай . В посте #13 даже сказано где читать. И это, грибы хорошо помогают И иногда зеленый чай с клубникой...

[Stilet]

FileClose(FileCreate('file.txt'));

Здесь сначала выполняется функция FileCreate, которая создает файл, и в параметр функции FileClose передает описание файла.
Это делается сразу без задействования дополнительных переменных.