Я проверяю дубликаты строк до символа =. И если строки есть то сохранить не удаляя дубликаты.
var f, s: TStringDynArray;
i, j, k: integer;
L, L1: TStringList;
index: array of integer;
begin
L := TStringList.Create;
L1 := TStringList.Create;
j := 0;
// грузим файл
f := TFile.ReadAllLines('1.txt');
// Проходим в цикле
for i := Low(f) to High(f) do
begin
// делим строку
s := SplitString(f[i], '=');
// первая часть стоки до знака =
k := L.IndexOf(s[0]);
if k = -1
then
begin
inc(j);
L.AddObject(s[0], TObject(1));
SetLength(Index, j);
Index[j - 1] := i;
end
else L.Objects[k] := TObject(Integer(L.Objects[k]) + 1);
end;
for i := 0 to High(Index) do
if Integer(L.Objects[i]) <> 1 then L1.Add(f[Index[i]]);
L1.SaveToFile('Выход.txt');
L1.Free;
L.Free;
end;
Пример строк
123=5678
324=345678
333=7678333
333=5457788
222=347678
222=47878888
На выходе должно получится
333=7678333
333=5457788
222=347678
222=47878888
А у меня получается.То есть еще и дубликаты удаляются а должны сохранится.
333=7678333
222=347678
TStringList
. Во-вторых, уTStringList
должны быть свойстваKeys
иValues
, поэтому дополнительныеSplitString
-и не нужны. В-третьих, разве вxe7
нетTDictionary
? ПреобразованияTObject <=> Integer
смотрятся ужасно. Заносишь туда, потом проверяешь, уникальные удаляешь из исходного списка.