Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

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]


> theodor_iv © (25.03.03 20:35)

точно...
писал тут, вот и нэвнимательный такой...



Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
1-19603
xfrost
2003-03-28 18:31
2003.04.07
Таблицы в MS Word


6-19744
Velocity
2003-02-13 15:08
2003.04.07
ARP-пакеты


3-19425
Liris
2003-03-18 11:39
2003.04.07
1С и Delphi ???


1-19623
ksa3003
2003-03-25 13:03
2003.04.07
Если кто работал c StringGird в QuickReport !!! Help Me!!!!!!


14-19804
кондратий
2003-03-19 21:33
2003.04.07
Файл или Папка