Помогите с задачей в лазарусе? (код есть) - почему не работает кнопка очистки (сброса результатов)?

[Алексеей]

Посмотрите почему не работает кнопка очистки (сброса результатов).

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckGroup1: TCheckGroup;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Memo7: TMemo;
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioGroup1: TRadioGroup;

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckGroup1ItemClick(Sender: TObject; Index: integer);
    procedure ComboBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    procedure Edit1EditingDone(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure RadioButton1Change(Sender: TObject);
    procedure RadioButton2Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  k:integer;
  i,j,x,m1,m2:integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.RadioButton1Change(Sender: TObject);
begin
if RadioGroup1.ItemIndex=i then inc(k);
end;

procedure TForm1.RadioButton2Change(Sender: TObject);
begin
if RadioGroup1.ItemIndex=i then inc(k);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex=j then inc(k);
end;

procedure TForm1.ComboBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ComboBox1.ItemIndex=x then inc(k);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked then inc(k);
end;

procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
begin
 if CheckGroup1.Checked[m1] and CheckGroup1.Checked[m2] then inc(k);
end;

procedure TForm1.Edit1EditingDone(Sender: TObject);
begin
 if Edit1.Text='P' then inc(k);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 label1.Caption:=inttostr(k);
 s:=InputBox('Информация о тестируемом','Введите Ваше ИМЯ',' ');
 case k of
 6:Label2.Caption:=s+',Вы ОТЛИЧНО знаете этот материал!';
 4..5:Label2.Caption:=s+',Вы ХОРОШО знаете этот материал!';
 3:Label2.Caption:=s+',Вы допустили много ошибок. Оценка 3';
 else Label2.Caption:=s+',Вы плохо знаете этот материал!';
end;
 RadioGroup1.Enabled:=false;
 ListBox1.Enabled:=false;
 ComboBox1.Enabled:=false;
 CheckBox1.Enabled:=false;
 CheckGroup1.Enabled:=false;
 Edit1.Enabled:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RadioGroup1.clear;
 ListBox1.clear;
 ComboBox1.clear;
 CheckBox1.clear;
 CheckGroup1.clear;
 Edit1.Text.clear;
end;

end.

[Вадим Мошев]

Edit1.Text.clear;

Правильно пишется Edit1.clear;

CheckBox1.clear;

у checkBox, я полагаю, нет метода clear.
Пишите так:

CheckBox1.checked:=false;

Свойству itemIndex остальных объектов надо присвоить то, что должно быть по умолчанию.

[Алексеей]

Сообщение от Вадим Мошев

Edit1.Text.clear;

Правильно пишется Edit1.clear;

CheckBox1.clear;

у checkBox, я полагаю, нет метода clear.
Пишите так:

CheckBox1.checked:=false;

Свойству itemIndex остальных объектов надо присвоить то, что должно быть по умолчанию.

Простите, а можете подсказать, что делать с компонентами
RadioGroup1.clear;
CheckGroup1.clear;

есть ли у них метод /clear/

[Аватар]

есть ли у них метод /clear/

А в лазаря хелпа нет? Ну и коль компилятор протестует, значит однозначно нет

[Вадим Мошев]

Сообщение от Алексеей

Простите, а можете подсказать, что делать с компонентами
RadioGroup1.clear;
CheckGroup1.clear;

есть ли у них метод /clear/

Для RadioGroup1 сделать так

RadioGroup1.itemIndex:=0;

Для checkGroup1, полагаю, можно так

for i:=0 to checkGroup1.count-1 do begin
	checkGroup1.checked[i]:=false;
end;

___

Ну, а вообще для этих компонент можно определить свой метод clear (или лучше назвать его resetToDefault). Правда для этого придётся создать свои (новые) компоненты, путём унаследования от стандартных

type TMYRadioGroup = class(TRadioGroup)
	procedure resetToDefault;
end;

//...

procedure TMYRadioGroup.resetToDefault; begin
	itemIndex:=0;
end;

// ...

// А потом уже надл будет писать так
// ...
RadioGroup1: TMYRadioGroup; // а не TRadioGroup, как было раньше