Escribir en Edit sin que se borre el contenido existente
 

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.

alphazkr,

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.

gracias!
 

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!!! :D

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

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