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