VPF::Создание своих переменных в RunTime

Vetos

Дата 5.1.2007, 11:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Я не хочу пользоваться массивами т.к. не знаю сколько єлементов будет работать.Хочется как нибудь создавать переменніе моего типа в RunTime.Реально ли это вообще или пользоваться технологией с массивами?Если можно пример пожалуйста.

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

Snowy

Дата 5.1.2007, 13:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Если не знаешь, сколько элементов, используй динамический массив или TList.
В рантайме можно создавать объекты.
Переменные тоже можно, но при наличии указателя (например тот же TList юзать).
Без указателя ты их просто потеряешь.

KEM

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

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

Загрузка ...

Бывалый

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

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

Код


var
  Lst  : TList;

procedure TForm1.Button1Click(Sender: TObject);
var
  cb: TCheckBox;
begin
randomize;
  cb := TCheckBox.Create(nil);
  Lst.Add(cb);
    cb.Name := 'CheckBox' + IntToStr(Lst.count);
    cb.Left := random(300);
    cb.Top := random(300);
    cb.OnClick := ChBoxClick;
    cb.Parent := Form1;

 end;

Procedure TForm1.ChBoxClick(Sender: TObject);
begin
  ShowMessage((Sender as TComponent).Name + ': ' +
    IntToStr(integer((Sender as TCheckBox).Checked)));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Lst := TList.Create;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  cb: TCheckBox;
begin
  cb := Lst.Items[1];
  {тут что то делается}
end;

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

Мы растворяем сознание жизни, реальностью стал бешеный ритм...

Winprogrammer

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

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

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

Можно юзать динамические массивы.
SetLength(массив, размер);

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

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

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