Leer inicio de un string

[ecfisa]

Hola.

Como 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

[[AgustinOrtu]]

De todos modos a mi no me parece mal que se implemente asi

Siempre me gusto la filosofia de "diseño por contrato", basicamente la funcion cumple con su parte siempre y cuando el que la invoca cumpla con la suya

En este caso las precondiciones son: La cadena no debe estar vacia y en el caso de una de las versiones que tiene una condicion or debe tener una longitud mayor o igual a 2 caracteres

Si las precondiciones se cumplen, la funcion "foo" te promete cumplir con las postcondiciones: Decirte True o False si un string comienza con dos determinados caracteres

[BDWONG]

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.