Разработка информационной системы обучения информатике иностранных студентов

Корчагина Е.Л. О стратегии составления современных программ по русскому языку как иностранному// Русский язык за рубежом. - 2000. - № 1.

Костомаров В.Г. Русский язык в иноязычном потопе // Русский язык за рубежом. - 1993. - № 2.

Костомаров В.Г. Русский язык в современном диалоге культур// Русский язык за рубежом. - 1999. - № 4.

Костомаров В.Г.. Митрофаноеа О.Д. Методическое руководство для преподавателей русского языка иностранцам. - М., 1976.

Лапидус Б.А. Некоторые теоретические вопросы методики обучения неродному языку// Общая методика обучения иностранным языкам. - М., 1991.

Лингво-методические проблемы обучения русскому языку студентов-иностранцев / Под ред. Шустиковой Т.В. - М.: УДН, 1983.

Методика / Под ред. Леонтьева А.А., Королевой Т.А. - М., 1977.

Методика начального обучения иностранным языкам/ Под ред. Карпова И.В., Рахманова И.В. - М., 1957.

Методика преподавания русского языка иностранцам/ Под ред. Бархударова С.П. - М.: МГУ, 1967.

Митрофаноеа О.Д. Основные положения методики преподавания русского языка как иностранного // Русский язык за рубежом - 1975. - № 1.

Научные традиции и новые направления в практике обучения русскому языку: Доклад / VI Международный конгресс преподавателей русского языка и литературы. Москва, 1986.

Никитин О.В. Система местоимений как основа смыслового строения языка// Русский язык за рубежом. - 2000. - № 1.

Ольшанский И. Г. Лингвистический анализ ошибок в русской речи иностранцев. - М.: МГУ, 1971.

Остапенко В.И. Обучение русской грамматике иностранцев на начальном этапе. - М., 1978.

Очерки по методике преподавания русского языка иностранцам III/ Под ред. Сорокиной-Букленевой Л.Г. - М.: УНД, 1971.

Перевод в системе обучения русскому языку как иностранному: Тезисы. М.: РУДН, 1992.

Рожкова Г.И. К лингвистическим основам методики преподавания русского языка иностранцам. - М.: МГУ, 1977.

Рожкова Г.И. и др. Методика преподавания русского языка иностранцам. Москва: МГУ, 1967.

Рожкова Г.И. Русский язык в нерусской аудитории. - М.: МГУ, 1986.

Русский язык и литература в общении народов мира: Пленарный доклад VII Международный конгресс преподавателей русского языка и литературы. М., 1990.

Смирницкий А.И. Очерки по сопоставительной грамматике русского и английского языков. - М., 1975.

Сопоставительное описание и изучение русского языка / Под ред. Вагнер В.Н. - М.: УДН, 1985.

Тарасенко Е.В. Общеевропейская шкала уровней владения иностранным языком и постпороговый уровень русского языка как иностранного// Русский язык за рубежом. - 1999. - № 1.

Теория и практика обучения русскому языку иностранных студентов на подготовительном факультете: Тезисы докладов. - М, 1975.

Труфанова В.Я. Комплексно-аспектная работа по речевой адаптации англоговорящих// Русский язык за рубежом. - 1999. - № 2.

Цветкова З.М. Обучение устной речи// Общая методика обучения иностранным языкам. - М., 1991.

ПРИЛОЖЕНИЕ 1

Обучающая система по информатике для иностранных студентов

Автор программы: Петров В.Л.

About (О программе):

unit about;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm2 = class(TForm)

Label1: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

Cbooks (Конструктор учебников):

unit cbooks;

interface

uses

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

Dialogs, Grids, Spin, StdCtrls, FileCtrl, Buttons, DB, DBTables, ADODB,

ExtCtrls;

type

TForm3 = class(TForm)

GroupBox1: TGroupBox;

DriveComboBox1: TDriveComboBox;

DirectoryListBox1: TDirectoryListBox;

Edit1: TEdit;

DataSource1: TDataSource;

Table1: TADOTable;

GroupBox2: TGroupBox;

Memo1: TMemo;

Panel1: TPanel;

Label4: TLabel;

Edit3: TEdit;

GroupBox3: TGroupBox;

StringGrid1: TStringGrid;

FileListBox1: TFileListBox;

Panel2: TPanel;

Label1: TLabel;

Edit2: TEdit;

Label3: TLabel;

