| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка идентификатора ComboBox [D7]

Страницы:   < 1 2 >

psvitov ©   (2006-04-19 08:59:00) 

Привет всем!!

Помогите начинающему

Задача: нужно из выпадающего списка выбрать пункт, при этом выполняется определенное действие и вывести результат на экран. Нужно использовать ComboBox. Сам код:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   MainMenu1: TMainMenu;
   N1: TMenuItem;
   N2: TMenuItem;
   ComboBox1: TComboBox;
   Label2: TLabel;
   Image1: TImage;
   Image2: TImage;
   Label3: TLabel;
   procedure ComboBox1Change(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 y: real;
 
implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

ComboBox1.items.add('A = -4');
ComboBox1.items.add('A = -1');
ComboBox1.items.add('A = 3');
ComboBox1.ItemIndex:=1;

end;
begin
 case ComboBox1.ItemIndex of
 1: y:= -4+ln(1*1);
 2: y:= -1+ln(1*1);
 3: y:= 3+ln(1*1);
 end;
label3.caption:=FloatToStrF(y, ffFixed, 6, 3);

end.

Ошибку выдает в операторе case..of пишет типа Undeclared identifier,
назначаешь - вообще не работает.
Подскажите в чем ошибка.

---

Gydvin   (2006-04-19 09:19:00) [21]

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.items.add('A = -4');
ComboBox1.items.add('A = -1');
ComboBox1.items.add('A = 3');
ComboBox1.ItemIndex:=1;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: y:= -4+ln(1*1);
1: y:= -1+ln(1*1);
2: y:= 3+ln(1*1);
end;
label3.caption:=FloatToStrF(y, ffFixed, 6, 3);

end;

---

psvitov   (2006-04-19 09:14:00) [22]

Первую ошибку подправил,

Выдал ошибку "Declaration expected"

---

psvitov   (2006-04-19 09:08:00) [23]

Взял с примерного кода, только с ListBox

---

Юрий Зотов   (2006-04-19 09:06:00) [24]

> Подскажите в чем ошибка.

Первая ошибка - в незнании синтаксиса языка Object Pascal (пара begin-end находится непонятно где).

Вторая и третья ошибки проявятся после запуска программы при попытке что-то выбрать в комбобоксе.

---

Ega23   (2006-04-19 09:02:00) [25]

ComboBox1.ItemIndex:=1;

end;
begin
case ComboBox1.ItemIndex of
1: y:= -4+ln(1*1);
2: y:= -1+ln(1*1);

begin - end зачем?

---

Страницы:   < 1 2 >

Наверх