Доступ к файлу

← →
-[ 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;
Подойдет?

irishka001, я бы предпочел, чтобы все ссылалось на размер файла....

solidary to Anatoly Podgoretsky © (22.10.05 13:49) [4]

2 -[ HAWK ]-
> irishka001, я бы предпочел, чтобы все ссылалось на размер
> файла....

Ага. А я изменю файл так, что размер не поменяется. И что?

grau, ну тогда предложи твое решение этой проблемы...............

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