So macht er nur einen Eintrag.
Was muß man ändern um:
[Pfad]
Datei=test1
Datei=test2
Datei=test3
zu bekommen?
Delphi-Quellcode:
procedure TMainForm.Button3Click(Sender: TObject);
var
ini : TIniFile;
begin
ini := TIniFile.Create(ChangeFileExt(paramstr(0),'.ini'));
try
if Memo1.Lines.Values['Datei'] = '' then
Ini.WriteString('Pfad', 'Datei', Memo1.Text)
else
Ini.WriteString('Pfad', 'Datei', Memo1.Lines.Values['Datei']);
finally
ini.Free;
end;
end;