Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Код:

function isin(podstroka,stroka:string):boolean;
begin
if pos(podstroka,stroka)=0 then isin:=false else isin:=true; 
end;

а типа

Код:

isin := pos(podstroka, stroka) = 0

- не труЪ?

-------------------------------------------------------------

Цитата:

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

Ну, до этого я и сам догадался. Но желательно, чтобы пользователь вообще не мог ставить курсор в поле TMemo...

Memo1.Enabled := false;