Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
ВнизПроверка на наличие файлов!!!! Найти похожие ветки
← →
antonyo (2002-05-25 10:52) [0]Как сделать так чтобы при запуске программы она проверяла наличие всех нужных файлов и если не найден хотя бы один, то она выдавала бы сообщение о не хватки файлов и зарывала себя даже не показав главного окна!!!
← →
Anatoly Podgoretsky (2002-05-25 11:04) [1]FileExists
← →
rhf (2002-05-25 11:07) [2]Можно римерно так ... писать надо в файле самого проекта, тот который project.dpr
program Project1;
uses
... , sysUtils, ... ;
{$R *.res}
begin
if fileExists("1.txt") and
fileExists("2.txt") and
...................
fileExists("n.txt") then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
// сообщение об ошибке
end;
end.
← →
Tahion (2002-05-25 12:58) [3]Я делаю так:
var s:string;
begin
GetDir(s,0);
if s[length(s)"<>"\" then s:=s+"\";
if not FileExists(s+"nameOfFile") then
Showmessage("File "+s+"nameOfFile not exists!!!"
end;
← →
Tahion (2002-05-25 12:59) [4]Я делаю так:
var s:string;
begin
GetDir(s,0);
if s[length(s)"<>"\" then s:=s+"\";
if not FileExists(s+"nameOfFile") then
Showmessage("File "+s+"nameOfFile not exists!!!");
end;
← →
antonyo (2002-05-29 10:56) [5]>rhf
Еще не факт что fileexists будет работать!!!Если потом проинсталировать программу на другом компе то прога выдаст сообщение что не найдены файлы (допустим запуск с рабочего стола)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c