Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] Инкапсуляция


Автор: Xrymz 20.12.2007, 04:17
Описать класс "Почтовый адрес" (TPost) характеристики которого:
 * название организации или фамилия жильца
 * город
 * улица
 * номер дома и квартиры
 * почтовый индекс 

В описание класса вкл. методы:
 * для начального формирования данных об объекте данного класса
 * для вывода всех данных об объекте данного класса 
 * для поиска данных об объекте с данным названием или фамилией

Инкапсулировать 
 * все характер., причём назван открыть только для чтения.
 * метод вывода данных об объекте

Создать метод для получения и установления значений этих свойств. Создать программу проверки работы экземпляра этого класса



Это программа проверки работы экз. этого класса
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit2;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    Button2: TButton;
    Edit6: TEdit;
    Label6: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Post:TPost;



implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Post:=TPost.Create(edit1.Text,edit2.Text,edit3.Text,strtoint(edit4.Text),strtoint(edit5.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
var viv:string;
begin
Memo1.Text:=post.vivod;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Text:=Post.search(edit6.Text);
end;

end.
 



сам юнит... как тут сделать инкапсуляцию..я вообще просто не очень понимаю что это.. пока на примере не увижу)???
Код

unit Unit2;

interface
 uses sysUtils;
Type
        Tpost=class(TObject)
        Fname,Fgorod,Fylica:string;
        Fnomerd,Fpoctov:integer;
        constructor Create(Fname1,Fgorod1,Fylica1:string;Fnomerd1,Fpoctov1:integer);
        function vivod:string;
        function search(imja:string):string;
end;
var result:string;
implementation
constructor Tpost.Create;
 begin
  inherited Create;
  Fname:=Fname1;
  Fgorod:=Fgorod1;
  Fylica:=Fylica1;
  Fnomerd:=Fnomerd1;
  Fpoctov:=Fpoctov1;
 end;

function TPost.vivod:string;
begin
result:=Fname+' '+Fgorod+' '+Fylica+' '+IntToStr(Fnomerd)+' '+IntToStr(Fpoctov);
end;

function TPost.search(imja:string):string;
begin
if imja=FName then result:='Найден' else result:='Ненайден';
end;

end.



и подскажите где косяки и т.п. =) зарание всем спасибо! =)

Автор: GoshaNahui 20.12.2007, 16:29
а сцуко инкапсуляция эт и есть када ты в класс пехаешь и его поля и его методы
так шо усё у тебя норально
ищё проблемы кроме инкапс. есть?

Автор: Xrymz 20.12.2007, 18:12
2GoshaNahui а резве не это:
Инкапсуля́ция — свойство языка программирования, позволяющее объединить данные и код в объект и скрыть реализацию объекта от пользователя. При этом пользователю предоставляется только спецификация (интерфейс) объекта. Пользователь может взаимодействовать с объектом только через этот интерфейс.

Код

 TMyClass = class
 private
   FMyField: Integer;
   procedure SetMyField(const Value: Integer);
   function GetMyField: Integer;
 protected
 public
   property MyField: Integer read GetMyField write SetMyField;
 end;



только я не могу понять что от меня в моем задании хотят! =(

Автор: kali 20.12.2007, 18:36
Повидимому от тебя хотят, чтоб ты вот енто
Цитата(Xrymz @  20.12.2007,  03:17 Найти цитируемый пост)
Type
Код

        Tpost=class(TObject)
        Fname,Fgorod,Fylica:string;
        Fnomerd,Fpoctov:integer;
        constructor Create(Fname1,Fgorod1,Fylica1:string;Fnomerd1,Fpoctov1:integer);
        function vivod:string;
        function search(imja:string):string;
end;



представил в виде
Цитата(Xrymz @  20.12.2007,  17:12 Найти цитируемый пост)
 
Код

TMyClass = class
 private
   FMyField: Integer;
   procedure SetMyField(const Value: Integer);
   function GetMyField: Integer;
 protected
 public
   property MyField: Integer read GetMyField write SetMyField;
 end;


т.е. 
1. переменные класса объявляешь как private.
2. Создаешь методы set, get для переменных.
3. создаешь проперти, декларируешь методы read, write.

Автор: GoshaNahui 20.12.2007, 18:46
Цитата
Инкапсуля́ция — свойство языка программирования, позволяющее объединить данные и код в объект и скрыть реализацию объекта от пользователя. При этом пользователю предоставляется только спецификация (интерфейс) объекта. Пользователь может взаимодействовать с объектом только через этот интерфейс.

оно. Но это формальное определение. А я тебе простым языком сказал smile 
инкапс. это когда и поля и методы в кучу собраны и ещй всё защищено чтобы внутрь никто кому не надо не мог залезть

Добавлено через 1 минуту и 15 секунд
Цитата
Инкапсуля́ция — свойство языка программирования, позволяющее объединить данные и код в объект и скрыть реализацию объекта от пользователя. При этом пользователю предоставляется только спецификация (интерфейс) объекта. Пользователь может взаимодействовать с объектом только через этот интерфейс.

оно. Но это формальное определение. А я тебе простым языком сказал smile 
инкапс. это когда и поля и методы в кучу собраны и ещй всё защищено чтобы внутрь никто кому не надо не мог залезть

Ганс дело говорит!

Автор: Xrymz 20.12.2007, 19:04
1. переменные класса объявляешь как private.  // так чтоли? 
Код

Type
        Tpost=class(TObject)
private        
        Fname,Fgorod,Fylica:string;
        Fnomerd,Fpoctov:integer;
 protected
 public
        constructor Create(Fname1,Fgorod1,Fylica1:string;Fnomerd1,Fpoctov1:integer);
        function vivod:string;
        function search(imja:string):string;          
end;


мне по заданию надо это Инкапсулировать 
 * все характер., причём назван открыть только для чтения.  //это как сделать?
 * метод вывода данных об объекте                                          //это походу в проперти реад?

Автор: kali 20.12.2007, 22:39

Код

Type
        Tpost=class(TObject)
private        
        Fname,Fgorod,Fylica:string;
        Fnomerd,Fpoctov:integer;
// описание методов чтения и записи переменных класса
        procedure SetName(name:string);
        function GetName:String;
        procedure SetGorod(gorod:string);
        function GetGorod:String;
// и т.д. для всех переменных
public
        constructor Create(Fname1,Fgorod1,Fylica1:string;Fnomerd1,Fpoctov1:integer);
// инкапсулировать
//* все характер., причём назван открыть только для чтения.  
       property Name: String read GetName; //read only свойство
        property Gorod: String read GetGorod write SetGorod; // read write свойство 
//* метод вывода данных об объекте    
        function vivod:string;   //* метод вывода данных об объекте 
end;

Автор: Xrymz 21.12.2007, 16:27
2kali спасибо вроде понял) пошёл делать лабу! =)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)