Problem mit DELETE ???

[markus5766h]

hab's jetzt so geändert - ist auch etwas übersichtlicher

Code:

  S := MediaList[1].Strings[n];
  p := Pos(Chr(19), S);
  Delete(S, 1, p);                             // ID
  p := Pos(Chr(19), S);
  S2 := Copy(S, 1, p-1);                       // FileName
  Delete(S, 1, p);
  S := Copy(S, 1, Length(S));                  // ext Daten
  S2 := ExtractFileExt(S2);                    // File Extension
  with MediaListView.Items.Add do
    begin
      Caption := SearchList[2].Strings[n];
      SubItems.Add(SearchList[3].Strings[n]);
      SubItems.Add(SearchList[5].Strings[n]);
      SubItems.Add(SearchList[1].Strings[n]);
      SubItems.Add(S);
      SubItems.Add(AddZero(IntToStr(i), 6));
      SubItems.Add(S2);
    end;