Hallo liebe Leute,

brauch nochmal eure Hilfe.

Folgendes Problem:

Ich habe bereits einen ausgewählten eintrag von der listbox in eine *.ini datei geschrieben mit folgendem inhalt:

[Inhalt]
Text = diese ist ein ausgewählter text welcher vorher in der ini datei gespeichert wurde.

nun möchte ich den gespeicherten eintrag aus der *.ini datei beim start der Anwendung wieder selectieren.


bitte nochmals um hilfe!
vielen dank


MfG

PS. handelt sich nicht um ItemBox sondern listbox

Könntest Du Deinen Beitrag noch einmal in verständlichem Deutsch formulieren?

markieren

Delphi-Quellcode:

var
  lStr : string;
begin
  ...
  lStr := Ini.ReadString( 'Inhalt', 'Text', '' );
  ...
  ListBox1.ItemIndex := ListBox1.Items.IndexOf( lStr );
end;

Daran hatte ich auch erst gedacht, aber was soll dann

Zitat:

in der listbox sind ca. 10 einträge aber es soll nur dieser geladen werden welcher in der ini datei steht.

bedeuten?

Zitat von DeddyH:

Daran hatte ich auch erst gedacht, aber was soll dann

Zitat:

in der listbox sind ca. 10 einträge aber es soll nur dieser geladen werden welcher in der ini datei steht.

bedeuten?

Das sind Verschiebungen in der Matrix

Nicht im Raum-Zeit-Kontinuum?

Zitat von EarthQuaker:

Ich habe bereits einen ausgewählten eintrag von der listbox in eine *.ini datei geschrieben

Wenn es immer der gleiche Inhalt ist, würde ich eher den Index Wert speichern.

@All

Habe ich das jetzt falsch in Erinnerung oder hat IndexOf früher auf Groß-/Kleinschreibung geachtet?

Wie kann ich direkt nur den indexwert speichern? in der listbox sind unterschiedlich lange inhalte von rechner zu rechner unterschiedlich.

MfG

Die INI wird ja lokal sein? Ansonsten wäre die Zuordnung den Text ja auch unzuverlässig ...
Itemindex speichern und nach dem Laden der Items , Itemindex setzen ...

Zitat von EarthQuaker:

Wie kann ich direkt nur den indexwert speichern? in der listbox sind unterschiedlich lange inhalte von rechner zu rechner unterschiedlich.

MfG

Wie gesagt, das macht dann Sinn wenn sich am Inhalt der ListBox nichts ändert.

Das Speichern ist relativ einfach, denn hier kann eigentlich kein Fehler vorkommen. Also einfach ItemIndex speichern.

markieren

Delphi-Quellcode:

var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  try
    Ini.WriteInteger('Section', 'Ident', ListBox1.ItemIndex);
  finally
    Ini.Free;
  end;
end;

Das Laden ist etwas komplexer, denn hier kann ein Fehler vorkommen. Also den Wert zuerst zwischenspeichern, prüfen und erst dann zuweisen.

zusammenfalten · markieren

Delphi-Quellcode:

var
  Ini: TIniFile;
  i: Integer;
begin
  Ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  try
    //ListBox1.ItemIndex := -1;
    i := Ini.ReadInteger('Section', 'Ident', ListBox1.ItemIndex);

    if (i > -1) and (i < ListBox1.Items.Count) then
      ListBox1.ItemIndex := i;
  finally
    Ini.Free;
  end;
end;