Pasar datos de una tabla a un memo

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

[Cosgaya]

hola neftali: gracias por el codigo
pero no funciona bien, porque la condicion no la cumple haste que le vuelve a apretar al boton. no tengo muxa idea pero cre que puede ser... porque pasa los datos de la base de datos al memo antes de que termine de contar los caracteres osea, que es mas rapido el que pase los datos al memo que el contar los caracteres por eso no devuelve el valor a tiempo...
soy nuevo en delphi... esta es la conclusion a la que he llegado no se si sera una barbaridad lo que acabo de decir, si es asi... perdonen

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

A mi me funciona perfectamente. ¿Puedes explicar un poco mejor el error , no acabo de enterderlo?

[Cosgaya]

que cuando doy al boton con el cogigo ese en vez de pasar la informacion al segundo memo cuando en el primero ya hay mas de 200 caracteres, lo escribe todo en el primero, y es en la segunda vez que pulsas el boton cuando cumple la condicion de los caracteres y pasa los datos al segundo memo....

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

¿Seguro que ya tienes los 200 caracteres?
¿Tienes los memos bien numerados?

Sigo sin entenderlo muy bien, pero prueba pasando éstas líneas después del if (justo antes del Until):

Código Delphi [-]
   mm.lines.add(FieldByName('Codigo').AsString + ('-------'));
  Next;