RichView. E2033 Types of actual and formal var parameters must be identical

[Shouldercannon]

Из *.pas для Delphi 7

    procedure GetPictureInfo(ItemNo: Integer; var AName: String;
                            var Agr: TGraphic; var AVAlign: TRVVAlign;
                            var ATag: Integer);

из *.pas для Delphi 2010

    procedure GetPictureInfo(ItemNo: Integer; var AName: TRVAnsiString;
                            var Agr: TGraphic; var AVAlign: TRVVAlign;
                            var ATag: Integer);

Ещё сказано в справке по RichView
TRichView Reference | Types
TRVAnsiString Type Top Previous Next

Unit RVTypes.
Declaration for Delphi 2009 or newer:
TRVAnsiString = type AnsiString;
Declaration for older versions of Delphi:
TRVAnsiString = type String;
Strings of this type contain ANSI text.

Имею

function GetSendText(cv: TRichViewEdit): string;
var
  i: Integer;
  VAlign: TRVValign;
  Name: AnsiString; // Как сказано в Help
  Tag: Integer;
  gr: TGraphic;
  SendTx: string;
begin
  SendTx := '';

  try
    for i := 0 to cv.ItemCount - 1 do
    if cv.GetItemStyle(i) = rvsPicture then
    begin
      if cv.IsFromNewLine(i) then
      if SendTx <> '' then SendTx := SendTx + #$D; // #13#10
      cv.GetPictureInfo(i, Name, gr, VAlign, Tag); // Name - E2033 Types of actual and formal var parameters must be identical (типы фактических и формальных параметров VAR должны быть одинаковыми)
      if ItSmile(Name) then SendTx := SendTx + Name;
    end
    else
    begin
      if cv.IsFromNewLine(i) then
      if SendTx <> '' then SendTx := SendTx + #$D; // #13#10
      SendTx := SendTx + cv.GetItemTextA(i);
    end;
  except
  end;

  Result := SendTx;
end;

Не пойму как разрулить ситуацию.

[Аватар]

Опиши и всех делов, и имя Name лучше не использовать

var Name: TRVAnsiString;

[Shouldercannon]

Сообщение от Аватар

Опиши и всех делов, и имя Name лучше не использовать

var Name: TRVAnsiString;

Оказывается правильно делал, только не хватало модуля RVTypes.

[Shouldercannon]

Тажа проблема, но в другом месте.

  TRVItemHintEvent = procedure (Sender: TCustomRichView;
    RVData: TCustomRVData; ItemNo: Integer; var HintText: String) of object;
...
procedure TFormMain.SendRVEditItemHint(Sender: TCustomRichView;
  RVData: TCustomRVData; ItemNo: Integer; var HintText: String);
var
  gr: TGraphic;
  VAlign: TRVValign;
  Tag: Integer;
begin
  if Sender.GetItemStyle(ItemNo) = rvsPicture then Sender.GetPictureInfo(ItemNo, HintText, gr, VAlign, Tag); // E2033 Types of actual and formal var parameters must be identical
end;

В GetPictureInfo

var AName: TRVAnsiString;

А в OntemHint

var HintText: String

Скорее всего нужно преобразование String в TRVAsniString или нет?

[Аватар]

Для var-параметров совпадение типов обязательно всегда и везде. Заводи другую переменную

[Shouldercannon]

Разобрался

procedure TFormMain.SendRVEditItemHint(Sender: TCustomRichView;
  RVData: TCustomRVData; ItemNo: Integer; var HintText: String);
var
  VAlign: TRVValign;
  Name: TRVAnsiString;
  Tag: Integer;
  gr: TGraphic;
begin
  if Sender.GetItemStyle(ItemNo) = rvsPicture then Sender.GetPictureInfo(ItemNo, Name, gr, VAlign, Tag);
  HintText := Name; // Вот оно для чего нужно было. Сие всплывающая подсказка
end;