Строки

[tortik3399]

Возникла такая проблема нужно чтоб при добавления файла в sBitBtn1 , производилась удаления дубликатов и сортировка . что бы сразу при добавление это действие происходила с файлом в нутри и потом он его добавлял из файла выбраного и уже отдублированого в файле будут значения типа идут значения например 24565456;5667677 или оааоа@ma.ru;567677 или 453453 или 675464 их много если можно то напишите код через StringList


по прогнозам он должен при нажатие загрузить отсортировать в файле удалить дубли и добавить уже в программу данные например в NumberList и выдавал количество строчек в файле

а вот что пробовал

procedure TForm1.sBitBtn10Click(Sender: TObject);
var
  StrList: TStringList;
begin
  if sOpenDialog1.Execute then
  begin //Если выбрали файл то
    StrList := TStringList.Create;
    StrList.Sorted := True;
    StrList.Duplicates := dupIgnore;
    StrList.Items.LoadFromFile(sOpenDialog1.FileName); //Загружаем выбранный файл
 
    sListBox1.Clear; //Очищаем на всякий случай.
    sListBox1.Items.AddStrings(StrList);
    StrList.Free;
    sMemo1.Text := sOpenDialog1.FileName; //Выводим путь
    sLabel1.Caption := IntToStr(sListBox1.Count); //Выводим кол-во строк в source
  end;
end;
end;
end;

end.


до этого стоял обычный код

procedure TForm1.sBitBtn10Click(Sender: TObject);
begin
  if sOpenDialog1.Execute then begin //Если выбрали файл то
    NumberList.Clear; //Очищаем на всякий случай.
    NumberList.LoadFromFile(sOpenDialog1.FileName); //Загружаем выбранный файл
    sMemo1.Text:=sOpenDialog1.FileName; //Выводим путь
    AllLabel.Caption:=IntToStr(NumberList.Count-0); //Выводим кол-во строк в source
  end;
  end;

буду благодарен за помощь

[tortik3399]

ну что не кто помоч не может?
нужно чтоб сначало удаляла дуб и сортировала в файле а потом добавляла

[Stilet]

Мало что понял, но из того что понял вот:

var q,w:TStringList;
...
begin
 q:=TStringList.Create; w:=TStringList.Create;
 q.Duplicates:=dupIgnore; q.sorted:=true;
 w.LoadFromFile('файл');
 q.AddStrings(w);
 w.Free;
 Что-то делаем с списком q 
 q.free;
end;

Идея ясна?

[tortik3399]

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

Мало что понял, но из того что понял вот:

var q,w:TStringList;
...
begin
 q:=TStringList.Create; w:=TStringList.Create;
 q.Duplicates:=dupIgnore; q.sorted:=true;
 w.LoadFromFile('файл');
 q.AddStrings(w);
 w.Free;
 Что-то делаем с списком q 
 q.free;
end;

Идея ясна?

если честно нет!

просто надо чтоб при выборе файла она дубли и отсортировку делала сначало в файле который ты выбрал например ( выбрать файл) и потом то что она сделала добавляла уже например в sListBox1 для работы

[Stilet]

делала сначало в файле

Ну и зачем файл курочить?

[tortik3399]

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

Ну и зачем файл курочить?

ну если тогда не в файле делать и мой способ подайдет?

[Stilet]

и мой способ подайдет?

Конечно подойдет. Я же, посмотри, точно такой же предложил.

[tortik3399]

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

Конечно подойдет. Я же, посмотри, точно такой же предложил.

аа можеш еще подсказать вот в этой строке sLabel1.Caption := IntToStr(sListBox1.Count); //Выводим кол-во строк в source

у мменя идет sLabel1 0/0 как сделать чтобы она меняла только 1 0 тоесть например 1344/0
просто под 2 0 другое должно быть
или лучше вариан чтобы например sLabel1 выглидила 0 потом добавляеш один список она показывала 6767678 2 список она 6767678/676787 3 список она 6767678/676787/7689878

[Stilet]

Мао что понял, но похоже тебе нужно в конец списка добавлять некий разделитель типа слеша?

with sLabel1 do begin
 if Length(Caption)>0 then Caption:=Caption+'/';
 Caption := IntToStr(sListBox1.Count);
end;