ComboBox per Hand füllen

[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