Leer inicio de un string

[feliz-58]

Empezado por ecfisa

Hola, respuesta rápida

Código Delphi [-]
function foo(const s: string): string;
begin
  if (s[1] = '/')and(s[2] = '/') then
    Result := 'Hola'
  else
    Result := 'Adios';
end;

O también:

Código Delphi [-]
function foo(const s: string): string;
const
  MSG: array[Boolean] of string = ('Adios','Hola');
begin
  Result := MSG[(s[1] = '/')and(s[2] = '/')];
end;

Uso:

Código Delphi [-]
 
  ShowMessage(foo('//ClubDelphi'));

Saludos

Agradecimiento Rápido. Saludos!