Все что после переменной не важно

[celovec]

message = 'Андрей Федоров 23';
Edit1.text:='Андрей Федоров';
if (Edit1.Text = message) then beep();

Есть условие. Если Edit1.text = message то beep()

Подскажите пожалуйста как его немного усовершенствовать. Почему-то даже не получается сформулировать задачу.

Тоесть в таких вариантов должен звучать beep:

message = 'Андрей Федоров 23';
Edit1.text:='Андрей Федоров';
или
message = 'Андрей Федоров23';
Edit1.text:='Андрей Федоров';
или
message = 'Андрей23';
Edit1.text:='Андрей';
или
message = 'Андрей 23';
Edit1.text:='Андрей';

Спасибо.

[OlegVE]

Здравствуйте

if Pos(Edit1.text, message) > 0 then beep;
или
if Pos(message, Edit1.text) > 0 then beep;

Ваш вопрос можно скорее назвать: Найти подстроку в строке.
До свидания

[MoBLer]

проверка

if posEx(message,edit1.Text)<>0 then beep();

но учтите что если будет

message = '23 4Андрей 23';
Edit1.text:='Андрей';

так тоже сработает
но если нужно именно с начало строки то

if copy(message,1,length(edit1.Text))=edit1.Text
then

нужно так

[celovec]

Спасибо большое.

[Моторокер]

А лучше занести все варианты в массив и проверять условия в цикле.