|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#2
|
||||
|
||||
Код, конечно, замечательный - особенно эта строка:
Код:
tmr4.Enabled:=True; Код:
procedure TForm1.tmr4Timer(Sender: TObject); var I : Integer; begin for I := 0 to mmo1.Lines.Count-1 do if (pos('CODE', mmo1.Lines.Strings[i]) > 0) then edt1.Visible := True else if (pos('GOODBYE', mmo1.Lines.Strings[i]) > 0) or (pos('MENU', mmo1.Lines.Strings[y1]) > 0) then edt1.Visible := False; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |