AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi ListBox mit verknüpften StringLists sortieren
Thema durchsuchen
Ansicht
Themen-Optionen

ListBox mit verknüpften StringLists sortieren

Ein Thema von delphihase · begonnen am 20. Dez 2011 · letzter Beitrag vom 26. Dez 2011
Antwort Antwort
Impulz

Registriert seit: 19. Aug 2011
Ort: Lübeck
68 Beiträge
 
Delphi 7 Professional
 
#1

AW: ListBox mit verknüpften StringLists sortieren

  Alt 21. Dez 2011, 10:29
ich glaube er will 2 Ebenen in einer zusammenfassen.

hast du 2 listen die du in eine anzeige bringen willst? oder wie?
Danil
  Mit Zitat antworten Zitat
delphihase

Registriert seit: 24. Jun 2011
21 Beiträge
 
Delphi XE Professional
 
#2

AW: ListBox mit verknüpften StringLists sortieren

  Alt 21. Dez 2011, 15:35
Hmm - also:

ich habe eine ListBox (1). in der steht halt immer Feld1 und Feld2.

Dann gibt es Edit-Komponenten, um die ganzen Felder editieren zu können. Ja, soweit bin ich ja schon.

Aber: ich brauche dann eine weitere ListBox (2), die dann die Einträge der von Bjoerk genannten SubList1 anzeigen. Wieder Feld1 und Feld2.
Dann ändern sich auf "Change" der ListBox2 wieder ein paar Felder, eben die der SubList1.

In der SubList 1 gibt es nochmal eine ListBox (3). Auf das OnChange dieser sehe ich dann Inhalte der SubList2.

@Bjoerk: Ich habe aber in der SubList2 mehrere Felder, nicht nur eines. nämlich zwei Stück.
Grüße,

Maximilian alias delphihase
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.545 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: ListBox mit verknüpften StringLists sortieren

  Alt 21. Dez 2011, 18:08
Vielleicht könnte man die Struktur so abbilden (Fehler vorbehalten):
Delphi-Quellcode:
type
  TInteresse = class
  private
    FDetailTyp: string;
    FDetail: string;
  public
    property DetailTyp: string read FDetailTyp write FDetailTyp;
    property Detail: string read FDetail write FDetail;
  end;
  
  TInteressenKategorie = class
  private
    FInteressen: TObjectList<TInteresse>;
    FTyp: string;
    function GetInteresse(Index: integer): TInteresse;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddInteresse(Value: TInteresse);
    procedure Sortiere;
    property Typ: string read FTyp write FTyp;
    property Interesse[Index: integer]: TInteresse read GetInteresse;
  end;
  
  TEintrag = class
  private
    FKategorien: TObjectList<TInteressenKategorie>;
    FTyp: string;
    FName: string;
    function GetKategorie(Index: integer): TInteressenKategorie;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddKategorie(Value: TInteressenKategorie);
    procedure Sortiere;
    property Typ: string read FTyp write FTyp;
    property Kategorie[Index: integer]: TInteressenKategorie read GetKategorie;
  end;
  
  TListe = TObjectList<TEintrag>;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: ListBox mit verknüpften StringLists sortieren

  Alt 21. Dez 2011, 19:03
Hmm - also:

ich habe eine ListBox (1). in der steht halt immer Feld1 und Feld2.

Dann gibt es Edit-Komponenten, um die ganzen Felder editieren zu können. Ja, soweit bin ich ja schon.

Aber: ich brauche dann eine weitere ListBox (2), die dann die Einträge der von Bjoerk genannten SubList1 anzeigen. Wieder Feld1 und Feld2.
Dann ändern sich auf "Change" der ListBox2 wieder ein paar Felder, eben die der SubList1.

In der SubList 1 gibt es nochmal eine ListBox (3). Auf das OnChange dieser sehe ich dann Inhalte der SubList2.

@Bjoerk: Ich habe aber in der SubList2 mehrere Felder, nicht nur eines. nämlich zwei Stück.
Das heißt, du hast eine Hypertextstruktur? Jeder Item sieht so aus, stimmt das ?

Code:
X
X.1    X.2
X.1.1  X.2.1
X.1.2  X.2.2
  Mit Zitat antworten Zitat
delphihase

Registriert seit: 24. Jun 2011
21 Beiträge
 
Delphi XE Professional
 
#5

AW: ListBox mit verknüpften StringLists sortieren

  Alt 23. Dez 2011, 16:44
@Bjoerk: Ja, so meine ich es.
Grüße,

Maximilian alias delphihase
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: ListBox mit verknüpften StringLists sortieren

  Alt 23. Dez 2011, 21:44
