Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Инкапсуляция, лаб. работа 
:(
    Опции темы
Xrymz
Дата 20.12.2007, 04:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.11.2007
Где: дом! О.о

Репутация: нет
Всего: нет
Описать класс "Почтовый адрес" (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.



и подскажите где косяки и т.п. =) зарание всем спасибо! =)
PM MAIL ICQ   Вверх
GoshaNahui
Дата 20.12.2007, 16:29 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
а сцуко инкапсуляция эт и есть када ты в класс пехаешь и его поля и его методы
так шо усё у тебя норально
ищё проблемы кроме инкапс. есть?
PM MAIL   Вверх
Xrymz
Дата 20.12.2007, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.11.2007
Где: дом! О.о

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

Код

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



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

Это сообщение отредактировал(а) Xrymz - 20.12.2007, 18:13
PM MAIL ICQ   Вверх
kali
Дата 20.12.2007, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 18
Всего: 20
Повидимому от тебя хотят, чтоб ты вот енто
Цитата(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.










--------------------
Работая над решением задачи, всегда полезно знать ответ.
PM MAIL Skype   Вверх
GoshaNahui
Дата 20.12.2007, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

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

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

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

Ганс дело говорит!
PM MAIL   Вверх
Xrymz
Дата 20.12.2007, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.11.2007
Где: дом! О.о

Репутация: нет
Всего: нет
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;


мне по заданию надо это Инкапсулировать 
 * все характер., причём назван открыть только для чтения.  //это как сделать?
 * метод вывода данных об объекте                                          //это походу в проперти реад?
PM MAIL ICQ   Вверх
kali
Дата 20.12.2007, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Код

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;


--------------------
Работая над решением задачи, всегда полезно знать ответ.
PM MAIL Skype   Вверх
Xrymz
Дата 21.12.2007, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.11.2007
Где: дом! О.о

Репутация: нет
Всего: нет
2kali спасибо вроде понял) пошёл делать лабу! =)
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0821 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.