| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Доступ к файлу [D6, WinXP]
-[ HAWK ]- © (2005-10-22 09:40:00)Привет, ребята… У меня возникла такая проблема. У меня программа использует инфу из текстового файла, если пользователь открывает его и вносит изменения, то прога начинает глючить. Так вот, скажите пожалуйста, как сделать так, чтобы при его изменении выдавалась ошибка, мол файл изменен и прога не запустится…. Если можно – примерчик!
-[ HAWK ]- (2005-10-24 06:50:00) [1]grau, ну тогда предложи твое решение этой проблемы...............
grau (2005-10-23 19:48:00) [2]solidary to Anatoly Podgoretsky © (22.10.05 13:49) [4]
2 -[ HAWK ]-
> irishka001, я бы предпочел, чтобы все ссылалось на размер
> файла....
Ага. А я изменю файл так, что размер не поменяется. И что?
-[ HAWK ]- (2005-10-23 18:13:00) [3]irishka001, я бы предпочел, чтобы все ссылалось на размер файла....
irishka001 (2005-10-22 14:02:00) [4]Кстати, если надо добавить строку в файл можно использовать
s.savetofile('file.txt');
s.free;
Подойдет?
irishka001 (2005-10-22 13:59:00) [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.
Anatoly Podgoretsky (2005-10-22 13:49:00) [6]Надо исправить ошибки программы.
-[ HAWK ]- (2005-10-22 12:27:00) [7]Sergey Masloff, я теоритически понял что ты имеешь ввиду, но на практике я не могу это осуществить...... Поэтому помоги с примером, плиз!
nt (2005-10-22 11:49:00) [8]> Так вот, скажите пожалуйста, как сделать так, чтобы при
> его изменении выдавалась ошибка, мол файл изменен и прога
> не запустится….
это пипец, если все начнут так делать.
Sergey Masloff (2005-10-22 09:50:00) [9]Считай контрольную сумму и записывай ее в начале файла. При открытии считай ее заново и сравнивай с тем что записано. Настолько элементарно что пример тут просто неуместен.
| |
