Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
Доступ к файлу Найти похожие ветки
← →
-[ HAWK ]- © (2005-10-22 09:40) [0]Привет, ребята… У меня возникла такая проблема. У меня программа использует инфу из текстового файла, если пользователь открывает его и вносит изменения, то прога начинает глючить. Так вот, скажите пожалуйста, как сделать так, чтобы при его изменении выдавалась ошибка, мол файл изменен и прога не запустится…. Если можно – примерчик!
← →
Sergey Masloff (2005-10-22 09:50) [1]Считай контрольную сумму и записывай ее в начале файла. При открытии считай ее заново и сравнивай с тем что записано. Настолько элементарно что пример тут просто неуместен.
← →
nt (2005-10-22 11:49) [2]> Так вот, скажите пожалуйста, как сделать так, чтобы при
> его изменении выдавалась ошибка, мол файл изменен и прога
> не запустится….
это пипец, если все начнут так делать.
← →
-[ HAWK ]- © (2005-10-22 12:27) [3]Sergey Masloff, я теоритически понял что ты имеешь ввиду, но на практике я не могу это осуществить...... Поэтому помоги с примером, плиз!
← →
Anatoly Podgoretsky © (2005-10-22 13:49) [4]Надо исправить ошибки программы.
← →
irishka001 © (2005-10-22 13:59) [5]Если тебе надо проверять конретную строку в файле то это можно сделать так:
procedure TForm1.Button5Click(Sender: TObject);
var
s :TStringList;
n : integer;
begin
s:=tstringlist.create;
s.loadfromfile("d:\1.txt");
n:=4;
if s[n]<>"value" then
begin
MessageDlg("Неверные исходные данные",mtInformation,[mbOk],0);
exit;
end;
end;
end.
← →
irishka001 © (2005-10-22 14:02) [6]Кстати, если надо добавить строку в файл можно использовать
s.savetofile("file.txt");
s.free;
Подойдет?
← →
-[ HAWK ]- © (2005-10-23 18:13) [7]irishka001, я бы предпочел, чтобы все ссылалось на размер файла....
← →
grau © (2005-10-23 19:48) [8]solidary to Anatoly Podgoretsky © (22.10.05 13:49) [4]
2 -[ HAWK ]-
> irishka001, я бы предпочел, чтобы все ссылалось на размер
> файла....
Ага. А я изменю файл так, что размер не поменяется. И что?
← →
-[ HAWK ]- © (2005-10-24 06:50) [9]grau, ну тогда предложи твое решение этой проблемы...............
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.039 c
