Сортировка в TMS TAdvStringGrid

[Polotenchik]

Пытаюсь отсортировать столбец по алфавиту:

procedure TForm1.AdvStringGridGetFormat(Sender: TObject; ACol: Integer;
  var AStyle: TSortStyle; var aPrefix, aSuffix: String);
begin
  case ACol of
  1: AStyle := ssAlphaNumeric;
  end;
end;

В событии онклик кнопки пишу:

        AdvStringGrid.SortIndexes.Clear;
        AdvStringGrid.SortIndexes.AddIndex(0,true);
        mAdvStringGrid.QSortIndexed;

Происходит сортировка 0-й колонки, в которой могут быть как и цифры таи и буквы (ssAlphaNumeric). И хоть убейте цифры и АНГЛИЙСКИЕ буквы сортирует, а вот русские не хочет! Это нормально?

[Баламут]

А если так написать, то сортируется.

  Grid1.SortIndexes.AddIndex(-1, true);

[Polotenchik]

Сообщение от Баламут

А если так написать, то сортируется.

  Grid1.SortIndexes.AddIndex(-1, true);

нет конечно! Ведь -1 столбца нету.

P.S Заменил:

1: AStyle := ssAlphaNumeric;

на

ssAnsiAlphaCase

вроде заработало...

[Баламут]

И тем не менее, я по-прежнему утверждаю, что приведенный мной код был полностью работоспособен. По крайней мере в Д2009 я это лично проверял. Почему - это уже другой вопрос.

[Polotenchik]

Сообщение от Баламут

И тем не менее, я по-прежнему утверждаю, что приведенный мной код был полностью работоспособен. По крайней мере в Д2009 я это лично проверял. Почему - это уже другой вопрос.

Хм. Странно! попробую еще тогда...

[Polotenchik]

Баламут, а не поможете с одной еще проблемой?
тут вот в чем дело. Пытаюсь реализовать поиск. Вроде как все просто, но мне надо, что бы после каждого нажатия на кнопку он продолжал искать дальше:

grid.FindCol:=1;
grid.Find(grid.FindNext,Edit1.Text,[fnFindInPresetCol, fnMatchRegular , fnAutoGoto]);

Это в онклик кнопки. В Edit то что надо найти.
grid.FindNext - в надежде что это решит мою проблему, а так можно написать просто Point(-1,-1).

fnAutoGoto - выделять ячейку
fnFindInPresetCol - искать в определенной колонки: grid.FindCol:=1;
fnMatchRegular - метод поиска, но суть его не понял. Например fnMatchFull ищет именно всю запись целиком.

На самом деле проблемы две:
1. Нажимаю на кнопку он находит, но при повторном нажатии на кнопку он не хочет искать дальше.

2. если например забито в ячейки "Привет" и я ищу слово Привет то находит, но если забито "Привет как дела" и я ищу опять же слово привет то не находит.

В общем мне надо, что бы искал по всем ячейкам любые слова, части слов и т.д. Т.е написал При в поиске и он нашел... Ну Вы поняли. Как в блокноте. Убил куча времени, но так и не смог сделать. Помогите пожалуйста.

Заранее большое спасибо!

P.S Пример с поиском в доке (может он чем-то поможет):

var 
  Loc: TPoint; 
  Fp: TFindParams; 
begin 
  Loc := Point(-1,-1); 
  Fp := [fnMatchRegular, fnAutoGoto]; 
  repeat 
    Loc := Grid.Find(loc, ‘A*’,fp); 
    if not ((loc.X = -1) or (loc.Y = -1)) then 
      ShowMessage(‘Text found at : ‘+IntToStr(loc.x)+’:’+IntToStr(loc.y)); 
  until (loc.X = -1) or (loc.Y = -1); 
 
  ShowMessage(‘No more occurrences of text found’); 
end;

[Баламут]

Вот если честно, то мне совсем не хочется разбираться с методами компонента уже по той простой причине, что написать свой метод поиска не составляет абсолютно никакого труда (и лень меня одолела ). В привенном ниже коде не предусмотрена ситуация, когда в гриде ничего не найдено. Да и ищет ф-ия с учетом регистра. Но, думаю, исправить ситуацию тебе не составит большого труда. Тут уже есть куча вариантов. Ну не люблю я давать полностью готовых решений.

.................................
  private
    aRow, aCol: integer;
    function FindText(Text: string): string;

...................................
function TForm1.FindText(Text: string): string;
var
  Row, Col: integer;
begin
  if aCol = Grid1.ColCount  then aCol := 0;
  if aRow = Grid1.RowCount  then aRow := 0;
  for col := aCol to Grid1.ColCount - 1 do
  begin
    for row := aRow to Grid1.RowCount - 1 do
    begin
      if Pos(Text, Grid1.Cells[Col, Row]) > 0
      then begin
        aRow := Row + 1;
        Result := Grid1.Cells[Col, Row];
        Exit;
      end;
    end;
  end;
end;

[Polotenchik]

Баламут, спасибо код помог. сделал так (в событии онклик кнопки):

  for row := fRow to main.RowCount - 1 do
  begin
    if Pos(AnsiUpperCase(sEdit1.Text), AnsiUpperCase(main.Cells[1, Row])) > 0 then
      begin
        fRow := Row + 1;
        main.SelectRows(Row,1);
        Form1.Caption:=main.Cells[1, row]; //чисто для проверки
        break;
      end
    else
    begin
      fRow := 1;
    end;
  end;

if aRow = Grid1.RowCount  then aRow := 0;

- не правильно, так как цикл может и не дойти до Grid1.RowCount.

Все работает, но есть одна проблемка: вот например в гриде такой вот список:

привет
как дела
шапка
жук

набираю я в поиске букву а и жму кнопку, он выделяет мне сперва как дела, потом жму еще раз кнопку и он переходит на шапка, так как в них есть буква а. Теперь когда я жму еще раз кнопку он опять остается на слове шапка и только после следующего нажатия начинает поиск сначала. Т.е один клик выходит лишний и я в принципе понимаю почему, но как поправить не знаю.

[Баламут]

Вот так должно все работать

var
  Row: integer;
begin
  Row := 0;
  repeat
   if FRow = main.RowCount then FRow := 0;
   if Pos(AnsiUpperCase(sEdit1.Text), AnsiUpperCase(main.Cells[1, FRow])) > 0 then
   begin
    main.SelectRows(FRow,1);
    fRow := FRow + 1;
    break;
   end;
   FRow := FRow + 1;
   Inc(Row);
   if Row = Main.RowCount then break;
  until false;
end

[Polotenchik]

СПАСИБО БОЛЬШОЕ!