Listbox eintrag löschen

[Die Muhkuh]

Hi,


ich lese aus ner Ini die Listbox einträge. Wenn aber mal ein eintrag nicht hat ('') dann soll der gelöscht werden! Aber wie?


Edit: In der OH steht nix weils wahrscheinlich das einfachste von der wellt ist

[Nalincah]

Hoffe ich versteh das richtig:

Wenn deine INI so aussieht

Delphi-Quellcode:

[BlaBla]
Item1=test
Item2=
Item3=ffsdds

dann soll der in der Listbox nur das schreiben:

Delphi-Quellcode:

test
ffsdds

???

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Die Muhkuh]

Nicht ganz,

wenn in der Ini nix steht und ich drücke auf den Button zum Aktualliesieren dann macht er in der Listbox ein eintrag hinzu aber es steht nix drin. Und der soll gelöscht werden'!

[Die Muhkuh]

Achso wenn es so aussieht

Code:

[]
Test=sdofkjüwo

Dann wird auch der Einrag zwar hinzugefügt aber man sieht ih nicht!

[Christian Seehase]

Moin Spider,

dann füg' doch einen Eintrag nur hinzu, wenn er gültig ist.

[Die Muhkuh]

Ich bin bei Ini's noch sehr unbeholfen! Wie geht das?

[Nalincah]

Ein bisschen Pseudocode:

Delphi-Quellcode:

If "Wert aus Ini auslesen" <> '' then
  Füge zu Listbox hinzu

da die ja schon werte hinzugefügt hast, geh ich davon aus das du weißt wie man was aus ne ini ausliest

[Die Muhkuh]

Zitat von General2003:

da die ja schon werte hinzugefügt hast, geh ich davon aus das du weißt wie man was aus ne ini ausliest

Jo bekomm ich grad noch so zusammen

[choose]

Probier das

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iItem: Integer;
begin
  with Listbox1, TIniFile.Create('myINI.ini') do
  try
    //liest in der Form "Ident=Value" lässt aber Einträge mit leeren
    //  Werten aus
    ReadSectionValues('MySection', Items);

    //Entfernen des "Ident="-Teils
    for iItem:=Pred(Items.Count) downto 0 do
      Items[iItem]:= Items.Values[Items.Names[iItem]];
  finally
    Free;
  end;
end;

Es ist nicht gerade die perfomanteste Lösung (Items.Values[Items.Names[iItem]]), außerdem könntest Du vor längeren Updates mithilfe von Listbox1.Items.BeginUpdate die Updates im Formular unterbinden.