Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Delphi and Text input

  Alt 31. Okt 2014, 22:30
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
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat