TListbox füllen und abfragen

[Sir Rufo]

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.

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:

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.

[khh]

ich danke dir

[khh]

ä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

[mkinzler]

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.

[khh]

ok, ich danke dir

[Sir Rufo]

Hmmm, mein Link zur Doku sagt genau das ...

Und es wird nicht die ToString Methode der TObjectList aufgerufen.

[himitsu]

Ist praktische ein Methode, die an allen Klassen dran hängt.
Kann man also ohne zu casten somit überall aufrufen.

Wie bereits erwähnt, geht es noch besser, wenn sie auch überschrieben wurde und was Sinnvolles zurückgibt, daß möglichst die "Stringrepresentation" des Objektinhaltes ausgibt.