Gemme i en ini fil

Kig på klassen TIniFile. Den er meget nem at gå til

Jens B

jeg ville selv foretrække at gemme værdierne i registreringsdatabasen...

så skal du kigge på klassen TRegistry

kan i ikke give mig source ?

Eventuelt TRegInifile ...

Jens B

kan man ikke lave sådan:
i form.close:
combobox1.items.savetofile(C:\hjemmesider.txt);
I form.create:
combobox1.items.loadfromfile(C:\hjemmesider.txt);

lav en memo med visible = false

i form.close
memo1.lines := combobox1.items;
memo1.lines.savetofile('C:\hjemmesider.txt');

i form.create
memo1.lines.loadfromfile('C:\hjemmesider.txt');
combobox1.items := memo1.lines;

i stedet for memo, så brug en variabel af typen tstrings

procedure TForm1.FormCreate(Sender: TObject);
var
list: tstrings;
begin
list := tstrings.Create;
list.LoadFromFile('C:\Hjemmesider.txt');
combobox1.Items := list;
list.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
list: tstrings;
begin
list := tstrings.Create;
list := combobox1.Items;
list.SaveToFile('C:\Hjemmesider.txt');
list.Free;
end;

kfz>> når man starter min browser aller første gang, melder den fejl og siger: Can not open C:\hjemmesider.txt! Kan jeg ikke gøre sådan at hvis den ikke kan finde C:\hjemmesider.txt så skal den oprette en?? hvis ja .. hvordan ??

procedure TForm1.FormCreate(Sender: TObject);
var
list: tstrings;
begin
if not fileexists('C:\Hjemmesider.txt') then
exit;
list := tstrings.Create;
list.LoadFromFile('C:\Hjemmesider.txt');
combobox1.Items := list;
list.Free;
end;

kfz>>Det her melder den:
" project TarZin.exe raised exception class EAAbstractError with message 'Abstract Error'. Process stopped use step or run to continue. "

ved ikke hvorfor den melder fejl, men den kommermed nogle warnings ved kompilering, mht list, så bare brug en memo istedet

procedure TForm1.FormCreate(Sender: TObject);
var //slet
memo1: tmemo; //slet
begin
if not fileexists('C:\Hjemmesider.txt') then
exit;
memo1 := tmemo.Create(form1); //slet
memo1.Parent := form1; //slet
memo1.lines.LoadFromFile('C:\Hjemmesider.txt');
combobox1.Items := memo1.lines;
memo1.Destroy; //slet
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var //slet
memo1: tmemo; //slet
begin
memo1 := tmemo.Create(form1); //slet
memo1.Parent := form1; //slet
memo1.Lines := combobox1.Items;
memo1.Lines.SaveToFile('C:\Hjemmesider.txt');
memo1.destroy; //slet
end;

du kan også bare sætte en memo på formen og sætte visible til false, i så fald slet alle linier med //slet udfor

hehe, jeg fik det til at virke ved at skrive:
combobox1.items.loadfromfile(C:\hjemmesider.txt);
combobox1.items.savetofile(C:\hjemmesider.txt);

lukker :D