Objetos en un TString

[ecfisa]

Hola Angel.

Tengo que rectificar mi mensaje anterior ya que no es correcto en su totalidad, en esta última prueba funcionan los valores negativos menos el -1:

Código PHP:


void __fastcall TForm1::FormCreate(TObject *Sender)
{
  lb->Items->AddObject("menos 1", (TObject*)-1);
  lb->Items->AddObject("menos 2", (TObject*)-2);
  lb->Items->AddObject("menos 3", (TObject*)-3);
  lb->Items->AddObject("menos 4", (TObject*)-4);
  lb->Items->AddObject("menos 5", (TObject*)-5);
}

void __fastcall TForm1::lbClick(TObject *Sender)
{
  if (lb->ItemIndex == -1) return;

  Caption = (int)(lb->Items->Objects[lb->ItemIndex]);
} 


Dá error cuando se selecciona "menos 1" (-1)

Saludos

[[movorack]]

Si almacenas el entero como objeto la búsqueda del valor también debe hacerse como un objeto.

Código Delphi [-]
//Almacenas el entero
ComboBox1.Items.AddObject('A', TObject(-1));

//Al usar el IndexOfObject debes buscar con el objeto 
ComboBox1.Items.IndexOfObject(TObject(-1)); //Debe responderte -1 si no lo encuentra y el índice correcto cuando lo encuentra

//Si el valor que buscas es un negativo y lo buscas sin convertirlo al objeto no lo va a encontrar
ACodigo := -1;
ComboBox1.Items.IndexOfObject(ACodigo); //Devuelve -1, el tiene almacenado un TObject(-1)

No tengo C++, así que el ejemplo está en Delphi

Código Delphi [-]
//Se alimenta el ComboBox desde una tabla en memoria con valores negativos y positivos
procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Clear;

  FDMemTable1.First;
  while not FDMemTable1.Eof do
  begin
    ComboBox1.Items.AddObject(FDMemTable1Valor.AsString, TObject(FDMemTable1Codigo.AsInteger));
    FDMemTable1.Next;
  end;
end;

//En una caja de texto (Edit1) escribo el codigo que quiero buscar (-1, -10, 20, 30...)
procedure TForm1.Button2Click(Sender: TObject);
  var
    lCodigo: Integer;
begin
  Edit2.Clear;

  if not TryStrToInt(Edit1.Text, lCodigo) then
    Exit;

  if ComboBox1.Items.IndexOfObject(TObject(lCodigo)) >= 0 then
    Edit2.Text := ComboBox1.Items[ComboBox1.Items.IndexOfObject(TObject(lCodigo))];
end;

[ecfisa]

Hola.

Hice las pruebas sobre el componente que usó Angel. Ahora viendo tu ejemplo probé con el componente ComboBox y no presenta nigún problema! , pero no es así con el ListBox.

Código Delphi [-]
// Se cargan los mismos datos en cada componente
procedure TForm1.FormCreate(Sender: TObject);
begin
  // lb es de clase TListBox
  lb.Items.Clear;
  lb.Items.AddObject('menos 1', TObject(-1));
  lb.Items.AddObject('menos 2', TObject(-2));
  lb.Items.AddObject('menos 3', TObject(-3));
  // cb es de clase TComboBox
  cb.Items.Clear;
  cb.Items.AddObject('menos 1', TObject(-1));
  cb.Items.AddObject('menos 2', TObject(-2));
  cb.Items.AddObject('menos 3', TObject(-3));
end;

// ComboBox
procedure TForm1.btnComboBoxClick(Sender: TObject);
begin
  ShowMessage(cb.Items.IndexOfObject(TObject(-1)).ToString);
end;

// ListBox
procedure TForm1.btnListBoxClick(Sender: TObject);
begin
  ShowMessage(lb.Items.IndexOfObject(TObject(-1)).ToString);
end;

Resultado:


Saludos

[Angel.Matilla]

Gracias por las respuestas.

Empezado por movorack

Si almacenas el entero como objeto la búsqueda del valor también debe hacerse como un objeto.

Pero, hasta donde yo entiendo, la búsqueda la hago como un objeto ¿o no?

Formacion->ItemIndex = Formacion->Items->IndexOfObject((TObject*)nItem)

Otra cosa es que probablemente esté interpretando mal como funciona IndexOfObject, pero de acuerdo con la ayuda de Builder lo que devuelve es el índice de la primera cadena de la lista asociada a un objeto determinado.

Empezado por ecfisa

Dá error cuando se selecciona "menos 1" (-1)

¡Curioso! Parece que devuelva el contenido del objeto en vez de su índice.

[Angel.Matilla]

Empezado por ecfisa

Dá error cuando se selecciona "menos 1" (-1)

He hecho una prueba similar a la tuya y me da error con cualquier valor negativo.

[[movorack]]

Al parecer el componente TListBox si tiene un problema



En este código estoy usando un TCombobox, TListBox y un TStrings.

Las funciones que alimentan y leen de las listas son las mismas, el objeto de lista es pasado como parámetro y la lista del TListBox genera error.

Código Delphi [-]
procedure TForm1.LlenarListasClick(Sender: TObject);
  procedure LlenarListaDatos(SL: TStrings);
  begin
    SL.BeginUpdate;
    try
      SL.Clear;
      try
        FDMemTable1.First;
        while not FDMemTable1.Eof do
        begin
          SL.AddObject(FDMemTable1Valor.AsString, TObject(FDMemTable1Codigo.AsInteger));
          FDMemTable1.Next;
        end;
      finally
        FDMemTable1.First;
      end;
    finally
      SL.EndUpdate;
    end;
  end;
begin
  //El orden de llenado no afecta la cantidad de items
  LlenarListaDatos(FLista);
  LlenarListaDatos(ComboBox1.Items);
  LlenarListaDatos(ListBox1.Items);
  Memo1.Lines.Assign(FLista); //Solo para mostrar el contenido de la lista en pantalla
end;

procedure TForm1.ObtDeListasClick(Sender: TObject);
  procedure EstValores(EditS, EditO: TEdit; SL: TStrings);
    var
      lIndex: Integer;
  begin
    EditS.Clear;
    EditO.Clear;
    
    if (SL.Count = 0) then
      Exit;

    try
      lIndex := SL.IndexOf(FDMemTable1Valor.AsString);
      if lIndex >= 0 then
        EditS.Text := SL[lIndex];
    except
      on E: Exception do
        EditS.Text := 'Error: ' + E.Message;
    end;      
      
    try
      lIndex := SL.IndexOfObject(TObject(FDMemTable1Codigo.AsInteger));
      if lIndex >= 0 then
        EditO.Text := IntToStr(Integer(SL.Objects[lIndex]));
    except
      on E: Exception do
        EditO.Text := 'Error: ' + E.Message;
    end;
  end;
begin
  EstValores(EditCBS, EditCBO, ComboBox1.Items);
  EstValores(EditLBS, EditLBO, ListBox1.Items);
  EstValores(EditSLS, EditSLO, FLista);
end;