Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> синтексис описания функций. синтексис 
V
    Опции темы
conio
Дата 5.12.2007, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите пожалуйста синтексис описания функции.

Код

 TMyForm = Class(TForm)
  private
    { Private declarations }
    FValue: integer;             // можно по умолчанию присвоить значение сразу тут?
  public
    procedure SetValue(const Value :integer);
    function GetValue():integer;   
  End;

procedure TMyForm.SetValue(const Value :integer);  
begin
    FValue := Value;          // как бы этот код перенести в описании процедуры
end;

function TMyForm.GetValue():integer;   
begin
    Result := FValue;
end;


Вопрос такой : как описать в классе функции чтения и записи чтобы их тело находилось в описании и можно ли по умолчанию при обьявлении класса присвоить какое либо значение полю FValue?
PM MAIL   Вверх
ivan219
  Дата 5.12.2007, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12
Код

 function GetValue:integer;

Цитата(conio @  5.12.2007,  14:23 Найти цитируемый пост)
 и можно ли по умолчанию

Код

  public
    constructor Create(AOwner: TComponent); override;
.
.
.
constructor TMyForm.Create(AOwner: TComponent);
begin
  inherited;
  FValue := 1;
end;


Это сообщение отредактировал(а) ivan219 - 5.12.2007, 14:40


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
conio
Дата 5.12.2007, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(ivan219 @ 5.12.2007,  14:38)
Код

 function GetValue:integer;


А как я узнаю что за инт прийдет?
Я хочу написать тело функции или процедуры прямо в обьявлении.

PS. А за второй ответ спасибо!
PM MAIL   Вверх
Rennigth
Дата 5.12.2007, 15:07 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 15
Всего: 76
Цитата(conio @  5.12.2007,  14:23 Найти цитируемый пост)
// как бы этот код перенести в описании процедуры

гм... чтобы это значило...? Может это в итоге нужно?
Код

 TMyForm = Class(TForm)
  private
    FValue: integer;
  public
    constructor Create(AOwner: TComponent); override;
    property Value: Integer read FValue write FValue;
  end;

constructor TMyForm.Create(AOwner: TComponent);
begin
  inherited;
  FValue := 1;
end;




--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Alexeis
Дата 5.12.2007, 15:17 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(conio @  5.12.2007,  14:58 Найти цитируемый пост)
Я хочу написать тело функции или процедуры прямо в обьявлении.

  Не так не позволяет синтаксис. Это ж не C++ где хидер с реализацией разнесены. Советую сделать так. Сначала описать весь класс, а потом нажать на 3 волшебные кнопки ctrl+shift+C и шаблон кода реализации появиться сам  smile .


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
conio
Дата 5.12.2007, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
на си++ было так:

int Value (const int Value) {FValue = Value}; 
можно такое же на Delphi сделать в обьявлении класса формы?

Добавлено через 1 минуту и 25 секунд
все вопрос исчерпан Спасибо всем ))
PM MAIL   Вверх
Alexeis
Дата 5.12.2007, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
conio, не на с++ так тоже нельзя было, минимум так  smile 
Код

int Value (const int Value) {return FValue = Value;}; 



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
conio
Дата 5.12.2007, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Согласен! ))

Еще раз спасибо. Буду через пропертей работать.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

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

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


 




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


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

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