Leer inicio de un string

[ecfisa]

Hola.

Dije fué una respuesta rápida (al vuelo) por lo que no incluí comprobaciones Pero se puede verificar que la cadena a enviar esté vacía externamente como bién lo ha expuesto Agustín, o también dentro de las mismas funciones.

Ejemplo:

Código Delphi [-]
function foo(const s: string): string;
const
  MSG: array [Boolean] of string = ('Adios', 'Hola');
begin
   if s = '' then raise Exception.Create('cadena vacía');
   Result := MSG[(s[1] = '/') and (s[2] = '/')];
end;

Saludos