Versucht habe ich es auf viele Weisen. funktioniert haben sie alle nicht, mir fehlt einfach das Grundwissen dazu. Meine größte Hoffnung war:
Code:
Procedure TForm1.CleanSaveList(d:string);
begin
ListBox1.Items := ExtractFileName(d);
end;
Fehler war dann
[Fehler] Unit1.pas(307): E2010 Inkompatible Typen: 'TStrings' und 'string'