Поиск одинаковых строк в файле

[ATL]

Помогите написать программу на Delphi:
Указывается путь к txt-файлу.
В файле текстовые строки. Нужна программа, которая будет искать одинаковые строки, и удалять их. То есть, циклом пройтись:
Если такой же строки нету - занести её в другой текстовик.
И так далее.

К примеру, в текстовике1:
1234
3412
3412
3412
6345
1234

Программа должна обработать текстовик1 и создать текстовик2 с содержимым:
1234
3412
6345


=======
Очень нужна программа, сдавать в коледж через неделю нужно!

[Сильванович Михаил]

Писать за тя не буду, но могу дать пару советов:
I.

Вар.1) можно отсортировать файлик 1 по алфавиту, тогда
будет проще обходить цикл и выбрасывать повторяющиеся

Вар.2)копируем 1 в 2, далее работаем со 2м:
- берем первую строку, ищем вхождения - повторы удаляем
- берем вторую и т.д.

II. Для работы с подобными файлами лучше использовать TStrings:

var x: TStrings;

...

x:=TStringList.Create;
x.LoadFromFile('filename.txt');

[zetrix]

У меня подобная задача была 2 года назад на олимпиаде
Вариант Михаила не прошёл 3 тест (на время), пришлось делать через множества (set of) - отсев дублей за 1 проход файла.

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
FLoad, FSave: TStringList;
i: integer;
tmp: string;
begin
FLoad := TStringList.Create;
try
FSave := TStringList.Create;
try
FLoad.LoadFromFile('file1.txt');
for i := 0 to FLoad.Count - 1 do
begin
tmp := FLoad[i];
if FSave.IndexOf(tmp) = -1 then
FSave.Add(tmp);
end;
FSave.SaveToFile('file2.txt');
finally
FSave.Free;
end;
finally
FLoad.Free;
end;
end;

Не надо ничего усложнять, все тривиально. Данные классы сами могут покопаться в себе и найти дубляжи.

[ATL]

Спасибо всем! Буду добавлять к этому интерфейс.

[zetrix]

Не надо ничего усложнять, все тривиально. Данные классы сами могут покопаться в себе и найти дубляжи

При больших файлах (>60000 строк) - не пройдёт по времени (1-2 сек - это максимум), но раз этого не требовалось...
Я за хорошее программирование

[Carbon]

При больших файлах лучше юзать пирамидальную сортировку или Шелла.

[ATL]

Скрипт переделал по новым требованиям, добавил интерфейс и анимацию окна.
Ещё один вопрос:
Необходимо, чтобы программа реагировала на регистр.
Как это можно сделать?

[ATL]

Ну помогите с регистром букв, пожалуйста

[zetrix]

Т.е. чтоб реагировала? Чтоб 'ABC' и 'abc' воспринимались как разные строки? Или наоборот, чтоб одинаковыми были?