Sigo esperando el ejemplo amigo.:confused:


Un Saludo.

PD:En el Hyperterminal terminal no sale porque tiene un filtro para no mostrarlo.(elimina ese caracter)

Hola

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  cadena: string;
begin
  ComPort.ReadStr(cadena, Count);
  cadena := StringReplace(cadena, #13, '', [rfReplaceAll]);
  ShowMessage(cadena);
  Memo.Text := Memo.Text + cadena;
end;

Salud OS

Hola...

Solo que te confundiste al hacer el quote... :D :D


Saludos...

Probe tu sentencia y me dice Incompatibles types.... no creo q esa sea la solucion.... hay algo q tener hecho mal cuando declaro Flags o algo por el estilo

Saludos

Código Delphi [-]
cadena := StringReplace(cadena, #13, '', [rfReplaceAll]);

Incompatible types de nuevo

Hola Sr.Scorpion,
Si leyeras un poco la ayuda sobre StringReplace sabrías que el error es bastante sencillo de resolver: le faltan las comillas simples a #13. Es decir que es: '#13'.

Mayenaes unos post antes lo ha comentado.

Saludos,

Hola Delphius

Si tu tambien leyeras un poco.... al principio del post mi sentencia era '#13' y me daba el mismo error (Incompatible types) segun los consejos de los miembros de este forums me dijeron q eliminara las comillas, cosa q hice y me sigue saliendo el mismo por eso lo he ido poniendo como ellos me lo han dicho

Saludos

Hola...

Delphius, lo que yo hice fue corregirle de: '#13' a #13, o sea, le quité las comillas simples a su código...

Ahora, esto al menos a mi me compila bien, no se por que razón al compañero le da ese error...

Tal vez podría hacer algo como:

Código Delphi [-]
var
  CharToReplace: string;
  Cadena: string;

begin
  CharToReplace := #13;
  Cadena := StringReplace(cadena, CharToReplace, '', [rfReplaceAll]);
end;

Saludos...

Es verdad, tienen razón.
Disculpa mi reacción Sr.Scorpion, no debí reacción asi.

A mi también me resulta raro que arroje un error allí.:confused:

Saludos,

Código Delphi [-]
cadena := StringReplace(cadena, '#13', ' ', [rfReplaceAll]); 

No les parece que despues de (cadena, #13, lo que debe ir es '' y no esto".Ojo que puede ser ese el problema. ' ' eso es lo que va no esto ".

Un Saludo.

Hola JoseFco para serte sincero no creo q ese sea el problema. Para mi ' ' es lo mismo q '', al final es una string, aqui pienso q el verdadero dolor de cabeza esta en el ultimo parametro, q no se pq diablos q me dice q son de tipos incompatibles. No obstante sigo a la espera de los gurus de este foro... a ver q dicen.

Saludos

Hola...

El último parámetro no tiene nada que ver, ahí espera un conjunto y eso es lo que le estás enviando...

Podrías hacerlo de otra forma si quieres:

Código Delphi [-]
var
  CharToReplace: string;
  Cadena: string;
  Flags: TReplaceFlags;

begin
  CharToReplace := #13;
  Flags := [rfReplaceAll];
  Cadena := StringReplace(cadena, CharToReplace, '', Flags);
end;

Pero para el caso es lo mismo... ;)


Saludos...

Creo que alguna directiva de compilación está haciendo de las suyas. Acabo de probar de ambas formas en delphi 6.

Código Delphi [-]
var
  Cadena, str: string;
begin
  str := 'mio mio '+ #13 + 'mio';
  Cadena := StringReplace(str, '#13','', []);
  ShowMessage (cadena);
end;

Esto compila pero no funciona :eek:, En el showmessage se ve la cadena partida por el salto de linea.

Esto es lo que funciona correctamente:

Código Delphi [-]
var
  Cadena, str: string;
begin
  str := 'mio mio '+ #13 + 'mio';
  Cadena := StringReplace(str, #13,'', []);
  ShowMessage (cadena);
end;

Es decir, sin las comillas simples.

Al menos yo, en Project -> options -> compiler -> syntax options, tengo todo marcado excepto "complete boolean eval" y "@ typed operand".

Sin duda, algo se nos escapa cuando no le funciona.

Saludos.

Bueno tengan en cuenta que soy novato en esto, pero esto " = Shift+" y esto '' son dos ' ' .No estoy en mi pc asi que no tengo Delphi para poder comprobar si es lo mismo.

Un Salud.

Fin del asunto... muchas a todos en especial a Lepe

Como decia el gran Lepe

Código Delphi [-]
str:= StringReplace(Cadena, #13, '',[]);

Pero realmente si lo que quieres es eliminar los caracteres de los q habia hablado desde el principio tienes q poner #$13, por lo q la sentencia quedaria asi

Código Delphi [-]
str:= StringReplace(Cadena, #$13, '',[rfReplaceAll]);

Gracias una vez mas