|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверить выгрузился загрузился ли файл или нет!
Доброго времени суток товарищи.
У меня вот какая проблема. Я открываю файл Код:
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; Теперь в обработчике события ONChange у компанента Memo1 у меня записан следующий код Код:
IF Memo1.Text<>'' Then Memo3.Text:=BinToStr(AnsiStrToBin(Memo1.Text)) Else Memo3.Clear; Label2.Caption:='Шифруемый текст: ('+IntToStr(Length(Memo1.Text))+' символов)'; Это все рабеот но когда я отрываю файл в катором хотяб 5 тысяч символос это занимает время пока он пощиает все и тд Как зделать чтоб сначала проверялось загрузился ли файл или нет а потом уже запускалась процедура ONChange Непонимающий? |
#2
|
||||
|
||||
Код:
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; Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
Я так понел это писать на кнопку открытия файл! Я записал всеравно не изменилось! Долго! |
#4
|
||||
|
||||
Потому что опечатался NumLock, должно быть так:
Код:
var SaveNotifyEvent: TNotifyEvent; begin if OpenDialog1.Execute then begin SaveNotifyEvent:=Memo1.OnChange; Memo1.OnChange:=nil; и далее по тексту Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
||||
|
||||
ага, очепятка вышла
Пишу программы за еду. __________________ |