OpenDialog

[Fahman]

Можно ли так сделать:

Открыть .txt через OpenDialog удалить в нем дубликаты, и показать сообщение сколько было удалено дубликатов, и сохранить результат в тот же txt?

[eval]

через OpenDialog ничего открыть нельзя, следовательно задача не имеет решения

[type_Oleg]

OpenDialog нужен лишь для того, чтобы выбрать имя файла в привычном для пользователей Windows диалоговом окне. И все.
А дальше с этим именем файла OpenDialog.FileName делайте что хотите.
То есть задача решается, независимо от того, пользоваться OpenDialog, или нет.

[Fahman]

Ну а примерчик может кто дать?

[Алексей_2012]

if not opendialog1.execute then exit;
form1.caption:=opendialog1.filename;

В заголовке формы появится путь к выбранному через Topendialog файлу) а если файл не выбран, то ничего не появится

[alextrof94]

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;

UPD: код работает только с дублирующимися строками...

[eval]

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

[Serge_Bliznykov]

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

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

ну, там не всё так однозначно.

цитирую Анатолия Подгорецкого (отсюда):

Сообщение от Anatoly Podgoretsky

Вот же в справке четко написано

поэтому, если допустимо изменение порядка элементов в файле, задача может быть решена максимально эффективно, в пару строчек:

procedure TForm1.Button1Click(Sender: TObject);
var ts : TStringList;
begin
  if OpenDialog1.Execute then begin
    ts := TStringList.Create;
    try
      ts.Duplicates := dupIgnore;
      ts.Sorted := true;
      ts.LoadFromFile(OpenDialog1.FileName);
      Memo1.Lines.Text := ts.Text;  // для отладки выведем текст в мемо...
    finally
      ts.Free;
    end;
  end;
end;

если же сортировку списка включать нельзя, тогда сложнее.
но я бы всё равно сделал поиск дубликатов через IndexOf()

[Fahman]

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

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;

UPD: код работает только с дублирующимися строками...

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

[eval]

арифметика - вычитание, с = а-в