Liste Sortieren - Gleiche Liste wie bei den anderen Themen

[Schnittcher]

Hallo,

und nochmal eine Frage, wie sortiere ich so eine Liste?

Ich will die Liste nach Besitzer sortieren.

Delphi-Quellcode:

procedure TForm1.cmdIndexClick(Sender: TObject);
var
  pAuto: IAuto;
  index: Integer;
begin
  index := 0;
  index := StrToInt(edIndex.Text);
  pAuto := AutoList.Items[index];
  edBesitzer.Text := pAuto.ErgebnisName;
  edKW.Text := FloatToStr(pAuto.ErgebnisKW);
  edPS.Text := FloatToStr(pAuto.ErgebnisPS);

So zeige ich mir zum Beispiel einen Index an, nur damit ihr wisst um was für eine Liste es sich handelt.

Gruß,
Schnittcher

[mkinzler]

Schaun dir mal Tlist.Sort an

[Schnittcher]

Hallo,

es ist keine ListBox.

Delphi-Quellcode:

  TAutoList = class(TInterfacedobject, IAutoList)
  private
    FList: IInterfaceList;
  protected
    procedure add(const AValue: IAuto);
    procedure clear;
    function count: Integer;
    function get_Items(const AIndex: Integer): IAuto;
    property Items[const AIndex: Integer]: IAuto read get_Items; default;
  public
    constructor Create;
  end;

Das ist meine Liste.

Gruß,
Schnittcher

[XXcD]

Du solltest vielleicht erstmal sagen worin du die Besitzer anzeigst und darin kannst du die dann sortieren.

[Schnittcher]

Hallo,

ich zeige immer nur einen Wert in einem TextFeld an.

Das sortieren soll nur in der Liste passieren, auch wenn man es nicht sieht.

Gruß,
Schnittcher

[mkinzler]

AutoList.Items[] müsset doch eine T(String)List sein?

[Schnittcher]

Hallo,

nein AIndex: Integer;

Gruß,
Schnittcher

[Medium]

Zitat von mkinzler:

AutoList.Items[] müsset doch eine T(String)List sein?

[Schnittcher]

Hallo,

ja sorry.

Gruß,
Schnittcher

[Medium]

In dem Fall einfach mal "TStringList" im Editor eingeben, Cursor drauf und F1 drücken. Da sollte dir eine bestimme Methode sofort ins Auge stechen.