Guardar datos de renglón

[ecfisa]

Empezado por Mantixd

Tengo un memo donde escribo una palabra y la comparo con ese arreglo, ahora mi duda es como hacer que cuando encuentre esa palabra me tome todos los datos que estan en ese renglon y me los guarde en otro memo POR EJEMPLO SUPONGAMOS QUE EN EL MEMO ESCRIBO ESTO:

HOLA DB HOLA

La palabra que encontraria al compararse el memo con el arreglo seria DB por lo tanto quiero que tome todo el renglon

HOLA DB HOLA

y me lo guarde en otro memo...

Hola Mantixd.

Según entiendo de tu mensaje, podrías hacer:

Código Delphi [-]
...
const
  DIRASM: array[1..73] of string = ( ... );

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
  i: Integer;
begin
  if Key = #13 then
    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;

Saludos