Leer inicio de un string

[feliz-58]

Saludos, Consulta rápida....

imaginemos que tengo dentro de un edit lo siguiente:
//ClubDelphi

a manera de If...Then...Else como puedo definir que si en el edit los dos primeros espacios son exactamente esos dos símbolos // por ejemplo me muestre un mensaje diciendo Hola y que de lo contrario diga Adiós.

Me di a entender? solo necesito identificar el inicio de una cadena para a partir de esa información establecer condiciones

[ecfisa]

Empezado por feliz-58

Saludos, Consulta rápida....

imaginemos que tengo dentro de un edit lo siguiente:
//ClubDelphi

a manera de If...Then...Else como puedo definir que si en el edit los dos primeros espacios son exactamente esos dos símbolos // por ejemplo me muestre un mensaje diciendo Hola y que de lo contrario diga Adiós.
...

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

[BDWONG]

Parece que se me adelanto eficsia
pero tambien existen estas posibles soluciones

Código Delphi [-]
var
  cadena:String;
begin
   cadena:='//ClubDelphi';

   //Opcion 1: comparando las dos primeras posiciones de la cadena
   if (cadena[1]='/') and (cadena[2]='/') then WriteLn('Hola')
   else WriteLn('Adios');

   //OpCION 2: Usando la funcion Pos que nos regresa la posicion donde se encuentra la "//"
   //si nos devuelve 1 esta al inicio de la cadena
   if  Pos('//',cadena)=1 then WriteLn('Hola')
   else WriteLn('Adios');

   //Opcion 3: Usanodo AnsiStartsStr nos devuevel true o false si una palabra se encuentra al inicio de la cadena
   if AnsiStartsStr('//',cadena) then WriteLn('Hola')
   else WriteLn('Adios');

   ReadLn;
end.

Saludos...

[ecfisa]

Hola.

Es correcto BDWONG

Otras alternativas:

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

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

Saludos

[fredo]

commo dato los strings para plataformas moviles parten en la posicion cero, para macos y windows en la 1....

ojo con eso salu2

[Ñuño Martínez]

Empezado por fredo

commo dato los strings para plataformas moviles parten en la posicion cero, para macos y windows en la 1....

ojo con eso salu2

Espera, espera, espera: ¿Que qué? O sea, ¿no hay congruencia dentro del lenguaje?

¿Y si estás haciendo algo para móviles y escritorio (una bilbioteca, por ejemplo), cómo te lo montas?

[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!