Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c