Guardar datos de renglón

[Pedron]

Código Delphi [-]


const
  RegAsm : Array[1..30] of string = ('AX','BX','CX','DX','AH','AL',
                                     'BH','BL','BP','CH','CL','CS',
                                     'DH','DL','DI','DS', 'GS', 'IP',
                                     'SI','SP','SS', 'ES',
                                     'EAX','EBP','EBX','ECX',
                                     'EDI','EDX','EIP','ESIFE');

procedure TForm1.Button1Click(Sender: TObject);
var
 SL: TStringList;
   i, j, k : Integer;
   Token : String;
   AuxStr : String;

begin

  SL := TStringList.Create;

  Memo2.Clear;

   for i := 0 to Memo1.Lines.Count - 1 do
   begin

      AuxStr := Memo1.Lines[i];

      for j := 1 to Length(AuxStr) do
      begin
         if (AuxStr[j] <> ' ') and (AuxStr[j] <> ',') then
            Token := Token + AuxStr[j]
         else
         begin
            SL.Add(Token);
            Token := EmptyStr;
         end
      end;

      SL.Add(Token);
      Token := EmptyStr;

      for j := SL.Count - 1 downto 0 do
         for k := Low(RegAsm) to High(RegAsm) do
            if SL[j] = RegAsm[k] then
               SL.Delete(j);

      for j := 0 to SL.Count - 1 do
         Token := Token + SL[j] + ' ';

      Memo2.Lines.Add(Token);
      Token := EmptyStr;

      SL.Clear;

   end;

   SL.Free;
end;

ese es mi codigo que utilizo no le he cambiado ningun dato a tu codigo que me mandaste y pues al momento de poner AX me da ese error espero y puedas ayudarme saludos y muchas gracias!

[ecfisa]

Hola Pedron.

Ya habías creado un hilo con la consulta del mensaje #15, por favor no dupliques los temas ya que dificultan las búsquedas posteriores.

Código Delphi [-]
...
implementation

var
 Nemos: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Nemos:= TStringList.Create;
  Nemos.CommaText:= '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';
end;

procedure TForm1.btnProcesarClick(Sender: TObject);
var
  TS: TStrings;
  i,j: Integer;
  s: string;
begin
  Memo2.Clear;
  for i:= 0 to Memo1.Lines.Count-1 do
  begin
    TS:= TStringList.Create;
    try
      s:= EmptyStr;
      ExtractStrings([' '], [], PChar(Memo1.Lines[i]), TS);
      for j:= 0 to TS.Count-1 do
        if Nemos.IndexOf(TS[j]) = -1 then  s:= s + TS[j] + ' ';
      Memo2.Lines.Add(s);
    finally
      TS.Free;
    end;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Nemos.Free;
end;
end.

Resultado:


Saludos

[[nlsgarcia]]

Pedron,

Empezado por Pedron

...no le he cambiado ningún dato a tu código que me mandaste y pues al momento de poner AX me da ese error (List Index Out of Bounds)...

Es correcto , es un error de frontera.

Revisa esta código:

Código Delphi [-]
 procedure TForm1.Button3Click(Sender: TObject);
 const
    RegAsm : Array[1..30] of string = ('AX','BX','CX','DX','AH','AL',
                                       'BH','BL','BP','CH','CL','CS',
                                       'DH','DL','DI','DS', 'GS', 'IP',
                                       'SI','SP','SS', 'ES',
                                       'EAX','EBP','EBX','ECX',
                                       'EDI','EDX','EIP','ESIFE');
                                       
 var
  SL: TStringList;
    i, j, k : Integer;
    Token : String;
    AuxStr : String;
 
 begin
 
   SL := TStringList.Create;
 
   Memo2.Clear;
 
    for i := 0 to Memo1.Lines.Count - 1 do
    begin
 
       AuxStr := Memo1.Lines[i];
 
       for j := 1 to Length(AuxStr) do
       begin
          if (AuxStr[j] <> ' ') and (AuxStr[j] <> ',') then
             Token := Token + AuxStr[j]
          else
          begin
             SL.Add(Token);
             Token := EmptyStr;
          end
       end;
 
       SL.Add(Token);
       Token := EmptyStr;
 
       for j := SL.Count - 1 downto 0 do
          for k := High(RegAsm) downto Low(RegAsm) do
             if SL[j] = RegAsm[k] then
             begin
                SL.Delete(j);
                Break;
             end;   
 
       for j := 0 to SL.Count - 1 do
          Token := Token + SL[j] + ' ';
 
       Memo2.Lines.Add(Token);
       Token := EmptyStr;
 
       SL.Clear;
 
    end;
 
    SL.Free;
 
 end;

