Listview Удалить Одинаковые Слова С Суммированием Времени

[Sascha]

Помагите решить проблему. Есть текст в Listview :

10:00:36:03   10:00:47:23   00:11             VORSPANN TESTEDIT.WAV
10:00:47:23   10:00:50:22   00:02             VORSPANN TESTEDIT.WAV
10:00:50:22   10:00:57:05   00:06             VORSPANN TESTEDIT.WAV
10:00:57:05   10:01:10:06   00:13             BERLIN UND WIR OFFENES ENDE.WAV
10:01:07:22   10:01:24:03   00:16             LIQUIDATOR.MP3
10:01:24:03   10:01:36:11   00:12             LIQUIDATOR.MP3
10:01:36:11   10:01:46:00   00:09             GUITAR LEGEND.MP3
10:01:46:00   10:01:51:11   00:05             GUITAR LEGEND.MP3
10:01:56:13   10:02:10:06   00:13             LIQUIDATOR.MP3
10:02:10:06   10:02:14:02   00:03             MOLECULES.MP3
10:02:14:19   10:02:18:20   00:04             MOLECULES.MP3
10:02:40:16   10:02:48:09   00:07             MOLECULES.MP3
10:03:00:02   10:03:09:08   00:09             MIN017_13_GHETTO GLORY.MP3
10:03:09:08   10:03:25:00   00:15             MIN017_13_GHETTO GLORY.MP3
10:03:49:14   10:03:51:15   00:02             05 BEAT BOX.MP3
10:04:11:06   10:04:13:05   00:01             05 BEAT BOX.MP3
10:04:35:17   10:04:41:14   00:05             05 BEAT BOX.MP3
10:05:04:16   10:05:09:17   00:05             NSPS106_47_SUNSCAPE NONEXOTIC_NOVOX.MP3
10:05:09:17   10:05:23:00   00:13             NSPS106_47_SUNSCAPE NONEXOTIC_NOVOX.MP3
10:05:22:02   10:05:39:20   00:17             NSPS106_47_SUNSCAPE NONEXOTIC_NOVOX.MP3
10:05:54:04   10:06:03:08   00:09             (MAROON 5 - SUGAR) LIED, SCHLAGZEUG COVER.NEW

вот так выглядит в listview


Задач удалить одинаковые Musik Titles при этом посчитать сумму времени чтобы получилось приблизительно так :

исходный текст

10:00:36:03   10:00:47:23   00:11             VORSPANN TESTEDIT.WAV
10:00:47:23   10:00:50:22   00:02             VORSPANN TESTEDIT.WAV
10:00:50:22   10:00:57:05   00:06             VORSPANN TESTEDIT.WAV
10:00:57:05   10:01:10:06   00:13             BERLIN UND WIR OFFENES ENDE.WAV
10:01:07:22   10:01:24:03   00:16             LIQUIDATOR.MP3
10:01:24:03   10:01:36:11   00:12             LIQUIDATOR.MP3
10:01:36:11   10:01:46:00   00:09             GUITAR LEGEND.MP3
10:01:46:00   10:01:51:11   00:05             GUITAR LEGEND.MP3

обработаный текст

10:00:36:03   10:00:57:05   00:19             VORSPANN TESTEDIT.WAV
10:00:57:05   10:01:10:06   00:13             BERLIN UND WIR OFFENES ENDE.WAV
10:01:07:22   10:01:36:11   00:28             LIQUIDATOR.MP3
10:01:36:11   10:01:51:11   00:14             GUITAR LEGEND.MP3

Я буду благодарен за любую помощь

 

[Lomanu4]

как заливаешь данные в лист вью? Нету кода,я когда то пользовался вот этой процедурой,она через циклы проверяет по переменой если одинаковый текст и удаляет повторные. Пользовался для Android.

var
  hash : integer;
  i : integer;
  list : SomeGenericList; // некоторые общий перечень , чтобы содержать ваш хэш .
Begin
    list = SomeGenericList.Create;
    for i := pred(lv.Items.Count) downto 0
    begin
        hash := GetHashValue(lv.items[i]);
        if List.Contains(hash)
        begin
            lv.Items.Delete(i);
        end else
        begin
            List.Add(hash);
        end;
    end;
    list.free;
end;