проблема с дубликатами в tstringlist

[ivanov1]

Код: Выделить всё

procedure beginlist;
var
i: word;
sl: tstringlist;
s: string;
begin
sl:=tstringlist.create;
sl.Sorted:=true;
sl.Duplicates:=dupignore;
for i:=0 to 60 do
begin
  s:=GetSpecialFolderPath(i);
  sl.add(s);
end;
end;


Почему то не игнорирует дубликаты строк.
Буду благодарен за любые советы.

ос windows7
Lazarus 1.2.6 r46529 FPC 2.6.4 i386-win32-win32/win64

[Ism]

Возможно дело в порядке включения опций
http://forum.sources.ru/index.php?showtopic=202950

Добавлено спустя 4 минуты 25 секунд:
Или изза кодировки. Возможно tstringlist работает только с ascii

[ivanov1]

Возможно дело в порядке включения опций
http://forum.sources.ru/index.php?showtopic=202950

Пробывал менять местами строки

Код: Выделить всё

sl.Sorted:=true;
sl.Duplicates:=dupignore;


не помогло.

Добавлено спустя 4 минуты 25 секунд:
Или изза кодировки. Возможно tstringlist работает только с ascii

нет, все выводится, читается правильно с выводом в listview.

Добавлено спустя 15 минут 47 секунд:
https://yadi.sk/d/iq61LDoAdmN6M вот прикрепил для наглядности.

[Sharfik]

Что возвращает GetSpecialFolderPath(i) ?

[ivanov1]

Что возвращает GetSpecialFolderPath(i) ?

Пути к системным папкам, в примере можете посмотреть.

[Ism]

Проверил, функция SHGetFolderPath наряду с путем кидает в строку невидимый мусор, поэтому дедупликация и не работает
Старайтесь не использовать видовское API, всегда есть кросплатформенные аналоги

Вот так работает, но это костыли

Код: Выделить всё

sl:=tstringlist.Create;
sl.Sorted:=true;
sl.Duplicates:=dupIgnore;
for i:=0 to 1000 do
begin
  s:=GetSpecialFolderPath(i);
  //ShowMessage(IntToStr(Length(s))+' Тут есть некоторая хрень, длина строки больше, чем содержимое '+s);
  s:=LeftStr(s,pos(#0,s)-1);
  s:=AnsiToUtf8(s); // Не факт
  if length(s) = 0 then continue;
  sl.Add(s);
end;

for i:=0 to sl.Count-1 do
begin
  ListView1.Items.Add.Caption:=sl.Strings[i];
end;
sl.Free;   

[ivanov1]

Проверил, функция SHGetFolderPath наряду с путем кидает в строку невидимый мусор, поэтому дедупликация и не работает
Старайтесь не использовать видовское API, всегда есть кросплатформенные аналоги

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

[Vapaamies]

Она не невидимый мусор кидает, а возвращает строку, длину которой нужно вычислять функцией StrLen/StrLenW.

[iskander]

Должно помочь:

Код: Выделить всё

function GetSpecialFolderPath(folder : integer) : string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [1..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path)) then
  // Result := path
  Result := PChar(@path)
else
   Result := '';
end;

[ivanov1]

Должно помочь:

Код: Выделить всё

function GetSpecialFolderPath(folder : integer) : string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [1..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path)) then
  // Result := path
  Result := PChar(@path)
else
   Result := '';
end;

Да, работает, проверил.

[Ism]

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

Вот вариант, одобренный Императором
Можно переделать под любую задачу

Код: Выделить всё

Memo1.Lines:=GetFileList ('C:\','*',true,true);

Код: Выделить всё

function GetFileList(const Path, mask: string; incSubDirs, incDirs: boolean): TStringList;
var
  I: Integer;
  SearchRec: TSearchRec;
begin
  Result := TStringList.Create;
  try
    I := FindFirst(Path + DirectorySeparator+mask, $FF, SearchRec);
    while (I = 0) and ((SearchRec.Name<>'.') or (SearchRec.Name<>'..')) do
    begin
      if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
        if (SearchRec.Attr and faDirectory <> 0) and incSubDirs then
          Result.AddStrings(GetFileList(Path + DirectorySeparator + SearchRec.Name, mask, incSubDirs, incDirs))
        else
          if incDirs then Result.Add(Path + DirectorySeparator + SearchRec.Name)
      else
        if (SearchRec.Attr and faDirectory = 0) then Result.Add(Path + '\' + SearchRec.Name);
      I := FindNext(SearchRec);
    end;
  except
    Result.Free;
  raise;
  end;
end;               

http://forum.developing.ru/archive/inde ... -7423.html