Guardar datos de renglón

[Pedron]

Hola nlsgarcia Muchisimas gracias por tu respuesta tan rapida probe el codigo que me mandaste probe con elementos que no estan dentro del arreglo y pues los pone en el memo2 pero al poner un elemento que si esta dentro del arreglo me manda este error de ante mano muchisimas gracias.

[[nlsgarcia]]

Pedron,

Empezado por Pedron

...probé con elementos que no están dentro del arreglo y pues los pone en el Memo2 pero al poner un elemento que si esta dentro del arreglo me manda este error...List Index Out of Bounds...

Revisa esta imagen:



El código sugerido en el Msg #16 funciona según lo esperado como se puede apreciar en la imagen anterior.

Pregunto:

1- ¿Modificastes el código sugerido en el Msg #16?

2- ¿Que data utilizastes en el Memo1 que origino el error?, ¿Que valores tienes en el arreglo de comparación?.

Espero sea útil

Nelson.

[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.