ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Приведение типов в классах
16 сообщений из 16, страница 1 из 1
Приведение типов в классах
    #39511453
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
Добрый день. Появилась тут у меня загадочная проблема, вроде недавно работало а тут поломалось при каких-то видимо моих изменениях кода. Но, как я помню, что касается этого ничего не менял, но чудес не бывает. В общем так: Создаю простой комбо с привязанными к элементам объектами


Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
vString : TStringObj;
...
 cbRoles.Items.Clear;
 vString := TStringObj.Create('W');
 cbRoles.Items.AddObject('Запись', vString);
 vString := TStringObj.Create('R');
 cbRoles.Items.AddObject('Чтение', vString);
 vString := TStringObj.Create('U');
 cbRoles.Items.AddObject('Недоступен', vString);

до этого создаю объект

type
  StringObj = record
               sValue : string;
              end;

  TStringObj = class(TObject)
  private
    sStr : StringObj;
    function GetStr : StringObj;
    procedure SetStr(OldValue : StringObj);
  public
    constructor Create( ist : string);
    property pStr : StringObj read GetStr write SetStr;
  end;
...
 constructor TStringObj.Create(ist : string);
 begin
    inherited Create;
    sStr.sValue := ist;
 end;

 function TStringObj.GetStr : StringObj;
 begin
  Result := sStr;
 end;

 procedure TStringObj.SetStr(OldValue : StringObj);
 begin
    sStr.sValue := OldValue.sValue;
 end;


и вот в коде в другом модуле мне надо получить значение строки в объекте по выбранному элементу комбо

qRules.FieldByName('Role').AsString := (fRules.cbRoles.Items.Objects[fRules.cbRoles.Items.IndexOf(qRules.FieldByName('RoleName').AsString)] as TStringObj).pStr.sValue;
проверяю - значение qRules.FieldByName('RoleName').AsString верное
но в результате получаю ошибку invalid class typecast понимаю что это неправильное приведение типов классов, но почему неясно, может кто подскажет. Спасибо.

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
28.08.2017, 10:41:15
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511461
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
patrick1968, fRules.cbRoles.Items.Objects[fRules.cbRoles.Items.IndexOf(qRules.FieldByName('RoleName').AsString)].ClassName - что покажет?

Ну и просто Assigned проверь.
...
Рейтинг: 0 / 0
28.08.2017, 10:50:31
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511472
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
Проверил fRules.cbRoles.Items.Objects[fRules.cbRoles.Items.IndexOf(qRules.FieldByName('RoleName').AsString)].ClassName как ни странно равно TStringObj - чудеса
...
Рейтинг: 0 / 0
28.08.2017, 11:08:37
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511496
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
patrick1968, DLL?
...
Рейтинг: 0 / 0
28.08.2017, 11:44:04
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511501
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
Что DLL?
...
Рейтинг: 0 / 0
28.08.2017, 11:48:39
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511505
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
Если имеется ввиду программирую DLL? то нет - разработка Web-приложения
...
Рейтинг: 0 / 0
28.08.2017, 11:50:19
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511518
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
patrick1968и вот в коде в другом модуле мне надо получить значение строки в объекте по выбранному элементу комбо

qRules.FieldByName('Role').AsString := (fRules.cbRoles.Items.Objects[fRules.cbRoles.Items.IndexOf(qRules.FieldByName('RoleName').AsString)] as TStringObj).pStr.sValue;
проверяю - значение qRules.FieldByName('RoleName').AsString верное
но в результате получаю ошибку invalid class typecast понимаю что это неправильное приведение типов классов, но почему неясно, может кто подскажет. Спасибо.

