Guardar datos de renglón

[ecfisa]

Hola de nuevo.

No especificaste en que momento querías transferir las líneas. En el mensaje anterior se van pasando de forma interactiva (a medida que agregás una nueva línea), pero si deseas hacerlo de forma diferida:

Código Delphi [-]
procedure TForm1.btnPasarLineasClick(Sender: TObject);
var
  i,j: Integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
    for j:= Low(DIRASM) to High(DIRASM) do
      if AnsiPos(DIRASM[j], Memo1.Lines[i]) <> 0 then
        Memo2.Lines.Add(Memo1.Lines[i]);
end;

Saludos

[Mantixd]

Si tienes razon disculpame quiero hacerlo al presionar un boton ese mismo boton comparara el memo con el arreglo y pues ara esa funcion, muchas gracias por tu respuesta eres muy amable

Pero creo que tampoco no me di a entender bien en mi explicacion jeje no solo quiero que me lea el primer renglon si no que me busque en todo el memo donde esta dato del arreglo y ya me lo mande al memo2 por ejemplo si tengo este codigo

.model small
.stack
.data

Feliz db "=>$"
Serio db "=]$"
Decepcionado db "=/$"
Triste db "=<$"

Me deberia de poner estos datos en el memo2

Feliz db "=>$"
Serio db "=]$"
Decepcionado db "=/$"
Triste db "=<$"

[dec]

Hola,

El código que te muestra el compañero en su anterior mensaje hace exactamente lo que tú precisas: buscar en todo el "Memo1" y almacenar en "Memo2" sólo las líneas en que se hubieran encontrado las palabras "clave". Lo que pasa es que para hacer eso tienes que recorrer el "Memo1" tal como lo hace el compañero, línea por línea, buscando en cada línea por cada palabra "clave".

[Mantixd]

Lo que pasa es que al poner el codigo por ejemplo

Código Delphi [-]
const
 DirAsm: Array[1..74] of string =  ('db','ALIGN','.ALPHA','ASSUME','.CODE','COMM','COMMENT',
                                        '.CONST','.CREF','.DATA','DB','DD','DF','DOSSEG','DQ',
                                        'DT','DW','ELSE','END','ENDIF','ENDM','ENDP','ENDS','EQU',
                                        '.ERRnn','EVEN','EXITM','EXTRN','.FARDATA','.FARDATA?',
                                        'GROUP','IF','IF1','IF2','IFB','IFDEF','IFDIF','IFE','IFIDN',
                                        'IFNB','IFNDEF','INCLUDE','INCLUDELIB','IRP','IRPC','LABEL',
                                        '.LALL','.LFCOND','.LIST','LOCAL','MACRO','.MODEL','NAME',
                                        'ORG','OUT','PAGE','PROC','PUBLIC','PURGE','.RADIX','RECORD',
                                        'REPT','.SALL','SEGMENT','.SEQ','.SFCOND','.STACK','STRUC',
                                        'SUBTTL','.TFCOND','TITLE','.XALL','.XCREF','.XLIST');



procedure TForm1.SpeedButton2Click(Sender: TObject);
var
i:Integer;

begin

    for i:= Low(DIRASM) to High(DIRASM) do
      if AnsiPos(DIRASM[i],Memo1.Lines[Memo1.Lines.Count-1]) <> 0 then
        Memo2.Lines.Add(Memo1.Lines[Memo1.Lines.Count-1]);
end;

en el memo1 escribo esto

Feliz        db "=>$"
 Serio        db "=]$"
 Decepcionado db "=/$"
 Triste       db "=<$"

y presiono el boton para que haga la comparacion y solo me manda esto al memo2

Triste       db "=<$"

y pues se supone que el codigo esta bien no entiendo muy bien lo que pasa soy algo nuevo en esto :/

[dec]

Hola,

Lo que pasa es que el código que tú utilizas:

Código Delphi [-]
var
  i:Integer;
begin
  for i:= Low(DIRASM) to High(DIRASM) do
    if AnsiPos(DIRASM[i],Memo1.Lines[Memo1.Lines.Count-1]) <> 0 then
      Memo2.Lines.Add(Memo1.Lines[Memo1.Lines.Count-1]);
end;

... no es el mismo que el que Daniel te propone arriba:

Código Delphi [-]
procedure TForm1.btnPasarLineasClick(Sender: TObject);
var
  i,j: Integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
    for j:= Low(DIRASM) to High(DIRASM) do
      if AnsiPos(DIRASM[j], Memo1.Lines[i]) <> 0 then
        Memo2.Lines.Add(Memo1.Lines[i]);
end;

[Mantixd]

Si entiendo a lo que te refieres lo que pasa es que yo lo acomode segun a mi modo porque lo que quiero es que al hacer click en un boton me lea automaticamente todo el memo1 y los datos encontrados los mande todos juntos al memo2, eso es lo que supongo yo que no me di a explicar bien.
Lo que el compañero me brindo (LO CUAL AGRADESCO MUCHISIMO) funciona al darle a una tecla o con un click pero yo lo que quiero es agregar un boton y al presionar ese boton lea todo y ponga lo encontrado en el memo2, muchas gracias por tus comentarios y consejos y lamento las molestias.

[dec]

Hola,

No tienes que disculparte, pero, el código que ha puesto Daniel más arriba hace exactamente lo que precisas:

Código Delphi [-]
procedure TForm1.btnPasarLineasClick(Sender: TObject);
var
  i,j: Integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
    for j:= Low(DIRASM) to High(DIRASM) do
      if AnsiPos(DIRASM[j], Memo1.Lines[i]) <> 0 then
        Memo2.Lines.Add(Memo1.Lines[i]);
end;

Ahí se recorre el "Memo1" línea a línea, se busca cada palabra clave en cada línea, y, si se encuentra, se añade la línea al "Memo2".