Klick on "Browse", wenn ein Pfad ausgewählt wurde und OK geklickt wurde.
Delphi-Quellcode:
if OpenDialog1.Execute=true then
edit.Text := OpenDialog1.FileName;
Klick on "Add"
Delphi-Quellcode:
if edit.Text <> '' then
begin
FormMain.ListBox1.Items.Add(edit.text)
edit.Text := '';
formadd.Hide;
end;
Listbox in INI Datei
for i:=0 to ListBox1.Count-1 do ini.WriteString(Nummer[Nr] <-- klappt ist einfach ein Array,'S' + inttostr(i+1),ListBox1.Items[i]);