1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.ffnen1Click(Sender: TObject);
var i, laenge_eintrag, a: integer;
    eintrag, eintrag_neu, dir : string;
    ini: TIniFile;
begin
IF Opendialog1.execute then
begin
  Getdir(0, dir);
  dir:=dir + '\playlist.ini';
  ini:=TIniFile.Create(dir);
  Playlist.Items.AddStrings(OpenDialog1.Files);
  Playlist.Enabled:=true;
  for i:=0 to Playlist.Items.Count-1 do
  begin
    eintrag:=Playlist.Items.Strings[i];
    eintrag_neu:='';
    laenge_eintrag:=Length(eintrag)-4;
    for a:=laenge_eintrag downto 1 do begin
     if ((eintrag[a]='/') or (eintrag[a]='\')) then break;
     eintrag_neu:=eintrag[a]+eintrag_neu;
    end;
    ShowMessage(eintrag_neu);
    ini.WriteString(eintrag_neu,'Original',eintrag);
    ini.WriteString(eintrag_neu,'Große',inttostr(FSize(eintrag)));
  end;


    finally
    Ini.Free;
end;