Pasar datos de una tabla a un memo

[Cosgaya]

hola roman gracias por lo del otro dia (pasar la informacion de una tabla a un memo y cuando acabe con el primer memo seguir con el otro, cuando cada memo tenia un max. 200 caracteres), pero no consigo hacer para que cuando acaba con el primer memo siga con el siguiente no se como insertarlo
si pudieras ayudarme
muchas gracias

procedure TForm3.Button1Click(Sender: TObject);

begin
with form2.table1 do
begin
First;
Repeat
memo1.lines.add (FieldByName('Anuncio').AsString + ('-------'));
Next
Until (FieldByName('Anuncio').AsString = ' ')
or EOF
end;

[Cosgaya]

bueno, ahi va otra vez mi pregunta, mejor explicada
yo tengo una tabla de productos con su descripcion (paradox), y quiero, que al apretar a un boton, el campo descripcion de todos los producotos, se pase a varios memo, edit o lo que se necesite, y que cuando se llene el memo (max.200 caracteres por memo) pase al siguiente.

nota: es imprescindible varios memos

si alguien me la prodia resolver gracias
disculpen por no haber sabido expresarme en mi anterior pregunta

[roman]

¿Y cuál es el problema?

Recorres la tabla con un ciclo. En cada iteración tomas el nombre del producto con FieldByName y lo agregas al Memo en turno. Cuando éste se agote (Memo.Lines.Count te lo indicará) comienzas con el siguiente.

// Saludos

[Neftali [Germán.Estévez]]

Antes de nada, por favor, no abras hilos nuevos, para continuar con un tema ya expuexto y abierto.
(1) Usuarios que lo lean no sabrán de qué hablas (y deberán buscar el post anterior).
(2) Alguien que posteriormente busque lo mismo que tú has expuesto no encontrará una solución satisfactoria en el post (ya que está repartida en varios de ellos...)

Para saber la longitud del memo puedes utilizar Memo.Lines.Text, eso te devuelve el texto del memo en una cadena. A eso le puedes aplicar la función Lenght, para calcular la longitud.

Para utilizar varios memos, numéralos (por ejemplo) como memo1, memo2, memo3,... Dentro del bucle utiliza un contador (i, por ejemplo) para "saber" con qué memo estás trabajando. Con FindComponent('Memo'+IntToStr(i)) puedes selecconar el que necesitas en cada momento.

[Cosgaya]

gracias por la respuesta y disculpa
otra cosa no se como meter el findcomponent en mi codigo

[Neftali [Germán.Estévez]]

Código Delphi [-]
   form1.FindComponet(Nombre);

Te buscará un componente con ese Nombre dentro del form1.

[Cosgaya]

neftali sigo sin averiguar en que parte o de que forma debo introducier el findcomponent para cuando se acabe el un memo (max.200 caracteres) empiece con el otro. el codigo en que lo tengo que metere esta un poco mas arriba.
gracias

[Neftali [Germán.Estévez]]

Échale un vistazo a éste código:

Código Delphi [-]
 procedure TForm1.BitBtn1Click(Sender: TObject);
 const
   LOG_MAX_MEMO = 200;
 var
   i:Integer;  // nos servirá para ver qué memo utilizamos
   mm:TMemo;
   comp:TComponent;
 begin
 
   // Inicializar la i
   i := 1;
   // Abrir la tabla
   Self.table1.Open;
   // Acceder al primer memo
   mm := TMemo(Self.FindComponent('memo' + IntToStr(i)));
 
   with Self.table1 do begin
     First;
     repeat
       mm.lines.add(FieldByName('Codigo').AsString + ('-------'));
       Next;
 
       // Comprobar si ha llegado a la longitud máxima
       if (Length(mm.Lines.Text) > LOG_MAX_MEMO) then begin
         i := i + 1;
         // Accder al siguiente
         comp := Self.FindComponent('memo' + IntToStr(i));
         // existe?
         if Assigned(comp) then begin
           mm := TMemo(comp);
         end
         else begin
           MessageDlg('Se han acabado los memos...', mtError, [mbOK], 0);
           Self.Table1.Last;
         end;
       end;
 
     until (FieldByName('Codigo').AsString = '') or EOF
   end;
 end;

Éstá generado a partir del tuyo...