[zloy]

Не могу придумать логическую операцию,чтобы она не соответствовыва этому виду

if Edit1.Text=('12345')
then ShowMessage('YES')
else ShowMessage('NO');

все время сводиться в if и then и подобным такие как whileи.т.д

[Aristarh Dark]

Что-то вопрос не очень понятен

[Holy]

Отвечаю, как понял:

Код:

function AnsiSameStr(const S1: string; const S2: string): Boolean;
function AnsiSameText(const S1: string; const S2: string): Boolean;

[Navi1982]

Тоже не совсем понял вопрос... но есть еще такой оператор как:

Код:

...
Var ch:char;
...
Case ch of
'a' : Edit1.Text:='alex';
'g' : Edit1.Text:='gosha';
'z' : Edit1.Text:='zoom';
else
Edit1.Text:='nobody';
end;
...

Но, предупреждаю - работает тока с численными переменными до 4 байт или 1-байтовым типом сhar ! С массивами (включая String) не фурыжет. Хотя в Делфи 6 еще не пробывал. Помница по паскалю.