Кодинг

[Hank]

Borr,

Info *inf = (Info*)( SG->Objects[NStat][ARow] );

т.е. обычное приведение классов?

Код: Выделить всё

inf := TInfo(SG.Objects[NStat][ARow]);

либо так

inf := (SG.Objects[NStat][ARow] as TInfo);

если нужно проверить соответвтиве типов, то так

Код: Выделить всё

if SG.Objects[NStat][ARow] is TInfo then
  inf := TInfo(SG.Objects[NStat][ARow]);

[Borr]

Спасибо а класс как?

Код: Выделить всё

        class Info: public TObject {
          public:
            int stat;
            int bal;
            int pas;
          }; 

И по книгам. Про Стива Кнопку И создание оригинальных компонентов я понял а по Delphi и по Pascal'ю Стив Тейксейру Руководство пользователя - хорошая книга?

[Hank]

Borr,

Стив Тейксейру Руководство пользователя - хорошая книга?

лучшая.

class Info: public TObject {
public:
int stat;
int bal;
int pas;
};

Код: Выделить всё

type
  TInfo = class(TObject)
  public
    stat, bal, pas: Integer;
  end;

это "дословный перевод", но такой код в Делфи считается плохим тоном, т.к. поля принято объявлять в private, и доступ к ним осуществлять через свойства.

[Borr]

Eraser у тебя как BDS 2006 ставиться? У меня в процессе установки куча потерянных файлов и потом при компиляции просто одной формы пишет [Pascal Fatal Error] Project1.dpr(1): F1027 Unit not found: 'System.pas' or binary equivalents (.dcu) хотя System.pas есть?

[Borr]

Все переустановил - все прошло (я там ряд важных для системы компонент не установил), но потерянные файлы, при установке, все равно есть...
Eraser, у тебя Delphi7 есть?

[Hank]

Borr,

Eraser у тебя как BDS 2006 ставиться?

да ставится ) я ж уже раз 5 говорил, что почти год пользуюсь )

проблем особых нет, только в процессе установки пару-тройку файлов не находит (из примеров каких то наворотов типа eco, которые нигде не используются), но жмёшь "продолжить" и всё дальше нормльно ставится. после установки не забудь сервис-пак поставить.

Eraser, у тебя Delphi7 есть?

есть :cheesy:

но потерянные файлы, при установке, все равно есть...

странно, может у тебя диск покоццаный..

[Borr]

да ставится ) я ж уже раз 5 говорил, что почти год пользуюсь )

Это я так по инерции вопрос сформулировал.

пару-тройку файлов не находит (из примеров каких то наворотов типа eco, которые нигде не используются), но жмёшь "продолжить" и всё дальше нормльно ставится

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