Другой модуль в том же исполняемом файле ?
...
Рейтинг: 0 / 0
28.08.2017, 12:11:53
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511519
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
да конечно и в том же исполняемом модуле и в том же проекте
...
Рейтинг: 0 / 0
28.08.2017, 12:13:29
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511536
Правильный Вася
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный Вася
Участник
Зачем все эти танцы? Вполне можно обойтись записью без всякого класса.
...
Рейтинг: 0 / 0
28.08.2017, 12:35:31
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511547
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
подскажите, пожалуйста, как?
...
Рейтинг: 0 / 0
28.08.2017, 12:51:05
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511589
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
patrick1968да конечно и в том же исполняемом модуле и в том же проекте

Возможно код стоит разнести по нескольким операторам, смотря в отладчике ход операций.
...
Рейтинг: 0 / 0
28.08.2017, 13:26:33
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511664
patrick1968
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
patrick1968
Участник
Разнес следующим образом

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var p,p1,p2 : string;
    i : integer;
    str_ : TObject;
...

  P := qRules.FieldByName('RoleName').AsString;
  i := fRules.cbRoles.Items.IndexOf(p);
  p1 := fRules.cbRoles.Items.Objects[i].ClassName;
  str_ := fRules.cbRoles.Items.Objects[i];
  p2 := (str_ as TStringObj).sStr.sValue;



на всех операциях значения верные
на последнем операторе естественно та же ошибка
...
Рейтинг: 0 / 0
28.08.2017, 14:35:42
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511677
Правильный Вася
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный Вася
Участник
patrick1968подскажите, пожалуйста, как?
как вариант
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
type
  PStringObj = ^StringObj;
...

var
  Ptr: PStringObj;
...
  New( Ptr );
  Ptr^.sValue := 'W';
  cbRoles.Items.AddObject('Запись', Ptr);
...


и не забыть Dispose( ... )

хотя для одной буквы можно еще проще
Код: pascal
1.
  cbRoles.Items.AddObject('Запись', Pointer( Ord( 'W' ) ) );
...
Рейтинг: 0 / 0
28.08.2017, 14:45:07
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511736
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
patrick1968Разнес следующим образом

var p,p1,p2 : string;
i : integer;
str_ : TObject;
...

P := qRules.FieldByName('RoleName').AsString;
i := fRules.cbRoles.Items.IndexOf(p);
p1 := fRules.cbRoles.Items.Objects[i].ClassName;
str_ := fRules.cbRoles.Items.Objects[i];
p2 := (str_ as TStringObj).sStr.sValue;

на всех операциях значения верные
на последнем операторе естественно та же ошибка

Код: pascal
1.
2.
  str_ := fRules.cbRoles.Items.Objects[i];
  Assert(str_ is TStringObj, Format('Expected TStringObj, received %s', [str_.ClassName]));



?
...
Рейтинг: 0 / 0
28.08.2017, 15:21:48
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511780
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
patrick1968,

А TStringObj у Вас объявлен в одном месте? Или по проекту есть несколько определений этого класса?
...
Рейтинг: 0 / 0
28.08.2017, 16:14:39
| Ответить | Цитировать | Написать  
Приведение типов в классах
    #39511784
Priks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Priks
Участник
Если повторить ваш код в чистом виде, то все работает.
Значит проблема именно в приложении.
Проверьте какие еще модули подключены - может есть одноименная переменная еще где-то.
Смутил еще вот этот момент:
и вот в коде в другом модуле мне надо получить значение строки в объекте по выбранному элементу комбо

qRules.FieldByName('Role').AsString := (fRules.cbRoles.Items.Objects[fRules.cbRoles.Items.IndexOf(qRules.FieldByName('RoleName').AsString)] as TStringObj).pStr.sValue;
но здесь комбобокс cbRoles используется только как контейнер с данными и абсолютно пофиг, что там в нем выбрано.
Может проще запросом сразу сделать обновление qRules.Role исходя из qRules.RoleName ?
...
Рейтинг: 0 / 0
28.08.2017, 16:24:22
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Приведение типов в классах
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39511589&tid=2041891]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 189ms
total:  279ms
созд. / загр.: 279ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]