Delphi and Text input

[drama22]

hi, regarding my previews post iam trying to submit youtube links to other form i done with every thing but one thing has left ,, i want to allow only youtube links to be sent like only youtube links can be submitted i try method to force the text input to have more than 33 chars like this

Delphi-Quellcode:

begin
  if Length(Trim(Textinput.Text)) < 33 then
  begin
Application.MessageBox('Thats not youtube link', 'Info!', mb_iconWarning);
  end

basically this well force to insert text longer than 33 length but thats not the goal ,, is there any function to check if there is youtube url or not ?

[Sir Rufo]

Maybe if the text starts with

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

[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

[Sir Rufo]

1. check if the string starts with http:// and remove it (temporary variable)
2. get all characters from the temporary variable until the first / and check if that is equal to youtube.com or ends with .youtube.com

[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 ?