Aquí una pequeña variación de la función de eficsia evitando usar excepciones
Código Delphi
[-]function foo(const s: string): string;
const
MSG: array [Boolean] of string = ('Adios', 'Hola');
begin
Result := MSG[(Length(s)>=2) and (s[1] = '/') and (s[2] = '/')];
end;
begin
Writeln(foo('sinBarras'));
Writeln(foo('//conBarras'));
ReadLn;
end.