SpinEdit1: TSpinEdit;

Panel3: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

OpenDialog1: TOpenDialog;

BitBtn3: TBitBtn;

procedure SpinEdit1Change(Sender: TObject);

procedure DirectoryListBox1DblClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FileListBox1DblClick(Sender: TObject);

procedure Edit3DblClick(Sender: TObject);

procedure Memo1DblClick(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses help;

{$R *.dfm}

procedure TForm3.SpinEdit1Change(Sender: TObject);

begin

StringGrid1.RowCount := SpinEdit1.Value + 1;

end;

procedure TForm3.DirectoryListBox1DblClick(Sender: TObject);

begin

Edit1.Text := DirectoryListBox1.Directory;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

//запись данных по учебнику

var

f: textfile;

i: integer;

begin

if (Edit1.Text = '') or (Edit2.Text = '') then

Exit;

AssignFile(f, Edit1.Text + '\' + Edit2.Text); Rewrite(f);

WriteLn(f, '[Рабочая папка]');

WriteLn(f, Edit1.Text);

WriteLn(f, '[Название учебника]');

WriteLn(f, Edit2.Text);

WriteLn(f, '[Состав глав]');

WriteLn(f, SpinEdit1.Value);

for i := 1 to SpinEdit1.Value do

begin

WriteLn(f, StringGrid1.Cells[0, i]);

WriteLn(f, StringGrid1.Cells[1, i]);

end;

WriteLn(f, '[Литература]');

WriteLn(f, Edit1.Text + '\' + Edit3.Text);

WriteLn(f, '[Ссылки]');

for i := 1 to Memo1.Lines.Count do

WriteLn(f, Memo1.Lines.Strings[i - 1]);

Table1.Insert;

Table1['name'] := Edit2.Text;

Table1['path'] := Edit1.Text + '\' + Edit2.Text;

Table1.Post;

CloseFile(f);

end;

procedure TForm3.FormShow(Sender: TObject);

begin

StringGrid1.Cells[0, 0] := 'Раздел';

StringGrid1.Cells[1, 0] := 'Имя файла';

end;

procedure TForm3.FileListBox1DblClick(Sender: TObject);

//ввод файла в таблицу

begin

StringGrid1.Cells[1, StringGrid1.Row] := FileListBox1.FileName;

end;

procedure TForm3.Edit3DblClick(Sender: TObject);

//загрузка имени файла

begin

if OpenDialog1.Execute then

Edit3.Text := OpenDialog1.FileName;

end;

procedure TForm3.Memo1DblClick(Sender: TObject);

//загрузка адресов

begin

if OpenDialog1.Execute then

Memo1.Lines.Add(OpenDialog1.FileName);

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

//вывод окна помощи

begin

Form9.ShowModal;

end;

end.

Editor (Редактор):

unit Editor;

interface

uses

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

Dialogs, ComCtrls, ToolWin, StdCtrls, ImgList;

type

TForm6 = class(TForm)

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

RichEdit1: TRichEdit;

ImageList1: TImageList;

ToolButton3: TToolButton;

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

edname: string;

implementation

uses help;

{$R *.dfm}

procedure TForm6.ToolButton2Click(Sender: TObject);

begin

Close;

end;

procedure TForm6.ToolButton1Click(Sender: TObject);

//сохранить

begin

RichEdit1.Lines.SaveToFile(edname);

end;

procedure TForm6.ToolButton3Click(Sender: TObject);

//вывод окна помощи

begin

Form9.ShowModal;

end;

end.

MAIN (Главное окно обучающей ситемы):

unit main;

interface

uses

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

Dialogs, ToolWin, XPStyleActnCtrls, Jpeg,

ActnList, ComCtrls, Menus, StdCtrls, DBCtrls, ExtCtrls, ImgList, Buttons,

OleCtrls, XPMan, SHDocVw;

type

TForm1 = class(TForm)

ActionList1: TActionList;

AboutPrg: TAction;

Quit: TAction;

ConstrBook: TAction;

SelectPredm: TAction;

ToolBar1: TToolBar;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

ToolButton1: TToolButton;

ImageList1: TImageList;

Panel1: TPanel;

Panel2: TPanel;

GroupBox1: TGroupBox;

ListBox1: TListBox;

ListBox2: TListBox;

RichEdit1: TRichEdit;

WebBrowser1: TWebBrowser;

EditBook: TAction;

N11: TMenuItem;

XPManifest1: TXPManifest;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

btnLiter: TBitBtn;

DelRes: TAction;

ToolButton2: TToolButton;

Translat: TAction;

ToolButton3: TToolButton;

N7: TMenuItem;

Setup: TAction;

N10: TMenuItem;

ConstrTest: TAction;

N12: TMenuItem;

TstPanel: TPanel;

Panel8: TPanel;

btnYes: TBitBtn;

btnBreak: TBitBtn;

GoTest: TAction;

N13: TMenuItem;

ToolButton4: TToolButton;

Panel7: TPanel;

Panel9: TPanel;

Label5: TLabel;

RadioGroup1: TRadioGroup;

Image1: TImage;

GroupBox2: TGroupBox;

DBLookupListBox1: TDBLookupListBox;

GroupBox3: TGroupBox;

ListBox3: TListBox;

EditTest: TAction;

N14: TMenuItem;

OpenDialog1: TOpenDialog;

Panel6: TPanel;

Label4: TLabel;

HelpMain: TAction;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

procedure QuitExecute(Sender: TObject);

procedure AboutPrgExecute(Sender: TObject);

procedure ConstrBookExecute(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SelectPredmExecute(Sender: TObject);

procedure ListBox1DblClick(Sender: TObject);

procedure LoadFile(name: string);

procedure LiterClick(Sender: TObject);

procedure ListBox2DblClick(Sender: TObject);

procedure EditBookExecute(Sender: TObject);

procedure SetupExecute(Sender: TObject);

procedure TranslatExecute(Sender: TObject);

procedure ConstrTestExecute(Sender: TObject);

procedure EditTestExecute(Sender: TObject);

procedure btnYesClick(Sender: TObject);

procedure btnBreakClick(Sender: TObject);

procedure GoTestExecute(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure HelpMainExecute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses about, cbooks, ShellAPI, selbook, Editor, setups, ctest, ntest, help;

{$R *.dfm}

type

questions = record

vop: string; //вопрос

n, // количество ответов

np: integer; // номер правильного ответа

fn: string;

otv: array [1..10] of string; //ответы

end;

const

oc: array [0..5] of string = ('нет оценки', 'нет оценки',

'неудовлетворительно', 'удовлетворительно',

'хорошо', 'отлично');

var

gl, pgl: array [1..100] of string;

ngl: integer;

lit: string;

ntst: integer; //число тестов

p2t: array [1..100] of string; //путь к тестам

stopp: integer;

procedure TForm1.LoadFile(name: string);

//обработка файла

var

ext: string;

h: THandle;

begin

ext := Copy(name, Pos('.', name) + 1, Length(name) - Pos('.', name));

if (ext = 'txt') then

begin

RichEdit1.Visible := True;

WebBrowser1.Visible := False;

RichEdit1.Lines.LoadFromFile(name);

Exit;

end;

if (ext = 'htm') or (ext = 'html') then

begin

RichEdit1.Visible := False;

WebBrowser1.Visible := True;

WebBrowser1.Navigate(name);

Exit;

end;

h := ShellExecute(0, 'open', PChar(name), nil, nil, SW_SHOW);

if h < 32 then

ShowMessage('Нет приложения для просмотра документа.');

end;

procedure TForm1.QuitExecute(Sender: TObject);

//выход

begin

Close;

end;

procedure TForm1.AboutPrgExecute(Sender: TObject);

//о программе

begin

Form2.ShowModal;

end;

procedure TForm1.ConstrBookExecute(Sender: TObject);

//конструктор учебников

var

cd: string;

begin

cd := GetCurrentDir;

Form9.Memo1.Lines.LoadFromFile('spravki\справка (конструктор учебников).txt');

Form3.ShowModal;

if SetCurrentDir(cd) then {};

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

//удаление учебника из базы

var

k: integer;

begin

k := Application.MessageBox('Удалить текущий учебник?', 'Подтверждение', MB_YESNO + MB_ICONWARNING);

if k = idYes then

Form3.Table1.Delete;

end;

procedure TForm1.SelectPredmExecute(Sender: TObject);

//загрузка учебника

var

f: textfile;

p, name, s: string;

i: integer;

SR: TSearchRec;

doserror: integer;

begin

tstPanel.Visible := False;

Panel2.Visible := True;

name := Form3.Table1.FieldByName('name').AsString;

p := Form3.Table1.FieldByName('path').AsString;

GroupBox1.Caption := name;

{$I-}

AssignFile(f, p); Reset(f);

{$I+}

if IOResult <> 0 then

begin

ShowMessage('Учебник не найден');

Exit;

end;

Panel2.Visible := True;

ListBox1.Clear;

ListBox2.Clear;

ReadLn(f, s);

ReadLn(f, p);

ReadLn(f, s);

ReadLn(f, s);

ReadLn(f, s);

ReadLn(f, ngl);

for i := 1 to ngl do

begin

ReadLn(f, gl[i]);

ReadLn(f, pgl[i]);

ListBox1.Items.Add(gl[i]);

end;

ReadLn(f, s);

ReadLn(f, lit);

ReadLn(f, s);

while not EOF(f) do

begin

ReadLn(f, s);

ListBox2.Items.Add(s);

end;

CloseFile(f);

DelRes.Enabled := True;

Translat.Enabled := True;

//загрузка тестов

ListBox3.Clear;

ntst := 0;

doserror := FindFirst(p + '\*.tst', faAnyFile, SR);

while doserror = 0 do

begin

Inc(ntst);

p2t[ntst] := p + '\' + SR.Name;

AssignFile(f, p + '\' + SR.Name); Reset(f);

ReadLn(f, s);

ListBox3.Items.Add(s);

CloseFile(f);

doserror := FindNext(SR);

end;

ListBox3.ItemIndex := 0;

GoTest.Enabled := True;

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);

//загрузка темы

var

k: integer;

begin

k := ListBox1.ItemIndex + 1;

LoadFile(pgl[k]);

end;

procedure TForm1.LiterClick(Sender: TObject);

//загрузка списка литературы

begin

if lit <> '' then

LoadFile(lit);

end;

procedure TForm1.ListBox2DblClick(Sender: TObject);

//запуск обозревателя

var

s: string;

k: integer;

begin

k := ListBox2.ItemIndex;

s := ListBox2.Items.Strings[k];

LoadFile(s);

end;

procedure TForm1.EditBookExecute(Sender: TObject);

//редактировать учебник

begin

Form5.ShowModal;

edname := Form3.Table1.FieldByName('path').AsString;

Form9.Memo1.Lines.LoadFromFile('spravki\справка (редактор учебников).txt');

Form6.RichEdit1.Lines.LoadFromFile(edname);

Form6.ShowModal;

end;

procedure TForm1.SetupExecute(Sender: TObject);

//вывод окна настроек

begin

Form4.ShowModal;

end;

procedure TForm1.TranslatExecute(Sender: TObject);

//загрузка переводчика

var

h: THandle;

s: string;

begin

s := Form4.Edit2.Text;

h := ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOW);

if h < 32 then

ShowMessage('Переводчик не найден!');

end;

procedure TForm1.ConstrTestExecute(Sender: TObject);

//конструирование теста

var

m: integer;

cd: string;

begin

cd := GetCurrentDir;

if SetCurrentDir(cd) then {};

m := Form8.ShowModal;

if m = mrCancel then Exit;

starttest := 0;

nametest := Form8.Edit2.Text;

ptest := Form8.Edit1.Text;

Form7.Label5.Caption := ptest;

Form7.Edit2.Text := '';

Form7.ShowModal;

if SetCurrentDir(cd) then {};

end;

procedure TForm1.EditTestExecute(Sender: TObject);

//редактировать тест

var

cd: string;

begin

Form9.Memo1.Lines.LoadFromFile('spravki\справка (редактор тестов).txt');

cd := GetCurrentDir;

if OpenDialog1.Execute then

edname := OpenDialog1.FileName;

Form6.RichEdit1.Lines.LoadFromFile(edname);

Form6.ShowModal;

if SetCurrentDir(cd) then {};

end;

procedure TForm1.btnYesClick(Sender: TObject);

//нажата кнопка принятия ответа

begin

stopp := 1;

end;

procedure TForm1.btnBreakClick(Sender: TObject);

//нажата кнопка прерывания теста

begin

stopp := 2;

end;

procedure TForm1.GoTestExecute(Sender: TObject);

//тестирование

var

f: textfile;

fn, s: string;

n, //число вопросов

no, //число правильных ответов

k, i: integer;

v: array [1..100] of questions; // массив вопросов

pr: real; //процент правильных ответов

na: integer;

begin

if ListBox3.ItemIndex < 0 then Exit;

fn := p2t[ListBox3.ItemIndex + 1];

if fn = '' then Exit;

TstPanel.Visible := True;

Panel2.Visible := False;

AssignFile(f, fn); Reset(f);

ReadLn(f, s);

Label4.Caption := s;

n := 0; // счетчик числа вопросов

while not EOF(f) do // пока не конец файла

begin

n := n + 1; // номер вопроса

ReadLn(f, v[n].vop); // чтение вопроса

if v[n].vop = '' then

begin

n := n - 1;

Break;

end;

ReadLn(f, v[n].fn);

ReadLn(f, v[n].n);

ReadLn(f, v[n].np);

for i := 1 to v[n].n do

ReadLn(f, v[n].otv[i]);

end;

CloseFile(f); //закрытие файла

no := 0;

for i := 1 to n do

begin

Label5.Caption := v[i].vop;

Image1.Picture := nil;

if v[i].fn <> '' then

Image1.Picture.LoadFromFile(v[i].fn)

else

Image1.Picture.LoadFromFile(GetCurrentDir + '\nopic.bmp');

btnYes.Enabled := False;

RadioGroup1.Items.Clear;

for k := 1 to v[i].n do

RadioGroup1.Items.Add(v[i].otv[k]);

stopp := 0;

repeat

Application.ProcessMessages;

until stopp <> 0;

if stopp = 2 then

begin

ShowMessage('Тест прерван пользователем!');

TstPanel.Visible := False;

Panel2.Visible := True;

Exit;

end;

k := RadioGroup1.ItemIndex + 1;

if k = v[i].np then

inc(no);

end;

pr := no / n * 100; // процент правильных ответов

na := 2;

if pr > 90 then

na := 5;

if (pr >= 80) and (pr <= 90) then

na := 4;

if (pr >= 50) and (pr < 80) then

na := 3;

if pr <= 50 then

na := 2;

ShowMessage('Результаты теста' + #13 +

'Всего вопросов ' + IntToStr(n) + #13 +

'Правильных ответов ' + IntToStr(no) + #13 +

'Оценка: ' + oc[na]);

TstPanel.Visible := False;

Panel2.Visible := True;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

btnYes.Enabled := True;

end;

procedure TForm1.HelpMainExecute(Sender: TObject);

//вывод окна помощи

begin

Form9.Memo1.Lines.LoadFromFile('spravki\справка (главное меню).txt');

Form9.ShowModal;

end;

end.

Ntest (Новый тест):

unit ntest;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm8 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

SpeedButton1: TSpeedButton;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

SaveDialog1: TSaveDialog;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.SpeedButton1Click(Sender: TObject);

begin

if SaveDialog1.Execute then

Edit1.Text := SaveDialog1.FileName;

end;

end.

Selbook (Выбор ресурса учебника):

unit selbook;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls;

type

TForm5 = class(TForm)

Label5: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

end.

Setups (Настройка переводчика):

unit setups;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm4 = class(TForm)

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

CheckBox1: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

BitBtn2: TBitBtn;

OpenDialog1: TOpenDialog;

BitBtn3: TBitBtn;

procedure SelectFile(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.SelectFile(Sender: TObject);

//ввод имени файла в строку ввода

begin

if OpenDialog1.Execute then

Edit2.Text := OpenDialog1.FileName;

end;

procedure TForm4.CheckBox1Click(Sender: TObject);

begin

Edit1.Enabled := CheckBox1.Checked;

Edit2.Enabled := CheckBox1.Checked;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

var

f: textfile;

begin

AssignFile(f, 'trans.ini'); Rewrite(f);

if CheckBox1.Checked then

WriteLn(f, 1)

else

WriteLn(f, 0);

WriteLn(f, Edit1.Text);

WriteLn(f, Edit2.Text);

CloseFile(f);

end;

procedure TForm4.FormCreate(Sender: TObject);

var

f: textfile;

k: integer;

s: string;

begin

{$i-} AssignFile(f, 'trans.ini'); Reset(f); {$I+}

if IOResult <> 0 then Exit;

ReadLn(f, k);

CheckBox1.Checked := k = 1;

ReadLn(f, s);

Edit1.Text := s;

REadLn(f, s);

Edit2.Text := s;

CloseFile(f);

end;

end.

Help (Помощь):

unit help;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm9 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

Memo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

end.

Размещено на Allbest.ru