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 ].