Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / надо перевести некий код с С++ на делфи / 9 сообщений из 9, страница 1 из 1
09.09.2003, 13:55
    #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, 14:07
    #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:10
    #32259950
Tаrantino
Tаrantino
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надо перевести некий код с С++ на делфи
Благодарствую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2003, 14:10
    #32259951
Luchkin Dmitry
Luchkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надо перевести некий код с С++ на делфи
....
с учётом, что я понятия не имею, что такое за тип CDBVariant, конечно....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2003, 14:15
    #32259961
Tаrantino
Tаrantino
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надо перевести некий код с С++ на делфи
А вот с ним и затык, вроде как описал но не комплируется а если описать как VARIANT то "invalid variant operation"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2003, 14:17
    #32259963
Luchkin Dmitry
Luchkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надо перевести некий код с С++ на делфи
так скажи, в чём есть великий сермяжный правда этого типа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2003, 14:18
    #32259966
Luchkin Dmitry
Luchkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надо перевести некий код с С++ на делфи
а ещё лучше айда в асю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2003, 14:29
    #32259993
Tаrantino
Tаrantino
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
надо перевести некий код с С++ на делфи
а и в таком виде правильно работает:

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


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