Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Доступ к файлу   Найти похожие ветки 

 
-[ 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
4-1126089449
Хинт
2005-09-07 14:37
2005.11.13
Проблема с ReadProcessMemory


3-1128068250
KeyC
2005-09-30 12:17
2005.11.13
Direct access to MS Access


2-1129816409
проходил_мимо_решил_зайти
2005-10-20 17:53
2005.11.13
Мемо и печать


14-1129840864
LordOfRock
2005-10-21 00:41
2005.11.13
Вот, диалог в поезде услыхал...


14-1129697671
boalse
2005-10-19 08:54
2005.11.13
Час суда и т.п.