ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / надо перевести некий код с С++ на делфи
9 сообщений из 9, страница 1 из 1
надо перевести некий код с С++ на делфи
    #32259916
Фотография Tаrantino
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tаrantino
Участник
я честно говоря совсем забыл что к чему, есть такой на на С++, как его перевести на Делфи 7:

#define USE_ALL_BALANS 0x000010FF
....
CDBVariant Value;
....

if (Value.m_boolVal & USE_ALL_BALANS )
{
....
}
....

if (!(Value.m_boolVal & USE_ALL_BALANS ))
{
....
}
...
Рейтинг: 0 / 0
09.09.2003, 13:55
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259945
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Luchkin Dmitry
Участник
что-то вроде
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
const USE_ALL_BALANS=$000010FF;
var Value : CDBVariant;
begin
//....
if (Value.m_boolVal and USE_ALL_BALANS) <>  0  then begin
//....
end;
//....
if (Value.m_boolVal and USE_ALL_BALANS ) =  0  then begin
//....
end;
...
Рейтинг: 0 / 0
09.09.2003, 14:07
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259950
Фотография Tаrantino
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tаrantino
Участник
Благодарствую
...
Рейтинг: 0 / 0
09.09.2003, 14:10
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259951
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Luchkin Dmitry
Участник
....
с учётом, что я понятия не имею, что такое за тип CDBVariant, конечно....
...
Рейтинг: 0 / 0
09.09.2003, 14:10
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259961
Фотография Tаrantino
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tаrantino
Участник
А вот с ним и затык, вроде как описал но не комплируется а если описать как VARIANT то "invalid variant operation"
...
Рейтинг: 0 / 0
09.09.2003, 14:15
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259963
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Luchkin Dmitry
Участник
так скажи, в чём есть великий сермяжный правда этого типа
...
Рейтинг: 0 / 0
09.09.2003, 14:17
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259966
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Luchkin Dmitry
Участник
а ещё лучше айда в асю
...
Рейтинг: 0 / 0
09.09.2003, 14:18
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259993
Фотография Tаrantino
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tаrantino
Участник
а и в таком виде правильно работает:

var Value : Variant;
begin
//....
if (Value and USE_ALL_BALANS) <> 0 then begin
...
Рейтинг: 0 / 0
09.09.2003, 14:29
| Ответить | Цитировать | Написать  
надо перевести некий код с С++ на делфи
    #32259998
Speaker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Speaker
Участник
if (Value and USE_ALL_BALANS) then begin
//....
end;
//....
if not (Value and USE_ALL_BALANS ) then begin
//....
end;
...
Рейтинг: 0 / 0
09.09.2003, 14:31
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / надо перевести некий код с С++ на делфи
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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