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

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