ComboBox per Hand füllen

[lore]

nee, ich bin gerade am Fummel, denn das geht hier ja eigentlich um eine TStrinliste.. habe schon weiter Hilfe eingespannt und poste nachher mal das Ergebnis (oder die erneute Frage wenn ichs nicht raff).

Das ist der Momentane stand:

Delphi-Quellcode:

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

Ich muss aber leider gleich los und kann dann wohl erst später weitermachen

Bis später,
Karsten

[taaktaak]

Ok, aber ich meinte den Code zum Speichern der INI-Werte! Was mir auch sehr ungüstig erscheint: Warum soll die INI im OnKeyDown der Combobox gespeichert werden?? Das ist wohl kaum das richtige Event...

[lore]

Weil mir das Event vorgeschlagen wurde (und erstmal funktioniert) und "onChange" glaube ich auch nicht das richtige Event ist, oder?

[DeddyH]

Von wem wurde Dir das vorgeschlagen? Gestern hattest Du noch gefragt, ob FormCreate und FormDestroy die passenden Events seien. Diesen Post hast Du ja mittlerweile editiert.

[lore]

Hi, unter FormCreate lief es irgendwie nicht, und auf dem Event OnDestroy würde nur der letzte Eintrag weggeschrieben, aber nicht alle. Deswegen entschied ich mich das so zu machen wollte keinem zu Nahe treten.

[DeddyH]

Versteh ich jetzt nicht. Versuch doch mal, ob die Schleife zum Speichern im OnClose funktioniert (sollte sie eigentlich).

[NickelM]

So hab ichs in ne anwendung von mir gemacht. Ich vieleicht Verbesserungs- und Vereinfaschungsfähig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zeilen : Integer;
begin
Inifile.WriteInteger('Signatur','SignaturZeilen',Memo1.Lines.Count);
for Zeilen := 0 to Memo1.Lines.Count - 1 do
Inifile.WriteString('Signatur','Signatur' + IntToStr(Zeilen),Memo1.Lines[Zeilen]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var Zeilen : Integer;
    Zeilen1 : Integer;
begin
Zeilen1 := Inifile.ReadInteger('Signatur','SignaturZeilen',0);
Memo1.clear;
for Zeilen := 0 to Zeilen1 - 1 do
Memo1.Lines.Add(Inifile.ReadString('Signatur','Signatur' + IntToStr(Zeilen),''));
end;

end.

oder wenn du die Anwendung beendest werden alle Forms destroyed.

Deshalb OnDestroy

[lore]

Hi DeedyH

ich hab's gemacht und es funktioniert..brat mir doch einer einen Storch...(ach lieber nicht, der ist gerade bei uns unterwegs ) Komische Seiteneffekte? Habe Delphi2007pro auf Vista Busi. unter VMWare 6.x laufen..

Delphi-Quellcode:

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var ini: Tinifile;
     i : integer;
begin
     ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'config.ini');
     try
      for I := 0 to cbox1.Items.Count - 1 do
       ini.WriteString('TimeZone',intToStr(i),cbox1.Items[i]);
      finally
       ini.Free;
      end;
end;

Frage noch: warum kommt das "ini:=TIniFile.create(~" vor das "try"? Ich hatte es bisher immer mit ins try reingenommen.

[NickelM]

Damit es keine Exceptions wegen Datei nicht gefunden oder so gibt und dan nicht die Variable im speicher bleibt

[DeddyH]

Der finally-Block wird auf jeden Fall angesprungen. Nimmst Du nun das Erzeugen der Ini mit in den try-Block und das geht schief, wird anschließend versucht, ein Objekt freizugeben, das gar nicht existiert -> Folgefehler.