IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Undeclared Identifier: 'combobox1', ошибка при компиляции
S_lip
сообщение 3.05.2006 23:32
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: B1-66ER

Репутация: -  1  +


При компиляции Делфи выдаёт ошибку: Undeclared identifier: 'ComboBox1'.

Код
unit sttuner;

interface

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

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private]
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

begin
  Form1.GroupBox1.ComboBox1.Text:=chr(random(256);
end.


Скажите пожалуйста, как это исправить?
Нужно, чтобы при старте программы каждый раз ComboBox1.Text'у присваивался какой-то символ.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 2)
xds
сообщение 3.05.2006 23:47
Сообщение #2


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


Цитата
При компиляции Делфи выдаёт ошибку: Undeclared identifier: 'ComboBox1'.
Это происходит потому, что ComboBox1 является полем объекта Form1, а не GroupBox1.

Цитата
Нужно, чтобы при старте программы каждый раз ComboBox1.Text'у присваивался какой-то символ
Добавь обработчик события формы OnCreate:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
ComboBox1.Text := Chr(32 + Random(256 - 32)); // исключаем управляющие символы
end;


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
S_lip
сообщение 3.05.2006 23:56
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: B1-66ER

Репутация: -  1  +


Большое Спасибо! Всё работает!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 15:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"