Ver Mensaje Individual
  #2  
Antiguo 16-03-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por feliz-58 Ver Mensaje
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 16-03-2016 a las 22:19:18.
Responder Con Cita