OpenDialog

[doktor255]

А я бы сделал так

procedure TForm1.Button1Click(Sender: TObject);
var
  TS1, TS2: TStringList;
  i: integer;
begin
  if OpenDialog1.Execute then begin
    TS1:= TStringList.Create;
    TS1.LoadFromFile(OpenDialog1.FileName);
    TS2:= TStringList.Create;
    for I := 0  to TS1.Count - 1 do
      if TS2.IndexOf(TS1[i]) = - 1 then
        TS2.Add(TS1[i]);
    TS2.SaveToFile(ExtractFileDir(OpenDialog1.FileName) + '/result.txt'); // сохранение изменений
    ShowMessage('Из файла удалено ' + IntToStr(TS1.Count - TS2.Count) + ' строк.');
    TS1.Free;
    TS2.Free;
  end;
end;

[alextrof94]

Сообщение от Fahman

Вроде работает, а как вывести результат сколько удалено строк?

Забыл. Можно в самом конце (перед end) вывести

ShowMessage('Удалено '+IntToStr(c)+' строк.');

Сообщение от eval

alextrof94, вам почитать надобно про TStringList, и в частности про свойство Duplicates, прежде чем писать непойми что

Вот сами и почитайте. И написали бы сами код, используя Duplicates, а не говорили бы как обычно не относящиеся к теме вещи.

[Serge_Bliznykov]

Сообщение от alextrof94

Вот сами и почитайте. И написали бы сами код, используя Duplicates, а не говорили бы как обычно не относящиеся к теме вещи.

alextrof94, чуть выше я написал код, использующий Duplicates.
только есть нюанс - список после обработки будет отсортирован.
Если это не противоречит требованиям TC, то такой способ будет работать намного быстрее, чем полный перебор строк.
Создайте текстовый файлик хотя бы на пару тысяч строк и проверьте работоспособность вашего кода, поймёте, о чём идёт речь...

кроме того, обратите внимание на код от doktor255. Вот именно про этот способ я и говорил, когда писал про использование IndexOf

sapienti sat.

[eval]

alextrof94 а вы вот понимвете, почему когда отсортирован, то работает быстрее?

а ваще конечно при большом файле да и длинных строках, надо по другому действовать, тут по хэшам наверное надо

[Fahman]

var 
  MyStringList: TStringList;
  i, j, c: integer;
begin
 FileName:='';
 c:=0;
 OpenDialog1.execute;
 if OpenDialog1.filename<>'' then
 begin
  MyStringList:=TStringList.Create;
  MyStringList.LoadFromFile(OpenDialog1.filename);
  for i:=MyStringList.Count-1 downto 0 do
   for j:=MyStringList.Count-1 downto i+1 do
    if MyStringList[i]=MyStringList[j] then
    begin
     MyStringList.delete(j);
     inc(c);
    end;
  MyStringList.SaveToFile(OpenDialog1.filename);
  MyStringList.Free;
 end;
end;

Мне этот код больше понравился, намного быстрее удаляет. Только как в конце вывести сколько удалено строк?

[Аватар]

В стринглисте после LoadFromFile известно сколько строк? Известно.
В нем же перед SaveToFile тоже известно.
А теперь соберите всю волю в кулак и посчитайте со ста попыток - а сколько же удалено строк

[eval]

гляжу в книгу вижу фигу?

а зачем вам программирование?

[doktor255]

Сообщение от Аватар

А теперь соберите всю волю в кулак и посчитайте со ста попыток - а сколько же удалено строк

Хорош издеваться над новичками. Хочешь блеснуть интеллектом? Загляни в соседнюю тему где я клею png и реши простую задачку.

[Аватар]

Я не издеваюсь, а предлагаю кардинальный способ решения проблемы А темы, где собираюсь блеснуть интеллектом или продемонстрировать тупость, выбираю сам, а не по указке умников

[Fahman]

ну так как вывести результат?