Сортировка строк

← →
SH (2003-09-22 15:15) [0]

Как отсортировать строки по алфавиту побуквенно?

Сэмпл.
аааа
аааб
ааав
...
абяя
авяя

Ну, как в любом бумажном словаре короче.

← →
Skier (2003-09-22 15:18) [1]

> Как отсортировать строки по алфавиту побуквенно?

Использовать операции сравнения строк.

← →
SH (2003-09-22 15:24) [2]

Спасибо, я попробую. Похоже это будет весьма хитроумный и запутанный алгоритм. Ещё идеи есть?

← →
Stas (2003-09-22 15:24) [3]

Function SortStr (str1,str2:String):Integer;
Var Len,i:Integer;
begin
if length (Str1)>Length(str2) then Len:=Length(Str2)
else len:=length (Str1);
for i:=1 to len do
begin
if ord(str1[i])>ord(Str2[i]) then
begin
Result:=0;
exit;
end;
if ord(str1[i])<ord(Str2[i]) then
begin
Result:=1;
exit;
end;

← →
ZEE (2003-09-22 15:25) [4]

TStringList.Sorted:=true; ?

← →
SH (2003-09-22 15:32) [5]

Сортировка нужна для ячеек столбцов в StringGrid и для веток TreeView.

← →
ZEE (2003-09-22 15:34) [6]

http://www.sources.ru/delphi/db/sort_dbgrid_on_column_click.shtml
http://www.sources.ru/delphi/gui/sorting_tlistview.shtml

← →
SH (2003-09-22 15:40) [7]

Попутный вопрос. Как сделать, чтобы сортировка столбца в StringGrid осуществлялась по щелчку на поле fixed. Т.е. это поле надо превратить типа в кнопку. Так, например, можно в Exel выделить столбец, щёлкнув по его названию.

← →
Digitman (2003-09-22 15:56) [8]

> Как сделать, чтобы сортировка столбца в StringGrid осуществлялась
> по щелчку на поле fixed

написать обработчик соотв.события, в алгоритме которого StringGrid заполняется вновь сортированными по конкретному критерию ИСХОДНЫМИ данными

← →
SH (2003-09-22 16:01) [9]

Дык ж это поле (fixed) некликабельно...

← →
pasha_golub (2003-09-22 16:52) [10]

2SH
OnMouseDown

Сортировка строк Найти похожие ветки