Buenas, lo que pasa es que quiero hacer un tipo Analizador Lexico digamos que en ensamblador, tengo un Arreglo donde tengo los registros y quiero que al escribir codigo fuente en un Memo y presionar un boton buscar me compare los datos del arreglo con los escritos en el Memo y si encuentra algunos me los ponga en un Memo2 o en un RichEdit, soy estudiante y aun estoy aprendiendo y pues disculpen mis horrores espero y me puedan ayudar saludos.
Código Delphi
[-] meses: array[1..31] of string = ('AX','BX','CX','DX','AH','AL',
'BH','BL','BP','CH','CL','CS',
'CX','DH','DL','DI','DS',
'EAX','EBP','EBX','ECX',
'EDI','EDX','EIP','ES',
'ESIFE','GS','IP','SI','SP','SS');
procedure TForm1.Button1Click(Sender: TObject);
var
N,x:integer;
a, sEtiqueta: String;
Z : Integer;
Texto : string;
I,J,Long,P,Posic:Integer;
Reservada,Aux,Linea,Palabra:String;
begin
for x := Low(meses) to High(meses) do
if Memo1.Text=meses[x] then begin
RichEdit1.Text:= Memo1.Text;
end;
end;