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

[drama22]

Zitat von 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

here is full code

Delphi-Quellcode:

procedure mainform.buttonclick(Sender: TObject);
begin
  if Length(Trim(textinput.Text)) < 33 then
  begin
Application.MessageBox('invalid Youtube link', 'Info!', mb_iconWarning);
  end else
  if not AnsiStartsStr('http://youtube.com', textinput.Text) then
  begin
   Application.MessageBox('Thats not youtube link', 'Info!', mb_iconWarning);
  end else
  begin
MessageDlg('done', mtInformation, [mbOK],0);
close;
  end;
end;

but always get Thats not youtube link

[Sir Rufo]

Sorry to hear that but I think your delphi is broken.

if this

Delphi-Quellcode:

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

and that

Delphi-Quellcode:

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

Always shows the "Thats not youtube link" message, then your delphi must be broken.

[drama22]

Zitat von Sir Rufo:

Sorry to hear that but I think your delphi is broken.

if this

Delphi-Quellcode:

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

and that

Delphi-Quellcode:

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

Always shows the "Thats not youtube link" message, then your delphi must be broken.

my delphi version is broken ? or the unit of System.StrUtils ?