Hallo zusammen, ich habe eine Listbox die ich in einer Schleife per :

Listbox1.Items.Add (ZQuery1.FieldByName('gesamtname').AsString); befülle

dieser gesamtname setzt sich aus nachfolgender Query zusammen.

select vorname || ', ' || name as gesamtname from mitarbeiter;

Kann ich da jetzt noch die user_id aus der DB (unsichtbar) hinterlegen und auf diese bei der Auswahl eines Namens in der Listbox zugreifen?

Danke für eure Hilfe

Verwende AddObject, dann kannst Du dort die ID hinterlegen

ich danke dir

Gruss KHH

Der richtige Weg geht eigentlich etwas anders.

Aus der Query erstellt man sich ein DatenObject. Dieses DatenObject ab in eine ObjectList. Von der ObjectList füllt man dann die ListBox. Den anzuzeigenden Text nimmt man sich aus der (überschriebenen) Methode TObject.ToString

zusammenfalten · markieren

Delphi-Quellcode:

procedure FillStrings( AStrings : TStrings; ADataList : TObjectList );
var
  LIdx : Integer;
begin
  AStrings.BeginUpdate;
  try
    AStrings.Clear;
    for LIdx := 0 to ADataList.Count - 1 do
    begin
      AStrings.AddObject( ADataList[LIdx].ToString, ADataList[LIdx] );
    end;
  finally
    AStrings.EndUpdate;
  end;
end;

Über das ausgewählte Item von so einem Listen-Control bekomme ich nun die Referenz, den Referenz-Typ und damit alle anderen zugehörigen Informationen.

Dadurch wird es egal, was für Objekte ich mit dem Listen-Control verknüpfen möchte - eben auch gemischt wie z.B. Personen, Firmen. Über den Referenz-Typ bekomme ich das heraus und kann damit verbundene Aktionen einleiten.

alsoo
ich habe mir jetzt ein Objekt mit den entsprechenden Setter und Getter erstellt:
dann die Werte, beispielhaft, zugewiesen
MyMitarbeiter:= TMitarbeiter.create();
MyMitarbeiter.SetName('Meier');

und der Objektlist übergeben:
MyMitarbeiterList.Add(MyMitarbeiter);

wie komme ich jetzt an die einzelnen Werte, um sie in meineListbox zu schreiben?

oder hab ich das Ganze falsch verstanden ?

ich danke euch , gruss kH

Ob das in FPC schon so implementiert ist kann ich nicht adhoc sagen (müsste ich jetzt nachschauen ... kannst du ja auch machen ) in Delphi gibt es die virtuelle Methode TObject.ToString. Diese wird einfach überschrieben.

zusammenfalten · markieren

Delphi-Quellcode:

TPerson = class
private
  FFirstname : string;
  FLastname : string;
public
  function ToString : string; override;
  property Firstname : string read FFirstname write FFirstname;
  property Lastname : string read FLastname write FLastname;
end;

function TPerson.ToString : string;
begin
  Result := FLastname + ', ' + FFirstname;
end;

Das macht man dann für jede Klasse, die man in so ein Listencontrol reinklatschen möchte.

Und nun ganz einfach damit das Control füllen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure FillStrings( AStrings : TStrings; ADataList : TObjectList );
var
  LIdx : Integer;
begin
  AStrings.BeginUpdate;
  try
    AStrings.Clear;
    for LIdx := 0 to ADataList.Count - 1 do
    begin
      AStrings.AddObject(
        ADataList[LIdx].ToString, // da wird das jetzt benutzt
        ADataList[LIdx] );
    end;
  finally
    AStrings.EndUpdate;
  end;
end;

Die Methode ToString ist eben für so eine String-Repräsentation von einer Instanz vorgesehen um diese z.B. in so einem einfachen List-Control (ListBox, ComboBox, etc.) anzuzeigen.

ich danke dir

ähm, ich kapiere immer noch nicht ganz

in deinem Beispiel existiert die function "ToString" in der Klasse TPerson.
Beim Füllen des Controlls benutzt du diese Funktion aus der ObjectListe.
Steh ich jetzt soo aufm Schlauch ?

Gruss KH

Für solche Zwecke wurde diese Methode in TObject eingeführt, standardmässig wird nur der Klassennamen ausgegeben. Wenn Du aber Deine Klassen so anpasst, dass hier was sinnvolles zurückgegeben wird, kannst du das für Deine Zwecke verwenden.

ok, ich danke dir