ComboBox per Hand füllen

[DeddyH]

Die "Ini-Schleife" könnte z.B. so aussehen:

Delphi-Quellcode:

for i := 0 to ComboBox.Items.Count - 1 do
  Ini.WriteString('Items',IntToStr(i),ComboBox.Items[i]);

Die Ini hätte dann beispielsweise folgendes Aussehen:

Code:

[Items]
0=UT
1=MESZ
2=MEZ

[lore]

Hi DeddyH,
soweit klappts jetzt.

Delphi-Quellcode:

procedure TfrmMain.cbox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var ini : TiniFile;
     i: Integer;
begin
 with TComboBox(Sender) do
    if Key = VK_RETURN then
      if Items.IndexOf(Text) < 0 then
        begin
        ItemIndex := Items.Add(Text);
          try      {das ist die Schleife zum Erzeugen des Eintrags in der INI }
           ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'config.ini');
           for I := 0 to cbox1.Items.Count - 1 do
            ini.WriteString('TimeZone',intToStr(i),cbox1.Items[i]);
          finally
           ini.Free;
        end;
 end;
end;

Das Auslesen der INI muss ins formCreate oder?

Würde das dann so aussehen?

Delphi-Quellcode:

try
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'config.ini');
  for I := 0 to cbox1.Items.Count - 1 do
   cbox1.Items[i] :=  ini.readString('TimeZone',intToStr(i),cbox1.Items[i]); // Ist diese Zeile so richtig?? 
finally
 ini.Free;
end;

Für heute mach ich erstmal Schluss und werde morgen dann das einlesen mal üben


Danke,
Karsten__________________________________________________ _______________________
www.deepSkyObserver.de

[DeddyH]

Jo, das macht Sinn.

[lore]

Hi DeddyH,
ich dachte auch das das Sinn hat, funzt aber leider nicht.

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var ini : TiniFile;
       I: integer;
begin
   try
   ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'config.ini');
   for I := 0 to cbox1.Items.Count - 1 do
   begin
    cbox1.Items[i] :=  ini.ReadString('TimeZone',intToStr(i),cbox1.Items[i]);  //combobox mit den Werten aus der INI befüllen
    showMessage(intToStr(i));
   end;
  finally
   ini.Free;
  end;
end;

Ich hab's mit F7 durchgesteppt und festgestellt, dass nur die Werte gelesen werden, die schon vorher beim Objekt unter Items >> Strings im Stringlisteneditor eingetragen waren. In der INI stehen aber 10 Stück, also wird die INI nicht ausgelesen. Ist die Schleife falsch oder wie kann ich das rausfinden? Weiß gerade mal wieder nicht weiter..

Gruß,
Karsten

[tomsel]

Das liegt an:

for I := 0 to cbox1.Items.Count - 1 do du liest hier nur so viele Einträge aus der ini, wie eh schon in der Combobox drin sind. Was du brauchst, ist die Anzahl aller Werte in der INI.

[DeddyH]

Versuch es mal mit

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var ini : TiniFile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'config.ini');
  try
    Ini.ReadSectionValues('TimeZone',cbox1.Items);
  finally
    ini.Free;
  end;
end;

[messie]

Nein der Fehler passiert beim Abspeichern. Es werden nur Werte in die ini geschrieben, die nachträglich eingefügt werden. Um alle so wie geplant einlesen zu können, müssen alle Werte in die ini geschrieben werden.

Grüße, Messie

[lore]

HI deddyH,

jetzt habe ich den lustigen Effekt, dass beim Abspeichern alles doppelt angzeigt wird und einmal mehr in die INI gespeichert wird. Wenn ichs drei mal aufrufe siehts wie folgt aus:

[TimeZone]
0=0=0=UT
1=1=1=MESZ
2=2=2=MEZ
3=3=3=myTimeZone1
4=4=4=myTimeZone2
5=5=5=myTimeZone3
6=6=6=myTimeZone4
7=7=7=myTimeZone5
8=8=8=myTimeZone6
9=9=9=myTimeZone7

Hi Messi, ich verstehe nicht so ganz was du meinst, aber habe nach diesem Ergebnis so eine dunkle Ahnung was du jetzt meinen könntest.

[DeddyH]

*Oops*, dann bleibt wohl nur, ReadSectionValues auf eine temporäre Stringliste anzuwenden und dort je Zeile alles bis zum Gleichheitszeichen rauszulöschen. Anschließend den Items zuweisen. Wenn jemand einen besseren Vorschlag hat, immer her damit, mir gefällt das so nämlich auch nicht, hab aber heute irgendwie ein Brett vor dem Kopf.

[taaktaak]

Moin, Moin,
na, das hieße an den Symptomen herumzudoktern. Wie messie schon bemerkte: Der Fehler entsteht ja beim Speichern. Ist der Code aus #12 noch aktuell? Idee: Vor dem Speichern zunächst die Section komplett löschen.