[Alexandrdc]

Доброго времени суток.Объясните мне , можно ли как то запрограммировать поле Edit так , что б когда вводишь в него определенное слово , например, VIZIT (название домофона ) выскакивала форма. Пытался осуществить это через оператор CASE , но ничего не вышло. Делал это так :

var s:string;
begin

case s of
VIZIT: Form1.show;
end;

Ничего не получилось.Помогите пожалуйста

[YVitaliy]

В событии Edit#.OnChange проверяй текст в поле:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='VISIT'  then showmessage('VISIT');
end;

[Alexandrdc]

Большое спасибо !

[Snake22]

в дельфи кейз только для цифр.
используй выше приведенный пример
if .. then ..
else if .. then ..
else if .. then ..
else if .. then ..
... =)

[PS11011010]

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

В событии Edit#.OnChange проверяй текст в поле:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='VISIT'  then showmessage('VISIT');
end;

А разве можно вот так прям всю строку сравнивать?

Я бы посоветовал (на всякий случай) функцию

Код:

AnsiCompareText(const S1, S2: String): Integer

Сравнивает две строки S1 и S2 без учёта регистра символов. Возвращает значение <0 если S1<S2, 0 если S1=S2, >0 если S1>S2.

[YVitaliy]

А разве можно вот так прям всю строку сравнивать?

Можно и нужно. Если бы ТС нужно было сравнивать строки без учета регистра, то я бы рекрмендовал ф-цию UpperCase (или LowerCase):

Код:

if Uppercase(Edit1.Text) = UpperCase('STRING') then showmesage(lowercase(message));

а то какие-то AnsiReplaceString, AnsiCompareString... Как кому удобнее. Здесь нужно проверять только одно условие...

[angvelem]

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

Можно и нужно...

Правилом "хорошего" тона, как раз и считается сравнение без учёта регистра, обратное используется гораздо реже.

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

то я бы рекрмендовал ф-цию UpperCase (или LowerCase):

Тогда уж: AnsiUpperCase (или AnsiLowerCase) - так спокойнее