VPF::Перегрузка [] - Форум программистов

lukash256

Дата 12.2.2009, 15:49 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

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

Добрый день!
пишу класс-контейнер и в качестве одного из его интерфейсов хачу сделать доступ к содержимому по [], как к элементам массива. на С++ это раз плюнуть, а как ето сделать на Code Gear Borland Delphi 2007 ??
спасибо.

THandle

Дата 12.2.2009, 15:54 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

lukash256, директива default.

Код


type
  TExampleClass = class
  private
    FStrings: TStringList;
    function GetInteger(Index: Integer): String;
  public
    constructor Create;
    destructor Destroy;
    procedure Add(const S: String);
    property Strings[Index: Integer]: String read GetInteger; default;
  end;

procedure TExampleClass.Add(const S: String);
begin
  FStrings.Add(S);
end;

constructor TExampleClass.Create;
begin
  inherited;
  FStrings := TStringList.Create;
end;

destructor TExampleClass.Destroy;
begin
  FStrings.Free;
end;

function TExampleClass.GetInteger(Index: Integer): String;
begin
  if Index in [0..FStrings.Count - 1] then
    Result := Fstrings[Index];
end;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Example: TExampleClass;
begin
  Example := TExampleClass.Create;
  try
    Example.Add('Str');
    { Одно и то же }
    ShowMessage(Example.Strings[0]);
    ShowMessage(Example[0]);
  finally
    Example.Free;
  end;
end;

Это сообщение отредактировал(а) THandle - 12.2.2009, 16:02

skyboy

Дата 12.2.2009, 15:55 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

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

lukash256

Дата 12.2.2009, 16:04 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

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

Спасибо ! Понял.

Это сообщение отредактировал(а) lukash256 - 12.2.2009, 16:08

cemick

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

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

Загрузка ...

Опытный

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

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

propety[integer]: TObject read write ;????

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