Dann ist das ein z.b. ein array of Record oder Tlist oder objectlist, keine stringlist. ich poste dir gleich mal ein beispiel, muss suchen...
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: ListBox mit verknüpften StringLists sortieren

  Alt 23. Dez 2011, 23:01
Zu Übungszwecken können wir ja mal ein array nehmen. Du kannst das weiter anpassen, ich hab die Variablen des Records jetzt einfach mal X usw. genannt. Die sortierten Einträge dann einfach in die Listbox eintragen. Wenn du nach anderen Werten sortieren willst, einfach eine weietre Sort Methode hinzufügen.

Delphi-Quellcode:
unit uArrayBeispielUnit;

interface

type
  TItem = record
    X,
    X1, X11, X12,
    X2, X21, X22: string;
  end;
  TItemList = class(TObject)
  private
    FItems: array of TItem;
    FCount: integer;
    procedure SetCount(NewCount: integer);
    function GetItem(Index: integer): TItem;
    procedure SetItem(Index: integer; const Item: TItem);
  public
    procedure AddItem(const Item: TItem);
    procedure DelItem(Index: integer);
    procedure InsItem(Index: integer; const Item: TItem);
    procedure Clear;
    function IndexOf(Value: string): integer;
    procedure Exchange(Index1, Index2: integer);
    procedure Sort;
    property Items[Index: integer]: TItem Read GetItem Write SetItem; default;
    property Count: integer Read FCount;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

constructor TItemList.Create;
begin
  inherited Create;
  FCount:= 0;
end;

destructor TItemList.Destroy;
begin
  Clear;
  inherited Destroy;
end;

procedure TItemList.SetCount(NewCount: integer);
begin
  FCount:= NewCount;
  SetLength(FItems, FCount);
end;

procedure TItemList.Clear;
begin
  while FCount > 0 do DelItem(FCount-1);
end;

function TItemList.GetItem(Index: integer): TItem;
begin
  Result:= FItems[Index];
end;

procedure TItemList.SetItem(Index: integer; const Item: TItem);
begin
  Items[Index]:= Item;
end;

procedure TItemList.AddItem (const Item: TItem);
begin
  SetCount(FCount+1);
  FItems[FCount-1]:= Item;
end;

procedure TItemList.InsItem(Index: integer; const Item: TItem);
var
  I: integer;
begin
  SetCount(FCount+1);
  for I:= FCount-1 downto Index+1 do
    FItems[I]:= FItems[I-1];
  SetItem(Index, Item);
end;

procedure TItemList.DelItem(Index: integer);
var
  I: integer;
begin
  for I:= Index to FCount-2 do
    FItems[I]:= FItems[I+1];
  SetCount(FCount-1);
end;

function TItemList.IndexOf(Value: string): integer;
var
  I: integer;
begin
  Result:= -1;
  for I:= 0 to FCount-1 do
    if FItems[I].X = Value then
    begin
      Result:= I;
      Break;
    end;
end;

procedure TItemList.Exchange(Index1, Index2: integer);
var
  T: TItem;
begin
  T:= FItems[Index1];
  FItems[Index1]:= FItems[Index2];
  FItems[Index2]:= T;
end;

procedure TItemList.Sort;
var
  I, J: integer;
begin
  for I:= 0 to FCount-2 do
    for J:= I+1 to FCount-1 do
      if FItems[I].X > FItems[J].X then Exchange(I, J);
end;

end.
Delphi-Quellcode:
unit BeiepielUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, uArrayBeispielUnit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FItemList: TItemList;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FItemList:= TItemList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FItemList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Item: TItem;
  I: integer;
begin
  FItemList.Clear;
  for I:= 1 to 3 do
  begin
    Item.X:= 'X.'+IntToStr(3-I);
    Item.X1:= 'X1.'+IntToStr(3-I);
    Item.X2:= 'X2.'+IntToStr(3-I);
    Item.X11:= 'X11.'+IntToStr(3-I);
    Item.X12:= 'X12.'+IntToStr(3-I);
    Item.X21:= 'X21.'+IntToStr(3-I);
    Item.X22:= 'X22.'+IntToStr(3-I);
    FItemList.AddItem(Item);
  end;
  for I:= 0 to FItemList.Count-1 do
    ShowMessage(FItemList[I].X);
  FItemList.Sort;
  for I:= 0 to FItemList.Count-1 do
    ShowMessage(FItemList[I].X);
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#8

AW: ListBox mit verknüpften StringLists sortieren

  Alt 23. Dez 2011, 23:17
***deleted***
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)

Geändert von Bummi (23. Dez 2011 um 23:46 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz