Items in ComboBox schreiben

[ByTheTime]

Hallo,
In meiner Anwendung gibt es eine Art "Itemmanager", mit dem der Anwender seine eigenen "Inhalte" einfügen kann, um sie nicht immer wieder neu einzutippen. Der soll eigentlich so funktionieren:

In meiner ComboBox gibt es Kategorien: "--- Kategorie 1 ---", "--- Kategorie 2 ---". Im OneExit der ComboBox habe ich eine if-Abfrage rein, die erkennt wenn das angwählte Element eine der Kategorien ist, dann leert sie die ComboBox (nur so zur Info ).

Jetzt zu meiner Frage:
Ich habe mir vorgestellt, das es 1 Editfeld und eine ComboBox gibt. Der Anwender schreibt den Itemnamen in das Editfeld und wählt in der ComboBox die Kategorie aus. Aber wie füge ich das Element hinzu? ICh hätte folgendes gemacht:

Delphi-Quellcode:

// Achtung, habe ich nicht getestet, war nur 'ne Überlegung, werde es gleich ausprobieren!
ComboBox1.Items.Add(ComboBox1.Items.IndexOf(ComboBoxKategorie) + 1];

Aber jetzt die Probleme:
1. Was wenn dort schon etwas steht? Wie richte ich am besten eine Schleife ein, die den Vorgang solange wiederholt, bis dort nichts mehr steht?
2. Gibt es auch eine .SaveToFile-Funktion, iwie muss ich die Items ja auch speichern...


Danke

Lukas

[Luckie]

Zitat von ByTheTime:

// Achtung, habe ich nicht getestet, war nur 'ne Überlegung, werde es gleich ausprobieren!

Und warum probierst du es nicht vor dem Beitrag schreiben aus?

[Sir Rufo]

Grundsätzlich sollte man sich folgendes merken:

Eine GUI-Komponente ist ein denkbar schlechter Ort zum Verwalten von Daten.
Diese sollten ausschließlich gemäß ihrer Bestimmung verwendet werden.

Ein Problem hast du ja selber schon angeführt: Wie speichert man das denn jetzt?

Legt man die Verwaltung der Daten so an, dass diese zum Anzeigen ganz toll sind, steht man sich spätestens beim nächsten Schritt (verarbeiten, speichern) schon wieder auf den Füßen.

Also die Daten so speichern, dass die Verarbeitung optimal erfolgen kann.

Für die Funktionen Anzeige und Speichern erstellt man sich einfach Klassen, die das erledigen.

z.B. für das Anzeigen in einer ComboBox

Delphi-Quellcode:

type
  TMyDataToComboBox = class( TComponent )
  private
    fComboBox : TComboBox;
    fValues : TMyValueList;
    procedure SetComboBox( Value : TComboBox );
    procedure SetValues( Value : TMyValueList );
    function GetValue : TMyValue;
    procedure SetValue( Value : TMyValue );
  public
    property Value : TMyValue read GetValue write SetValue;
  published
    property ComboBox : TComboBox read fComboBox write SetComboBox;
    property Values : TMyValueList read fValues write SetValues;
  end;

Die Methoden SetComboBox und SetValues müssen dafür sorgen, dass die ComboBox mit den Werten gefüllt wird.
Die Methode SetValue ermittelt den Index des Wertes und setzt den ItemIndex der ComboBox
GetValue macht das eben andersherum und ermittelt über den ItemIndex der ComboBox den zugehörigen Wert und liefert diesen Wert zurück.

Der Lohn der Mühe:

Delphi-Quellcode:

procedure TForm1.Create( AOwner : TComponent );
begin
  inherited;
 
  MyDataPresenter := TMyDataToComboBox.Create( Self );
  MyDataPresenter.ComboBox := ComboBox1;
  MyDataPresenter.Values := MyValues;
  MyDataPresenter.Value := MyValue;
  
end;

und schon sollten alle Werte in der ComboBox stehen und diese auch auf den aktuellen Wert verweisen.
Um die ComboBox jetzt zu aktualisieren reicht dann:

Delphi-Quellcode:

MyValues.Add( MyNewValue );
MyDataPresenter.Values := MyValues;
MyDataPresenter.Value := MyNewValue;

[ByTheTime]

Jop danke, funktioniert...