Cita:
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
