Janilabo | StartsWith() [Simba]

function StartsWith(s, str: string): Boolean;
begin
  if (s <> '') and (str <> '') then
    Result := (s = Copy(str, 1, Length(s)));
end;

begin
  ClearDebug;
  if StartsWith('TE', 'TEST') then
    WriteLn('YEP!')
  else
    WriteLn('NOPE.');
end.