Прочие БД - компонент Ribbon в Delphi

Прочие БД - компонент Ribbon в Delphi

Dock1100

Новый участник

Сообщения: 8
Благодарности: 0

извените если не там пишу , просто недавно решил написать в Delphi 2009 простой блокнот с компонентом Ribbon(оформление как в 2007 офисе) , столкнулса с проблемой
видает ошибку во время компиляции(в событии onfind в finddilaog ):

Код:

procedure TForm3.finddialog1onfind(Sender: TObject);
var   SPos: integer;
begin
 with FindDialog1 do
 begin
  if frMatchCase in Options
   {поиск с учетом регистра}
   then richedit1.SelStart := Pos(FindText,
 **    Copy(richedit1.Lines.Text, SPos + 1,
         Length(Memo1.Lines.Text))) + Spos - 1
   {поиск без учета регистра}
   else richedit1.SelStart := Pos(AnsiLowerCase(FindText),
    AnsiLowerCase(Copy(richedit1.Lines.Text, SPos + 1,
                  Length(richedit1.Lines.Text)))) + Spos - 1;
  if richedit1.SelStart >= Spos
   then
    begin
     {выделение найденного текста}
     richedit1.SelLength := Length(FindText);
     {изменение начальной позиции поиска}
     SPos := richedit1.SelStart + Memo1.SelLength + 1;
    end
   else if MessageDlg(
    'Текст "'+FindText+'" не найден. Продолжать диалог?',
    mtConfirmation, mbYesNoCancel, 0) <> mrYes
    then CloseDialog;
 end;
richedit1.SetFocus;
end;

ошибка возле **, а имено;
missing operator or semicolon;
there is no overloaded version of 'pos' that can be called with these arguments.
хотя если без Ribbon, Actionmaneger, Speedbutton, (вместо них использовать : mainmanu, toolbar, Toolbutton)
все работает без ошибок

Отправлено: 19:08, 19-09-2009