Тестирование в delphi

[knutov]

1)Пишу тестирование в delphi состоящее из 5 вопросов, использую radiogroup, для проверки работоспособности сделал 2 вопроса все работает начинаю писать 3 все делаю также выдает ошибку:
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Кто знает помогите плз.
2) Подскажите как сделать бегунок scrollbar чтобы был вертикальным а не горизонтальным как он появляется изначально

[Stilet]

Could not compile used unit 'Unit1.pas'

А на внутренности этого модуля взглянуть можно?
Ты там с директивами нигде не напутал?

2) Подскажите как сделать бегунок scrollbar чтобы был вертикальным а не горизонтальным как он появляется изначально

Свойство Kind посмотри.

[knutov]

вот выложу всю прогу:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    RadioGroup3: TRadioGroup;
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:integer;
  s:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
str (a,s);
edit1.Text:=s;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then a:=a+1;
if radiogroup1.ItemIndex=1  then a:=a ;



end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if radiogroup2.ItemIndex=0 then a:=a+1;
if radiogroup2.ItemIndex=1  then a:=a;
end;
begin
a:=0;
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
 if radiogroup3.ItemIndex=1 then a:=a+1;
if radiogroup3.ItemIndex=0  then a:=a;
 if radiogroup3.ItemIndex=2 then a:=a;
end;

end.

[Grag]

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then a:=a+1;
if radiogroup1.ItemIndex=1 then a:=a ;

Вот это a:=a+1; лучше написать так Inc(a). Процедура инкремента выполняется во много раз быстрее, чем арифметическое сложение.
А какой глубокий смысл в этом if radiogroup1.ItemIndex=1 then a:=a ;

[knutov]

За подсказку спасибо , а вот изза чего вылачиет эта ошибка не знаешь?

[SERG1980]

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if radiogroup2.ItemIndex=0 then a:=a+1;
if radiogroup2.ItemIndex=1 then a:=a;
end;
begin
a:=0;

вот этот кусок кода мне не понятен, к чему он относится

[knutov]

Вот спасибо большое !)
А эту строку мне сказала моя учительница хз ток зачем

[Stilet]

knutov

Вполне может быть что ты ее неверно понял.