Error al multiplicar 2 memos

[rufo]

Claro es cuando quiero introducir otro digito y me lanza este error

[Casimiro Noteví]

¿Pero qué es lo que quieres hacer?

[roman]

Originally Posted by rufo

Claro es cuando quiero introducir otro digito y me lanza este error

Entonces tienes que leer una línea del memo a la vez y no todo el texto. La propedad Text te dará todo el contenido incluyendo los retornos de carro.

// Saludos

[rufo]

Lo que quiero hacer es un multiplicacion cada vez que introdusca datos numericos en los los dos memos y que me muetre el resultado en el tercer memo, pero nose como hacerle solo ese codigo tengo y es ahi mi problema.

[champy]

Como dice Roman, leyendo las lineas una por una, con Memo.Lines[NdeLinea]

Código Delphi [-]
VAR
   Linea : Integer;
Begin

For Linea := 0 to Memo1.Lines.Count -1 do
Begin
   Memo3.Lines.Add( FloatToStr( StrToFloat(Memo1.Lines[Linea]) * StrToFloat(Memo2.Lines[Linea])) );
End;

End;

[rufo]

Gracias amigo champy el resultado que me das funciona pero al momento de escribir mas cantidad en el memo y salta a la linea siguiente me borra la cantidad anterior.

[champy]

Perdón? No comprendo el problema

[rufo]

Una disculpa por no aclarar bien resulta que puse el ejemplo que mencionaste Champy, si funcioan pero al momento de poner otra cantida en el memo donde muestra los resultados estos se van borrando es ahi mi duda, anexo el codigo

Código Delphi [-]
procedure TFACTURA.Memo4Change(Sender: TObject);
VAR
   Linea : Integer;
Begin

For Linea := 0 to Memo4.Lines.Count -1 do
Begin
   Memo2.Lines.Add( FloatToStr( StrToFloat(Memo4.Lines[Linea]) * StrToFloat(Memo7.Lines[Linea])) );
End;
end;

Mi duda es por que cuando pongo otra cantida en la siguiente linea del memo, en el otro memo donde tiene que mostrar el resultado se borra...