StringList

← →
Фагот (2003-03-25 17:54) [0]

Здравствуйте!
Не могу разобраться с сортировкой в StringList. Есть файл с повторяющимися строками. Делаю следующим образом:
TS:=TStringList.Create;
TS.LoadFromFile("c:\file.ext");
TS.Sort;
TS.Duplicates:=dupIgnore;
Не работает... Вижу все дупликаты...Меняю Sort и Duplicates местами - тоже не работает!.. Где собака порылась?
Ещё вопрос... Можно ли искать в StringList не по всей строке, а только по её началу?

← →
Palladin (2003-03-25 17:58) [1]

TS:=TStringList.Create;
TS.LoadFromFile("c:\file.ext");
TS.Sorted:=true;
TS.Duplicates:=dupIgnore;

← →
icWasya (2003-03-25 17:59) [2]

попробуй так
TS:=TStringList.Create;
TS.Sort;
TS.Duplicates:=dupIgnore;
TS.LoadFromFile("c:\file.ext");
TS.Sort;

← →
Palladin (2003-03-25 18:00) [3]

Сорри поторопился...
TS:=TStringList.Create;
TS.Sorted:=true;
TS.Duplicates:=dupIgnore;
TS.LoadFromFile("c:\file.ext");

по началу искать нельзя...

← →
Фагот (2003-03-25 18:03) [4]

Palladin © Так тоже пробовал - не фурычит! На Ваше поторопился - что значит нельзя искать по началу?

← →
Palladin (2003-03-25 18:07) [5]

> Фагот © (25.03.03 18:03)

все фурычит, я сам это использую довольно часто...

> что значит нельзя искать по началу?

то и значит

ответ на вопрос

> Можно ли искать в StringList не по всей строке, а только
> по её началу?

← →
Фагот (2003-03-25 18:14) [6]

Спасибо Палладину Как Вы справляетесь в том случае, когда надо осуществлять поиск не по всей строке, а по её началу?

← →
Palladin (2003-03-25 18:19) [7]

а вот это мне надо довольно редко...
а справляться просто

procedure StringPartIdxs(s,sl:TStringList;var ar:array of integer); var i:integer; begin setlength(ar,0); for i:=0 to sl.Count-1 do if copy(sl[i],1,length(s))=s then begin setlength(ar,length(ar)+1); ar[high(ar)]:=i; end; end;

← →
theodor_iv (2003-03-25 20:35) [8]

Только, наверное, имелось в виду
procedure StringPartIdxs(s: string; sl: TStringList; var ar:array of integer);

← →
Palladin (2003-03-25 23:01) [9]

StringList Найти похожие ветки