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

Hoffe ich versteh das richtig:

Wenn deine INI so aussieht

markieren

Delphi-Quellcode:

[BlaBla]
Item1=test
Item2=
Item3=ffsdds

dann soll der in der Listbox nur das schreiben:

markieren

Delphi-Quellcode:

test
ffsdds

???

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

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'!

Achso wenn es so aussieht

markieren

Code:

[]
Test=sdofkjüwo

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

Moin Spider,

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

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

Ein bisschen Pseudocode:

markieren

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

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

Probier das

zusammenfalten · markieren

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.