SmartPascal AnsiStartsStr Function Returns true if a string starts with a substring StrUtils unit

function AnsiStartsStr ( const Needle, Haystack : string ) : Boolean;

Description The AnsiStartsStr function looks for a Needle string at the start of a Haystack string, returning true if it finds it. Otherwise false.   It is a Case sensitive command. Related commands AnsiContainsStr Returns true if a string contains a substring AnsiEndsStr Returns true if a string ends with a substring AnsiContainsText Returns true if a string contains a substring, case insensitive		Example code : A simple example // Full Unit code. // ----------------------------------------------------------- // You must store this code in a unit called Unit1 with a form // called Form1 that has an OnCreate event called FormCreate.   unit Unit1;   interface   uses   StrUtils,   // Unit containing the AnsiStartsStr command   Forms, Dialogs;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   end;   var   Form1: TForm1;   implementation {$R *.dfm} // Include form definitions   procedure TForm1.FormCreate(Sender: TObject); var   haystack : AnsiString; begin   haystack := 'The cat sat on the mat';   // Note that AnsiStartsStr is case sensitive   if AnsiStartsStr('THE cat', haystack)   then ShowMessage('''THE cat'' starts the sentence')   else ShowMessage('''THE cat'' does not start the sentence');   if AnsiStartsStr('The cat', haystack)   then ShowMessage('''The cat'' starts the sentence')   else ShowMessage('''The cat'' does not start the sentence'); end;   end. Hide full unit code    'THE cat' does not start the sentence    'The cat' starts the sentence