Работа с RTTI для валидации текста визуальных компонентов в Delphi: устранение ошибки "Invalid Typecast"

Delphi , Компоненты и Классы , RTTI

Вопрос, поднятый пользователем, касается использования строковых параметров при вызове методов с помощью RTTI в Delphi. Проблема заключается в ошибке "Invalid Typecast", которая возникает при попытке передачи строки в качестве параметра в метод TRttiMethod.Invoke.

Описание проблемы

Пользователь пытается обобщить проверку содержимого визуальных компонентов с использованием свойства Text через RTTI, но сталкивается с ошибкой при передаче строкового значения в метод TRttiMethod.Invoke. Ошибка возникает в строке execute.Invoke(Validator, [value]) и связана с неправильным кастингом типов.

Пример кода, вызывающего проблему

procedure ValidateTextFieldAndSetFocus(const Field: TObject; const Validator: TObject; const errorStates: array of TStringValidationResult; const sErrorMessage: string);
var
  context: TRttiContext;
  objField: TRttiType;
  objValid: TRttiType;
  prop: TRttiProperty;
  execute: TRttiMethod;
  I: Integer;
  validResult: TStringValidationResult;
  value: TValue;
begin
  context := TRttiContext.Create;
  objField := context.GetType(Field.ClassInfo);
  objValid := context.GetType(Validator.ClassInfo);
  prop := objField.GetProperty('Text');
  value := prop.GetValue(Field);
  execute := objValid.GetMethod('Execute');
  // ... (дальше идет цикл, использующий execute.Invoke)
end;

Подтвержденный ответ

Проблема заключается в том, что при вызове метода класса через RTTI, в качестве первого параметра должен передаваться тип класса (ClassType), а не экземпляр класса (Self). Таким образом, правильный вызов метода будет выглядеть так:

execute.Invoke(Validator.ClassType, [value]);

Пример, демонстрирующий решение проблемы

program Project1;
{$APPTYPE CONSOLE}
uses
  Rtti,
  SysUtils;

type
  TValidator = class
    class function Execute(const aStr: string): TStringValidationResult; static; // Статический метод
  end;

class function TValidator.Execute(const aStr: string): TStringValidationResult;
begin
  // Логика валидации
end;

var
  ctx: TRttiContext;
  Validator: TValidator;
begin
  ctx := TRttiContext.Create;
  Validator := TValidator;
  // Правильный вызов метода через RTTI
  ctx.GetType(TValidator).GetMethod('Execute').Invoke(Validator.ClassType, [TValue.StringPtr('Тест')]);
  // ... (дальше идет обработка результата)
end.

Альтернативный подход

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

Заключение

Использование RTTI в Delphi для валидации текста визуальных компонентов может быть полезным при необходимости универсальной проверки, но требует правильного понимания механизма вызова методов. При передаче параметров в методы, используя RTTI, важно помнить о правильном порядке параметров и типе объекта, который используется для вызова метода.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с ошибкой 'Invalid Typecast' при попытке вызвать метод с использованием RTTI в Delphi из-за неправильного кастинга типов при передаче строкового параметра.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::