VPF::Работа с Boolean в ООП - Форум программистов

Malamadre

Дата 10.8.2011, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 10.8.2011

Репутация: нет
Всего: нет

вообщем застрял на булевской переменной в ООП,
сначала объясню задачу :

задача такая, контора по приему б/у автомобилей : класс должен принимать стоимость нового авто(ну это я знаю), с помощью переменной boolean, минусовать со стоимости нового авто сколько то процентов, чтобы определить стоимость принимающего б/у авто ( ну вот например : три перменные FPriceNewCar(цена нового такого же авто), FPriceItog(итоговая выплачиваема цена), и булевская переменная FPainted(крашенный или нет) ,, булевскую переменную определяет RadioButton на форме, если его включить то авто крашенный, и в клаасе должно минусоваться со стоимости нового авто сколько то процентов(определить выплачиваемую стоимость) )

Вообщем проблема в том что, я не знаю как работать с BOOLEAN в ООП
в инете не нашел

как мне FPainted связать с RadioButton ? как описать его в свойствах, методах, процедурах и т д ,, нуу вообщем интересует работа с булевской перемменной ИМЕННО в ООП

ну вот и сам код :

Код



TCar = class
  private
 
        FPainted : boolean;       //крашенный, некрашенный
        FPriceNewCar : integer;   //стоимость нового автомобиля
        FPriceItog : integer;     //стоимость выплачиваемая клиенту(хозяину авто)
 
        procedure setpainted(x: boolean);        
          function getpainted(): boolean;

        procedure setpricenewcar(x: integer);    //     уст цены новой машины
          function getpricenewcar(): integer;

          function getpriceitog(): integer;     //      получ цены старой машины  
     
  public
 
       property painted     : boolean read getpainted write setpainted;
       property pricenewcar : integer read getpricenewcar write setpricenewcar;
       property priceitog   : integer read getpriceitog;


 
end;
 
implementation
 
     procedure setpainted(x: boolean);
     begin
 
        fpainted := x;
     end;
 
        function getpainted(): boolean;
        begin
           getpainted := fpainted;
        end;

     procedure setpricenewcar(x: integer);
     begin
        fpricenewcar := x;
     end;

        function getpricenewcar(): integer;
        begin
           getpricenewcar := fpricenewcar;
        end;

        function getpriceitog(): integer;
        begin

        end;
 
end;

как мне FPainted связать с RadioButton ? как описать его в свойствах, методах, процедурах и т д ,, нуу вообщем интересует работа с булевской перемменной ИМЕННО в ООП

и выложите если не трудно побольше ПРОСТЫХ ну или же средних по сложности примеров с Boolean в ООП делфи

спасибо всем заранее,,

superVad

Дата 10.8.2011, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

С булами в ООП работают точно так же как и с другими типами и точно так же как и не в ООП...

Почитай в DRKB статьи про ООП - там более-менее доходчиво.

pseud

Дата 10.8.2011, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

паскалевский подход?

Код


        function getpainted(): boolean;
        begin
           getpainted := fpainted;
        end;

лучше так:

Код


        function GetPainted: Boolean;
        begin
           Result := FPainted;
        end;

Цитата(Malamadre @ 10.8.2011, 16:11

)

как мне FPainted связать с RadioButton ?

Код


var
  c: TCar;
begin
  .....
  c.Painted := RadioButton1.Checked;
  ....
end;

о_О

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

superVad

Дата 10.8.2011, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

pseud, ну тогда вообще:

Код


  property painted : boolean read FPainted write FPainted;

Методы тут вроде как и ничего не делают.

Или вообще сделать по простому и перенести FPainted в public и обращаться на прямую...

Это сообщение отредактировал(а) superVad - 10.8.2011, 19:17

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »