Копия текста Anketa.doc

End

Then begin

Begin

Implementation

Type

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

TForm1 = class (TForm)

Label1: TLabel; //Анкета

LabeledEdit1: TLabeledEdit; //фамилия

LabeledEdit2: TLabeledEdit; //имя

LabeledEdit3: TLabeledEdit; //отчество

RadioGroup1: TRadioGroup; //пол

LabeledEdit4: TLabeledEdit; //год рождения

ComboBox1: TComboBox; //раскрывающийся список

Label2: TLabel; //иностранные языки

CheckBox1: TCheckBox; //английский

CheckBox2: TCheckBox; //немецкий

CheckBox3: TCheckBox; //французский

LabeledEdit5: TLabeledEdit; //другие языки

Memo1: TMemo;

Label4: TLabel; //Автобиография

Button1: TButton;

Label5: TLabel; //указание к действию

SaveDialog1: TSaveDialog; //диалог Windows сохранения файла

procedure FormActivate(Sender: TObject);

procedure ComboBox1Exit(Sender: TObject);

procedure Button1Click(Sender: TObject);

end;

var Form1: TForm1;

{$R *.dfm}

Var F: TextFile;

Uch_Zv, S: String; //Uch_Zv - учёное звание, S - вспомогательная пер.

const S_in_no ='Иностранными языками не владею.';

procedure TForm1.FormActivate(Sender: TObject);

begin //присваивает Uch_Zv значение при загрузке

Uch_Zv:= ComboBox1.Text;

end;

procedure TForm1.ComboBox1Exit(Sender: TObject);

begin //Присваивает Uch_Zv выбранное значение при потери фокуса

Uch_Zv:= Uch_Zv + ComboBox1.Items[ComboBox1.ItemIndex];

end;

procedure TForm1.Button1Click(Sender: TObject);

Case RadioGroup1.ItemIndex of //выбор пола

0: S:= RadioGroup1.Items[0]; // выбран первый

1: S:= RadioGroup1.Items[1]; //выбран второй

end;

if SaveDialog1.Execute //выполняется диалог сохранения файла

then AssignFile(F, SaveDialog1. FileName); //задать имя файла

{$I-} //отключён контроль ошибок ввода-вывода

Rewrite(F); // открыт на запись

{$I+} //включён контроль ошибок

if IOresult <> 0 //ошибка IOresult <> 0,на выход

Then Exit;

Writeln(F, LabeledEdit1.Text + ' ' + //запись ФИО

LabeledEdit2.Text+ ' ' + LabeledEdit3.Text);

Write(F, #13#10 + RadioGroup1.Caption + ' ' + S + ' ');

Writeln(F, LabeledEdit4.Editlabel.Caption + ' ' + LabeledEdit4.Text);//год р.

// Формирование в строке S перечня иностранных языков

S:= ''; //пустое значение

if CheckBox1.Checked = true

then S:= CheckBox1.Caption;

if (CheckBox2.Checked = true) and (S <> '')

then S:= S + ', ' + CheckBox2.Caption;

if (CheckBox3.Checked = true) and (S <> '')

then S:=S + ', ' + CheckBox3.Caption;

if (LabeledEdit5.Text <> '') and (S <> '')

S:=S + ', ' + LabeledEdit6.Text;

Writeln(F, Label2.Caption + ' '+ S);

else Writeln(F, #13#10 + S_in_no);//Иностранными языками не владею

Writeln(F, #13#10 + Memo1.Text);

CloseFile(F);

end;

end.

Ломоносов Михаил Васильевич

Пол - мужской Год рождения ноябрь 1711г.

Учёное звание: академик

Знание иностранных языков: английский, немецкий, французский, латынь

Родился в дер. Денисовка Куростровской волости около села Холмогоры Архангельской губерни в семье крестьянина помора.

В 1731 году поступил в московскую Словяно-греко-латинскую академию. С 1736 по 1741 в Германии изучал физику, химию и металлургию.

Работал в области физики, химии, литературы, истории, географии, металлургии.

Проявлял заботу о распространении образования в России.

4.6. Содержание отчёта

1. Задание.

2. Перечень файлов, входящих в Ваш проект с указанием назначения каждого из них.

3. Листинг модуля с подробными комментариями, поясняющими структуру модуля и назначение его элементов.

4. Форма для ввода данных.

5. Файл вывода данных.

8. Выводы.

4.7. Контрольные вопросы

1. Перечислите основные компоненты окна среды Delphi и укажите их назначение.

2. Перечислите основные файлы проекта Delphi и их назначение?

3. Как изменить заголовок формы?

4. Каково назначение страниц Properties и Events Инспектора объектов?

5. Каково назначение модуля и его элементов в проекте приложения Delphi?

6. Какие поля ввода данных используются в интерфейсном окне Форма?

7. Каково назначение процедуры AssignFiie(var f, FileName: string)? Объясните смысл и назначение параметров.

8. Объясните работу процедур Read(F, V1), Write(F, V1).

4.8. Библиография

1.Карпов Б. Delphi:специальный справочник. СПб, Питер, 2001, 688стр.

2.Фаронов, Валерий Васильевич. Delphi: Программирование на языке высокого уровня: учеб. для вузов по направл. "Информатика и вычислительная техника" / СПб: Питер, 2006.— 639 с.

Дата добавления: 2014-11-29