Проверка Существования Файла

[Lomanu4]

procedure TForm1.FormCreate(Sender: TObject);
begin
    if FileExists(extractfilepath(application.ExeName)+'file.txt') then //Проверка

begin
    ShowMessage('Файл существует!'); //выводим сообщение, что файл существует
end
else
    ShowMessage('Файл не существует!'); //выводим сообщение, что файл не существует
end;

 

[Sascha]

У тебя опять два поста

 

[Lomanu4]

У тебя опять два поста

Подкорректировать нужно,просто поставил как важное сообщение

 

[KildJoi]

Спасибо)

 

[Lomanu4]

Спасибо)

You are Wellcom

 

[Максим]

Очень помогло когда решал проблему с двоящимися пуш уведомлениями через kinvey.

 

[Максим]

Теперь при первом запуске создаю файл, а при последующих проверяю его наличие.