Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   unir texto de dos memo en uno (https://www.clubdelphi.com/foros/showthread.php?t=84008)

exequielmatias1 27-08-2013 18:54:29

unir texto de dos memo en uno
 
Holaa! hoy tengo este palo en la rueda...
tengo en un memo1 una columna con nombres los cuales son el resultado de una consulta anterior.
ademas tengo en un memo2, otra columna con otros datos.
lo que quiero lograr es que la columna del memo2 se copie al lado de la columna del memo1, o en un memo nuevo.
ejemplo, tengo:

memo1:
pablo
pedro
juan

memo2
debe
no debe
debe

necesito si es factible que se vea en el memo1 o en otro memo
debe
pablo
juan

no debe
pedro

o en su defecto que se vea
pablo debe
pedro no debe
juan debe

para aclarar, los nombres del memo1 coinciden correlativamente con los datos del memo2

ecfisa 27-08-2013 19:21:07

Cita:

Empezado por exequielmatias1 (Mensaje 466098)
...
lo que quiero lograr es que la columna del memo2 se copie al lado de la columna del memo1, o en un memo nuevo.
...
para aclarar, los nombres del memo1 coinciden correlativamente con los datos del memo2
...

Hola exequielmatias1.

Concatenación sobre el primer memo:
Código Delphi [-]
...
var
  i: Integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
    Memo1.Lines[i] := Memo1.Lines[i] + ' '+ Memo2.Lines[i];
end;

Concatenación sobre un tercer memo:
Código Delphi [-]
var
  i: Integer;
begin
  Memo3.Clear;
  for i:= 0 to Memo1.Lines.Count-1 do
    Memo3.Lines.Add(Memo1.Lines[i]+' '+Memo2.Lines[i]);
end;

Saludos. :)

ElDioni 28-08-2013 09:37:29

Hola exequielmatias1,

aparte de la respuesta de ecfisa te quería preguntar una cosa, porque utilizas Memos en lugar de algún componente más adecuado para el manejo de datos, doy por sentado que los datos que tienes rellenos en los Memos vienen de alguna BBDD. No te convendría utilizar un DBGrid, por ejemplo.

Saludos.


La franja horaria es GMT +2. Ahora son las 08:14:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi