Delphi and Text input

[drama22]

Zitat von Sir Rufo:

Maybe if the text starts with

• youtube.com/
• http://youtube.com/

i think about that but iam stuck with coding i try somthing like that

Delphi-Quellcode:

if Length(Trim(textinput.Text)) < 33 then
  begin
Application.MessageBox('Thats not youtube link', 'Info!', mb_iconWarning);
  end else
  if AnsiStartsStr('http://youtube.com', textinput.Text) then
  begin
   Application.MessageBox('Thats not youtube link', 'Info!', mb_iconWarning);
  end

but i got Thats not youtube link all the way cant send