Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.188.142.146] |
|
Сообщ.
#1
,
|
|
|
Как сохранить все дубликаты строк, именно сохранить а не удалить.
Вот так удаление идет дубликатов а вот интересно как их сохранить в отдельный файл ? var f1: TextFile; st: string; s: TStringList; begin AssignFile(f1, '1.txt'); reset(f1); s := TStringList.Create; While not EOF(f1) do begin readln(f1, st); If s.IndexOf(st) < 0 then s.Add(st); end; s.SaveToFile('2.txt'); s.Free; CloseFile(f1); end; То есть были строки: 123 123 4444 55555 123 И на выходе база: 123 123 123 |
Сообщ.
#2
,
|
|
|
Добавь else ветку, в ней добавляй st в другой stringlist. В конце программы сохрани ехо содержимое в файл.
|