Delphi and Text input

[Sir Rufo]

Zitat von drama22:

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

Well if the string starts with http://youtube.com , why do you show the message? Show the message if it NOT starts with. Simple logic