Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 08.03.2012, 18:23   #1
GraNNiK
Новичок
Джуниор
 
Регистрация: 08.03.2012
Сообщений: 3
По умолчанию Жду ваших комментов

Преподаватель прости подробной комментировки к этому исходному коду.
Пожалуйста люди кто разбирается в Delphi Расскомментируйте этот код.
Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Panel1: TPanel;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Exit1: TMenuItem;
    About1: TMenuItem;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure testd();
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:textfile;
  i,n,p,nq:byte;
  tof:array[1..4] of byte;
  a:array [1..6] of string;
implementation

{$R *.dfm}
procedure TForm1.testd;
begin
  Readln(f,a[6]);
  Memo1.Lines.Add(a[6]);
  Readln(f,a[5]);
  if a[5]<>'.'then
  begin
    Panel1.Visible:=True;
    Image1.Visible:=True;
    Form1.Width:=764;
    Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + a[5]);
  end
  else
  begin
    Panel1.Visible:=False;
    Form1.Width:=457;
  end;
  for i:=1 to 4 do
  begin
    Readln(f,tof[i]);
    Readln(f,a[i]);
    RadioGroup1.Items.Add(a[i]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  f_test:string;
begin
  Button1.Enabled:=False;
  OpenDialog1.Execute;
  Memo1.Clear;
  f_test:=OpenDialog1.FileName;
  p:=0; //True answers in the beginning
  Assignfile(f,f_test);
  Reset(f);
  Readln(f,n);   //Количество вопросов
  nq:=n;
  testd;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:=0 to 3 do
  begin
    if tof[i+1]=1 then
    begin
      RadioGroup1.Enabled:=False;
      Image2.Visible:=True;
      Image2.Top:=Image2.Top+(i+1)*42;
      if RadioGroup1.Buttons[i].Checked then
        p:=p+1;
    end;
  end;
  nq:=nq-1;
  If nq=0 then
  begin
    ShowMessage('Your result: '+IntToStr(p)+' correct answers out of '+IntToStr(n));
    Button1.Enabled:=False;
  end
  else
    Button1.Enabled:=True;
  Button2.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RadioGroup1.Items.Clear;
  Image1.Visible:=False;
  Image2.Visible:=False;
  Image2.Top:=73;
  RadioGroup1.Enabled:=True;
  Memo1.Clear;
  testd;
  Button1.Enabled:=False;
  Button2.Enabled:=True;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage('Laiz Test 0.2.0 Final (c) 2009 Minh [Ignotus] Ngo');
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Form1.Close;
end;

end.
Комменты пишите так //Возле надписи.

Последний раз редактировалось Stilet; 08.03.2012 в 19:22.
GraNNiK вне форума Ответить с цитированием
Старый 08.03.2012, 19:16   #2
GraNNiK
Новичок
Джуниор
 
Регистрация: 08.03.2012
Сообщений: 3
По умолчанию

С виду кажется громоздким, но это не так , просто я сам не разбираюсь в дельфи, прокомментируйте, даже если я покопаюсь в словаре это мне ничего не даст =(((
GraNNiK вне форума Ответить с цитированием
Старый 08.03.2012, 20:04   #3
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 15,303
По умолчанию

пищите в раздел форума фриланс. вам за деньги помогут.
Alar вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Раскажите о Ваших работах натц Gamedev - cоздание игр: Unity, OpenGL, DirectX 4 28.12.2011 12:10
жду звонка DJ DIMON PHP 1 07.10.2011 17:42
жду ответа вовик 82 Помощь студентам 1 27.05.2011 11:15
Детектор движения, жду ваших комментарий ubun Мультимедиа в Delphi 8 14.01.2011 18:42
жду помощи barm Общие вопросы C/C++ 5 20.06.2009 15:26