Помогите с Дельфи на CBuilder перевести / C++

ReSQL.ru

2.0.61

Планшетная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите с Дельфи на CBuilder перевести / 25 сообщений из 35, страница 1 из 2

все

15.06.2004, 08:35

#32560955

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Тут увидел как опытные люди давали совет на Дельфи, а я ее самостоятельно не могу на CBuilder перевести.

Может подсобите код очень часто необходимый.

type
THack= class(TControl);

И ты получишь доступ к свойству Color текущего объекта.

if Sender is TControl then THack(Sender).Color := clWhite;

Спасибо

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 10:13

#32561045

MySQLdb

Участник

Сообщения: 421
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

Код: plaintext

1.
2.
3.
4.
5.
6.

class THack : public (TControl);

THack *My;

My = new(THack);

if (Sender is TControl) { My->Sender->Color = clWhite;}

-----------------------------------------------------------
С уважением,MySQLdb

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 11:32

#32561216

Коктейл

Гость

Помогите с Дельфи на CBuilder перевести

В билдере нет is , зато есть dynamic_cast

Удачи

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 11:35

#32561224

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Не получается что здесь не так?

class THack {public:TControl;};
. . . . .

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
THack *My;
My = new(THack);

if (dynamic_cast<TControl *> (Sender))
{
My->Sender->Color=clWhite;
}

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 11:44

#32561246

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

class THack {public:TControl;};
. . . . .

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
THack *My;
My = new(THack);

if (dynamic_cast<TControl *> (Sender))
{
   dynamic_cast<TControl&> (*Sender)->Color=clWhite;
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 12:24

#32561338

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Неа ошибку пишет
E2288 Pointer to structure required on left side of -> or ->*

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 12:29

#32561348

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Ой, забыл написать что в следующей строке ошибка, а как правильно написать?

dynamic_cast<TControl&> (*Sender)->Color=clWhite;

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 12:33

#32561365

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

наверное правильней всетаки будет так ...

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

class THack {public:TControl;};
. . . . .

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
THack *My;
My = new(THack);

if (dynamic_cast<TControl*>(Sender))
{
  dynamic_cast<THack&>(*Sender)->Color=clWhite;
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 12:39

#32561379

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

Я так понял , что вы хотите сделать ,
если переходищь на какойто TEdit , то сделать его цвет белым ?

ну и соотвесвенно (если вдруг я понял правильно),
можно сделать так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
 if (dynamic_cast<TEdit*>(Sender))
   {
       dynamic_cast<TEdit&>(*Sender).Color = clWhite;
   }
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 12:46

#32561391

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Вот именно что заранее неизвесто что Tedit.
Это может быть и CheckBox1 и Datepicker.

Подскажите плиз.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 13:06

#32561437

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

Хмм ну тогда только если так ...

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
if (dynamic_cast<TEdit*>(Sender))
{
dynamic_cast<TEdit&>(*Sender).Color = clWhite;
}
if (dynamic_cast<TCheckBox*>(Sender))
{
dynamic_cast<TCheckBox&>(*Sender).Color = clWhite;
}
...
}

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 13:14

#32561459

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Извините, но все эти головные боли были сделаны чтобы не перечислять
все классы объектов.
На Дельфи это выглядит как в начале и никаких проблем.
Может есть аналог но на Билдере?
Можно и switch (case) при худшем случае.
Но обидно если нельзя.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 14:19

#32561641

Artemkaa

Гость

Помогите с Дельфи на CBuilder перевести

CBuilder написан на Дельфи поэтому может он и урезанный.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 14:29

#32561680

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

Что за глуппости ?

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 17:15

#32562199

АлиДуба

Гость

Помогите с Дельфи на CBuilder перевести

Ну что никто не знает ответ.
Может помучить еще или сразу ответить?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 18:35

#32562385

Lepsik

Участник

Откуда: glubinka
Сообщения: 4 167
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

2чайник

тебе уже сто раз показали правильный ответ

TControl *ctrl = dynamic_cast<TControl *>(Sender);
if( NULL != ctrl )
ctrl->Color = clWhite;

причем ответ на С++ будет всегда короче и проще чем на дельфи

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 19:28

#32562453

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Спасибо что мозги мне правляете я же чайник,
но и Ваш вылетает с ошибкой. Может по памяти пишите.
Неужели нет под рукой билдера?
Спасибо буду ждать еще, может кто пояснит.
:(

CBuilder5
E2247 'TControl::Color' is not accessible

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 20:01

#32562500

334455

Гость

Помогите с Дельфи на CBuilder перевести

Слушай замучил ты всех.
Читай книжки.

Попробуй результат dynamic_cast(...) сохранить. в аа например
аа = dynamic_cast(...) ;
аа->Color=бэлий

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 20:24

#32562513

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Получается никто не знает ответа.
В дельфи запроста, а здесь ни хрена.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 21:50

#32562580

Обычный_чайник

Гость

Помогите с Дельфи на CBuilder перевести

Сдаюсь, вот окончательно, больше ничего не получается.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{

if (dynamic_cast<TEdit*>(Sender))
   ((TEdit*)Sender)->Color=clYellow;

if (dynamic_cast<TCheckBox*>(Sender))
   ((TCheckBox*)Sender)->Color=clYellow;

}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
if (dynamic_cast<TEdit*>(Sender))
   ((TEdit*)Sender)->Color=clWhite;

if (dynamic_cast<TCheckBox*>(Sender))
   ((TCheckBox*)Sender)->Color=clWhite;

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.06.2004, 22:05

#32562588

Lepsik

Участник

Откуда: glubinka
Сообщения: 4 167
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

не должно вылетать с ошибкой. все у тебя написано правильно.

Я так весьма регулярно делаю

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

16.06.2004, 11:10

#32563090

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

2Lepsik
да просто у класса TControl нету метода color

^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

16.06.2004, 20:58

#32564483

АБВГДЭЮЯ

Гость

Помогите с Дельфи на CBuilder перевести

Не метод, а свойство.
Пробовал код под Дельфи все катит. На билдере глючит.
Значит ребята из Борланда что то намудрили.
Странно.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.06.2004, 11:57

#32565051

ну я

Участник

Откуда: Москва
Сообщения: 1 270
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

Намекаю: SetOrdProp

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.06.2004, 13:02

#32565216

JibSkeart

Участник

Откуда: Из далекой галактики
Сообщения: 18 930
Рейтинг: 0 / 0

Помогите с Дельфи на CBuilder перевести

2АБВГДЭЮЯ
угу оговорился :)
^{ш

(';')

(V),(V),,}

Код: plaintext

JS

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

все

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=57&mobile=1&tid=2034252]:	0ms
get settings:	8ms
get forum list:	20ms
check forum access:	4ms
check topic access:	4ms
track hit:	54ms
get topic data:	8ms
get forum data:	3ms
get page messages:	60ms
get tp. blocked users:	1ms
others:	188ms

total:	350ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы