Sockets-Reconocer una cadena de texto.

[DarkByte]

Muxas gracias a los dos!!, voy aprobarlo y os kuento, ok??. Por cierto, Viet, no t explicaste mal, sino que yo soy algo ignorante .

Muxas gracias
volveré con la respuesta

[DarkByte]

Hola, hoy el vuelto a probar el código, ya que la última vez se me olvidó responder. He usado los dós codigos:

Código Delphi [-]
  r := (LeftStr(s,4));
  if r = 'MNSG'  then
    begin
      Delete(s,1,4);
      ShowMessage (s);
    end;

Este, el de Descendents, que es el que más me gusta de momento (aunque he de reconocer que el otro parece más sencillo, pero me resulta más claro de comprender el de Descendents), me da error en LeftStr, más exactamente me dice:

[Error] Unit1.pas(814): Undeclared identifier: 'LeftStr'

Y respecto al segundo código, el del amigo Viet, lo copio tal como me viene, cambiando el msg que aparece al principio por la variable "s" que utilizo en el ejemplo de Descendents:

Código Delphi [-]
case copy(s, 1, 3) of
      'MSG': ShowMessage (s);

El de Viet me interesa un poco menos (aunque reconozoco que está bien) porque no se usar el case poniendo begin's y end's, aunque se para que sirve. Bueno, los errores que me dan son:

[Error] Unit1.pas(820): Ordinal type required //Primera linea
[Error] Unit1.pas(821): Incompatible types: 'Integer' and 'String' //Segunda línea

Muchas gracias simplemente, por leerme

[DarkByte]

Añado que utilizo Delphi 7 Enterprise

[__marcsc]

Hola,

no puedes utilizar un tipo no ordinal (como un string) en un case en Delphi. Tendrás que hacerlo con if.

Otra cosa que podrías hacer seria codificar tus mensajes numéricamente en vez de alfanuméricamente para poderlos convertir a un tipo ordinal y poderlos utilizar en un case. Ejemplo:

000 = mensaje
001 = datos de ingreso
002 = nick

Saludos.

[DarkByte]

Vale, muchas gracias. Por cierto ¿cómo sería con el ejemplo de Descendents?, es que me resulta más fácil usar ese.

[DarkByte]

¿Estaría bien entonces...

Código Delphi [-]
  r := copy(s, 1, 4)
  if r = 'MNSG'  then
    begin
      Delete(s,1,4);
      ShowMessage (s);
    end;

?

[DarkByte]

Mejor no sy bago y lo pruebo