Следить за изменениями в переменной integer

[Roman324]

Всем привет. Голова что-то не варит уже.
Собственно, подскажите, пожалуйста, как это реализовать.

Получаю размер файла и записываю в переменную типа интеджер. В дальнейшем мне надо следить, если изменится значение интеджер, то выполнять некое действие. И так n-ое кол-во раз.

Спасибо.

[Yurk@]

бросай в таймер функцию получения размера файла и сравнивания с предыдущим размером

[Stilet]

Зачем? Какую цель преследуешь мониторя переменку?

[Roman324]

Сообщение от Yurk@

бросай в таймер функцию получения размера файла и сравнивания с предыдущим размером

Да так и делаю. Но что-то не работает

procedure TDataModule1.TimercheckrazmerTimer(Sender: TObject);
var
 size: integer;
begin
 size:=Trunc(GetFileSizeMB('C:\Users\1\Desktop\123.txt'));

 if size<>size then
 GeneralForm.Memo1.Lines.Add('Размер изменён')
end;

[Roman324]

Сообщение от Stilet

Зачем? Какую цель преследуешь мониторя переменку?

Мне надо при изменении тхт файла выполнять некую функцию.

[Yurk@]

1. а не смущает ли тебя одинаковые пременные size (даже если одна из них глобальная, а вторая нет) ?
2. я там предпологаю что в имени GetFileSizeMB последние 2 символа (MB) обозначают "мегабайты" ?
если да - то в таком случае у тебя размер должен измениться в "мегабайтах", а не "килобайтах\байтах\битах" для срабатывания реакции

[Roman324]

Сообщение от Yurk@

1. а не смущает ли тебя одинаковые пременные size (даже если одна из них глобальная, а вторая нет) ?
2. я там предпологаю что в имени GetFileSizeMB последние 2 символа (MB) обозначают "мегабайты" ?
если да - то в таком случае у тебя размер должен измениться в "мегабайтах", а не "килобайтах\байтах\битах" для срабатывания реакции

1. Пробовал разные переменные. Узнавал размер, записывал в size. Потом из size записывал в size2 и потом их сравнивал. Может не так что-то делал.
2. Размер в байтах узнаю.

[Stilet]

надо при изменении тхт файла

А с чего ты взял что при изменении обязательно размер изменится?

Roman324

Думаю что использование в таймере функции FindFirst или использование FindFirstChangeNotification тебе помогут.

[Yurk@]

ну тогда показывайте что в функции GetFileSizeMB

[Roman324]

function GetFileSizeMB(AFileName : String) : Double;
var
  F : TSearchRec;
begin
  Try
    If FindFirst(AFileName,faAnyFile,F) <> 0 Then
  Raise Exception.Create('File not found.');
    Result := F.Size;
  Finally
    FindClose(F);
  End;
end;