El código anterior en Delphi 7 bajo Windows 7 Professional x32, es la versión 2 del código propuesto en el Msg #16 que resuelve errores de frontera, funcionando correctamente según lo esperado con datos de prueba como se puede ver en la siguiente imagen:



Espero sea útil

Nelson.

[Pedron]

Clarooo que me fue util ahora si ya salio muchas gracias nlsgarcia

Ahora una ultima cosa ya para dejar esto por la paz habra una forma en la que pueda comparar varios arreglos a la vez con ese mismo codigo comparar 2 o mas arreglos y los datos que sean diferentes a esos arreglos pues mandarlos al memo2 no se si me de a entender jeje

si por ejemplo tengo 2 arreglos

Código Delphi [-]
RegAsm : Array[1..30] of string = ('AX','BX','CX','DX','AH','AL',
                                       'BH','BL','BP','CH','CL','CS',
                                       'DH','DL','DI','DS', 'GS', 'IP',
                                       'SI','SP','SS', 'ES',
                                       'EAX','EBP','EBX','ECX',
                                       'EDI','EDX','EIP','ESIFE');


 OpAsm : Array[1..36] of string = ('AND','BYTE','COMMENT','CON','DUP',
                                   'EQ','FAR','GE','GT','HIGH','LE',
                                   'LENGTH','LINE','LOW','LT','MASK',
                                   'MOD','NE','NEAR','NOT','NOTHING',
                                   'OFFSET','OR','PTR','SEG','SHL','SHORT',
                                   'SHR','SIZE','STACK','THIS','TYPE',
                                   'WHILE','WIDTH','WORD','XOR');

y pues que al poner este texto en el memo1

AX AND HOLA

solo me mande

HOLA

al memo2


saludos y muchas gracias!

[[nlsgarcia]]

Pedron,

Empezado por Pedron

...habrá una forma en la que pueda comparar varios arreglos a la vez con ese mismo código comparar 2 o mas arreglos y los datos que sean diferentes a esos arreglos pues mandarlos al Memo2...

Si es posible

Pregunto: ¿Cual es la finalidad de este trabajo?

Nelson.

[Pedron]

Es un analizador lexico y tengo que comprobar los errores lexicos de un lenguaje y en este caso lo estoy haciendo en lenguaje ensamblador.

el objetivo de tanta comparacion es hacer que me compare todos los arreglos osea todos los componentes del lenguaje ensamblador que esten en un memo1 y pues los valla separando por diferentes secciones mira te muestro una imagen para mejor entendimiento



y pues la separacion de datos ya la tengo lo que no puedo hacer es lo de los errores lexicos que te digo por ejemplo que si en vez de AX
escribo 'XA' en ninguna arreglo que yo tengo viene esa palabra 'XA' por lo tanto quiero que me la mande a la seccion de errores lexicos
pero tengo otro problema si yo creo una VARIABLE esas tampoco vienen en ningun arreglo porque esas tu les pones el nombre que gustes por lo tanto esas tambien las marcaria como error.

y pues lo que intento hacer al comparar todos los arreglos a la vez es eso mismo hacer que busque en el memoo1 y encuentre las palabras que no vienen en los arreglos y las mande al memo2 que serian los errores lexicos.

no se si me de a entender jeje

[[nlsgarcia]]

Pedron,

Empezado por Pedron

...Es un analizador léxico...en lenguaje ensamblador...

Eso lo entiendo , la pregunta se refiere a si es un trabajo de universidad (Que universidad, Que cátedra, Que país) o de otro tipo.

Nota: La imagen es demasiado pequeña, ¿Puedes mejorarla?

Nelson.