ayuda con un salto de línea que no me funciona!!! por favor!!!

[rojo]

Hola, tengo un problema urgente que me impide ver unos gráficos con claridad...
estoy cargando unos datos de 8 bits desde el puerto serial en un memo, usando el comport1, y quiero que al recibir un dato y su correspondiente retorno de carril (\r en c es el equivalente a #13 en delphi cierto??) coloque el dato y salte a la siguiente línea en el memo...

tengo algo asi en el procedimiento correspondiente a la lectura de los bytes...

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
temp: String;
n:integer;
begin
comport1.ReadStr(temp,count);
for n := 0 to count-1 do
begin
if ((temp[n]=#13) or (temp[n]=#10)) then
begin
if temp[n]=#10 then
begin
memo1.Lines.Add('');
end;
end;
end;
memo1.Text:=memo1.Text+temp;
end;

este codigo me lo dio un amigo... yo soy primerizo en delphi y no se como corregir este problema, espero que alguien entienda lo que puse y me pueda ayudar, es el unico problema que tengo...
al mostrar los datos leidos del puerto serial en el memo,los tira a un grafico y ahi aparece el problema, pues al hacer la transformacion de bits a numeros decimales, como tengo 256 niveles, obtengo algunos niveles que son menores que 100, y no me los muestra bien, o no salta a la siguiente linea del memo...

alguien que me ayude por favor que tengo que terminarlo hoy!!!!

[yusnerqui]

Código Delphi [-]
var
  temp: String;
  n:integer;
begin
  comport1.ReadStr(temp,count);
  for n := 0 to count-1 do  
    if ((temp[n]=#13) or (temp[n]=#10)) then  
      memo1.Lines.Add('');
    else
      memo1.Text:=memo1.Text+temp[i];
end;

Creo que con este código es suficiente.

Saludos

[rojo]

si, tienes razon, estaba un poco redundante... sin embargo, aun me queda el problema, de hecho ahora agrega lineas vacias al memo ....

mira, aqui es donde voy procesando cada linea del memo y la agrego al gráfico...

procedure TForm1.procesar(Sender: TObject);
var
  i: integer;
  a1, a0, v1, v0, p, tiempo, primero: extended;
begin
  a0:=0;
  v0:=0;
  p:=0;
  tiempo:=0;
  for i:=0 to memo1.Lines.Count-3 do
    begin
    try
      primero:=strtoint(memo1.lines.Strings[i][1]);
          a1:=strtoint(memo1.lines.Strings[i][1]+memo1.lines.Strings[i][2]+memo1.lines.Strings[i][3]);
      if (not(primero=1)) then
        begin
          a1:=strtoint(memo1.lines.Strings[i][1]+ memo1.lines.Strings[i][2]);
        end;
      a1:=strtofloat(edit3.text)*(a1-strtofloat(edit2.text));
      tiempo:=tiempo+1.365;
      chart1.Series[0].AddXY(tiempo, a1);
      a1:= a1*9.8;
      v1:=Integ(a1, a0, 0.001365)+ v0;
      chart2.Series[0].AddXY(tiempo, v1);
      p:= integ(v1, v0, 0.001365)+ p;
      chart3.Series[0].AddXY(tiempo, p);
      v0:=v1;
      a0:=a1;
    except;
    end;
  end;

la variable a1 como que la voy armando, ves?
el asunto es que uso un if para que vea si el primer digito es un 1 (del 100) y si no lo es (o sea, es menor a 100) a1 toma el valor de dos digitos que le corresponde...
la funcion integ() es una integral....
dime si no esta claro....
muchas gracias

[[seoane]]

Solo un par de observaciones, el primer carácter de un string es el 1 y no el 0 y segundo, en el código yusnerqui añades un salto de linea con el carácter #10 y con el #13, lo conveniente seria decidirse por uno e ignorar el otro. Algo así:

Código Delphi [-]
var
  temp: String;
  n:integer;
begin
  comport1.ReadStr(temp,count);
  for n := 1 to count do  // O quiza mejor: for n := 1 to Length(temp) do
    if temp[n]=#13then  
      memo1.Lines.Add('');
    else if temp[n]<>#10 then  
      memo1.Text:=memo1.Text+temp[i];
end;

[[Crandel]]

Por que no nos cuentas un poco mas lo que estas intentando de hacer para poder ayudarte mejor.

Como es le protocolo que estas recibiendo los datos por el puerto? tres datos y un #10 o #13 que separa los valores?

[Neftali [Germán.Estévez]]

rojo, prueba a utilizar la etiqueta [ DELPHI ] en lugar de la etiqueta [ CODE ].

[yusnerqui]

Tienes razón seoane, jejeje, parese que ayer no era mi día.

Ahora quiero preguntar, es necesario hacer esta rutina? Es que no cambia de línea el memo automáticamente cuando encuentra uno de los mencionados caracteres? No debería ser ese el comportamiento normal del memo?

Saludos.

[[seoane]]

Empezado por yusnerqui

Ahora quiero preguntar, es necesario hacer esta rutina? Es que no cambia de línea el memo automáticamente cuando encuentra uno de los mencionados caracteres? No debería ser ese el comportamiento normal del memo?

Pues si, lo malo es que añade un salto de linea cada vez que encuentra un #13#10, un #13 o un #10. Si estamos tratando con un texto guardado en un archivo no hay problema, el ajustara los saltos de linea automáticamente. Pero si estamos haciendo un transmisión y el emisor manda 'hola'+#13#10 y nosotros lo recibimos partido, 'hola'#13 primero y luego #10 se insertaran dos saltos de linea cuando solo debería de haber uno. Ahora bien, podemos hacer algo como esto:

Código Delphi [-]
var
  temp: String;
  n:integer;
begin
  comport1.ReadStr(temp,count);
  for n := 1 to Length(temp) do
    if temp[n]<>#10 then  
      memo1.Text:=memo1.Text+temp[i];
end;

O incluso como esto:

Código Delphi [-]
var
  temp: String;
begin
  comport1.ReadStr(temp,count);
  temp:= StringReplace(temp,#10,'',[rfReplaceAll]);
  memo1.Text:=memo1.Text + temp;
end;

En ambos casos nos deshacemos de los #10 y dejamos todo el trabajo a los #13. El propio memo se encargara de ajustar los saltos de linea cada vez que encuentre un #13 en el texto.

[yusnerqui]

Bueno al parecer en este caso no nos lo dan picado verdad, pues al parecer en temp ya se leyó el contenido de lo que vamos a mostrar en el memo.

Por otra parte te comento que el memo solo cambia de línea con la secuencia #13#10, en caso de omitir alguno de estos dos solo mostrará un símbolo.

De todos modos sería útil que quien inició este hilo se reportara para ver en que ha terminado el problema en cuestión.

Saludos.

[[seoane]]

Hola yusnerqui,

Empezado por yusnerqui

Bueno al parecer en este caso no nos lo dan picado verdad, pues al parecer en temp ya se leyó el contenido de lo que vamos a mostrar en el memo.

Mas bien parece que el procedimiento mostrado es llamado varias veces sucesivamente según van llegando los datos, y los datos en una transmisión tienen la mala costumbre de llegar como les da la gana y no como a nosotros nos gustaría. Pero como se realiza la transmisión solo lo sabe rojo

Empezado por yusnerqui

Por otra parte te comento que el memo solo cambia de línea con la secuencia #13#10, en caso de omitir alguno de estos dos solo mostrará un símbolo.

¿Eso lo comprobaste? porque si yo hago esto:

Código Delphi [-]
Memo1.Lines.Text:= 'Uno'+#13#10+'Dos'+#13#10+'Tres';

// O esto otro
Memo1.Lines.Text:= 'Uno'+#13+'Dos'+#13+'Tres';

// Incluso esto
Memo1.Lines.Text:= 'Uno'+#10+'Dos'+#10+'Tres';

El resultado siempre es el mismo, 3 lineas de texto en el memo. Es mas si revisamos el valor de Memo1.Lines.Text veremos que en los últimos 2 casos se han añadido de forma automática el #10 o el #13 donde era necesario.

[yusnerqui]

Hola, pues creo que es hora de hablar de nuestras versiones de delphi y preguntar como se comportan en los diferentes casos, porque el memo estandar que viene con mi delphi 7 solo cambia de línea con la mencionada secuencia.

Incluso si le pasas un texto que termine en #13 y luego uno que comience en #10 se agrega pasa lo siguiente:
El primer texto queda en laprimera línea terminado por un símbolo, algo como "|".
Al agregarle el segundo trozo de texto el símbolo desaparece y se agrega una nueva línea con el contenido de este último.

Realmente no se a que se debe esta diferencia de comportamiento.

Bueno me acabo de dar cuenta de algo, tú pones Memo1.Line.text, prueba hacerlo con Memo1.text que es como yo hice mis pruebas, estoy seguro que obtendrás mi mismo resultado.

Saludos.

[[seoane]]

Tienes razón, si utilizo la propiedad Text del memo el resultado es diferente. Si te digo la verdad nunca he utilizado antes esa propiedad, siempre utilizo la propiedad Text, de la propiedad Lines. Siempre que tengo que manejar el texto del memo, sea cargarlo desde un archivo, guardarlo, modificar sus lineas o su texto lo he hecho desde la propiedad Lines. El caso es que aunque tengan el mismo nombre son propiedades muy diferentes, de ahí que se comporten de diferente manera y de ahí mi confusión.