Доброго времени суток товарищи.
У меня вот какая проблема.
Я открываю файл
Код:
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 Непонимающий?