Opendialog

[ecHo89]

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]);