[Gribok]

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

Код:

1 2 3 4 5 6 7 8 9 10

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 у меня записан следующий код

Код:

1 2 3 4

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

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

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

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

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11

var   <font color="#ff0000">SaveNotifyEvent: TNotifyEvent;</font> begin   if OpenDialog1.Execute then   begin     <font color="Red">SaveNotifyEvent:=Memo1.OnChange;</font>     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);     Label1.Caption:=IntToStr(Length(Memo1.Text));     <font color="#ff0000">Memo1.OnChange:=SaveNotifyEvent;</font>   end; end;

[Gribok]

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

Код:

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

[Aristarh Dark]

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

Код:

1 2 3 4 5 6 7 8

var   SaveNotifyEvent: TNotifyEvent; begin   if OpenDialog1.Execute then   begin     SaveNotifyEvent:=Memo1.OnChange; <font color="Red">    Memo1.OnChange:=nil;</font>  и далее по тексту

[NumLock]

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