Escribir en Edit sin que se borre el contenido existente

[alphazkr]

Otra vez molestando...quisiera saber si hay una forma de que se guarde o se imprima en un Edit, conservando lo que tenia:
Lo que pasa es que estoy queriendo imprimir en un Edit determinado arreglo de enteros pero no puedo, en el momento de que los mando a imprimir me imprime solo el ultimo, pero yo quiero que me imprima todos.

[[nlsgarcia]]

alphazkr,

Empezado por alphazkr

...hay una forma de que se guarde o se imprima en un Edit, conservando lo que tenia...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
begin

   Edit1.Text := 'Información Actual';

   for i := 1 to 10 do
      Edit1.Text := Edit1.Text + ' ' + IntToStr(i);

end;

El código anterior asigna un string a un control TEdit y luego asigna sucesivamente mas información al control conservando la anterior.

Espero sea útil

Nelson.

[alphazkr]

Orale!! quedo de lujo!! Gracias amigo!! me a servido de mucho! creeme que no podia dormir pensando en como lo haria!! Pero ya puedo descansar! GRACIAS!!!

[fidel]

Para no borrar el contenido existente basta con poner la propiedad AutoSelect a False.
Con esto el cursor se queda al principio pero si quieres que no lo seleccione y el cursor quede en una determinada posición lo puedes situar donde te interese con:

dit1.SelStart := 3; //en la posición 3

Edit1.SelStart := Length(Edit1.Text); //en la última posición

[fidel]

Para no borrar el contenido existente basta con poner la propiedad AutoSelect a False.
Con esto el cursor se queda al principio pero si quieres que no lo seleccione y el cursor quede en una determinada posición lo puedes situar donde te interese con:

Edit1.SelStart := 3; //en la posición 3

Edit1.SelStart := Length(Edit1.Text); //en la última posición