[Gribok]

Доброго времени суток товарищи.
У меня вот какая проблема.
Я открываю файл

Код:

var
st:TMemoryStream;
begin
st:=TMemoryStream.create;
if OpenDialog1.Execute then
st.position:=0;
st.loadfromFile(OpenDialog1.FileName);
Memo1.Lines.LoadFromSTREAM(st);
ST.FREE;
end;

Вот мы записали в мемо1 данные из txt файла
Теперь в обработчике события
ONChange у компанента Memo1 у меня записан следующий код

Код:

IF Memo1.Text<>'' Then 
Memo3.Text:=BinToStr(AnsiStrToBin(Memo1.Text)) 
Else Memo3.Clear;
Label2.Caption:='Шифруемый текст: ('+IntToStr(Length(Memo1.Text))+' символов)';

Грубо говаря мы щитаем кол-во символов и выводим их в Label а так же в Memo3 выводим данные в бинарном виде

Это все рабеот но когда я отрываю файл в катором хотяб 5 тысяч символос это занимает время пока он пощиает все и тд

Как зделать чтоб сначала проверялось загрузился ли файл или нет а потом уже запускалась процедура ONChange Непонимающий?

[NumLock]

Код:

var
  SaveNotifyEvent: TNotifyEvent;
begin
  if OpenDialog1.Execute then
  begin
    SaveNotifyEvent:=Memo1.OnChange;
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    Label1.Caption:=IntToStr(Length(Memo1.Text));
    Memo1.OnChange:=SaveNotifyEvent;
  end;
end;

[Gribok]

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

Код:

var
  SaveNotifyEvent: TNotifyEvent;
begin
  if OpenDialog1.Execute then
  begin
    SaveNotifyEvent:=Memo1.OnChange;
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    Label1.Caption:=IntToStr(Length(Memo1.Text));
    Memo1.OnChange:=SaveNotifyEvent;
  end;
end;

Я так понел это писать на кнопку открытия файл!
Я записал всеравно не изменилось! Долго!

[Aristarh Dark]

Потому что опечатался NumLock, должно быть так:

Код:

var
  SaveNotifyEvent: TNotifyEvent;
begin
  if OpenDialog1.Execute then
  begin
    SaveNotifyEvent:=Memo1.OnChange;
    Memo1.OnChange:=nil;
 и далее по тексту

[NumLock]

ага, очепятка вышла