HELP помощь программистов

-7

HELP помощь программистов

У меня такое задание
Нужно сделать тест на delphi
Все что нужно поставил, код немного исправил но все равно ошибка

Вот сам код

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
PageControl1.ActivePageIndex:=1;
end;
1: begin
i:=i+0;
PageControl1.ActivePageIndex:=1;
end;
2: begin
i:=i+1;
PageControl1.ActivePageIndex:=1;
end;
3: begin
i:=i+0;
PageControl1.ActivePageIndex:=1;
end;
end;
end;
end.

procedure TForm1.RadioGroup5Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
begin
if i<3 then
ShowMessage('Ваша оценка 2');
if i=3 then
ShowMessage('Ваша оценка 3');
end;
if i=4 then
ShowMessage('Ваша оценка 4');
if i=3 then
ShowMessage('Ваша оценка 5');
end;
end.

19.05.2011, 07:51

ва
33

Комментарии — 30

RS19.05.2011, 07:52#

up
~~ddhk~~19.05.2011, 07:57#

это как я понимаю какая то вставка в группу?
~~ddhk~~19.05.2011, 08:00#

case RadioGroup1.ItemIndex of 0:Begin i:=i+0; begin if i<2 then ShowMessage('Ваша оценка 2'); if i=3 then ShowMessage('Ваша оценка 3'); end; if i=4 then ShowMessage('Ваша оценка 4'); if i=5 then ShowMessage('Ваша оценка 5'); end; end.
- ~~ddhk~~19.05.2011, 08:00↑#
  
  это исправь поставь как я написалл ща еще посмотрю
~~ddhk~~19.05.2011, 08:01#

{$R *.dfm} procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:Begin i:=i+0; PageControl1.ActivePageIndex:=1; end; 1: begin i:=i+0; PageControl1.ActivePageIndex:=1; end; 2: begin i:=i+1; PageControl2.ActivePageIndex:=1; end; 3: begin i:=i+0; PageControl3.ActivePageIndex:=1; end; end; end; end.
- ~~ddhk~~19.05.2011, 08:02↑#
  
  все остальное вроде как в норме
DelFast19.05.2011, 08:02#

Дельфи не знаю, будут вопросы на счет PHP — задавай.
- ~~ddhk~~19.05.2011, 08:03↑#
  
  тоже что ли на программиста учишься?
  - RS19.05.2011, 08:06↑#
    
    да, на втором курсе после 9
    - ~~ddhk~~19.05.2011, 08:07↑#
      
      а у меня вот выпуск скоро =)
- amine19.05.2011, 08:05↑#
  
  Делфаст, как сам?) Давно не виделись )
  - DelFast19.05.2011, 08:08↑#
    
    отлично. сам как?)
    - amine19.05.2011, 16:43↑#
      
      нормальн )) понял кто хоть пишет не?)
- ~~Gorka~~19.05.2011, 21:28↑#
  
  выпендреж не засчитан
RS19.05.2011, 08:05#

ошибка у меня в этой строчке
procedure TForm1.RadioGroup1Click(тут ошибка)(Sender: TObject);
- ~~ddhk~~19.05.2011, 08:06↑#
  
  пробовал после click 1 поставить?
  - RS19.05.2011, 08:08↑#
    
    вот и не знаю что поставить после click 1
    - ~~ddhk~~19.05.2011, 08:08↑#
      
      ты не так понял после click 1(поставь) или тебе точно надо?
      - RS19.05.2011, 08:10↑#
        
        rghost.ru/6995231 вот задание
    - ~~ddhk~~19.05.2011, 08:09↑#
      
      просто это оч давно было, у меня ольше упор на сайты и на разные программы)
- DelFast19.05.2011, 08:10↑#
  
  Тут у тебя ошибки никак не может быть. Ищи в операторах
RS19.05.2011, 08:18#

ну что там??
- ~~ddhk~~19.05.2011, 08:27↑#
  
  Вообще не понял ты просто списал что ли его от туда? С примера мб тебе свой надо сделать или я не прав?
  - RS19.05.2011, 08:30↑#
    
    да списал с примера, его нужно изменить чтобы работала программа
    - ~~ddhk~~19.05.2011, 08:32↑#
      
      Поместите на форму компонент PageControl со страницы Win32. Задайте в нем пять вкладок следующим образом. Кликните правой кнопкой мыши по компоненту и выберете пункт New Page. За заголовок страницы отвечает свойство Caption. Назовите их соответственно
    - ~~ddhk~~19.05.2011, 08:32↑#
      
      вот в это вникнись и поймешь.
    - ~~ddhk~~19.05.2011, 08:33↑#
      
      Caption
      - RS19.05.2011, 08:37↑#
        
        я это уже все поставил
RS19.05.2011, 08:47#

вот попробуй посмотри что там неверно rghost.ru/6996641
133519.05.2011, 21:24#

up+