Пример работы программы

Федеральное агентство железнодорожного транспорта

Сибирский государственный университет путей сообщения

Кафедра «Информационные технологии транспорта»

Расчетно-графическая работа

по дисциплине «Архитектура ЭВМ»

Руководитель Разработал

Студент гр. БПИ-112

________________доц.Кобылянский В.Г. ________________Чупин Д.О.

(подпись) ст.преп. Агуленко Н.И. (подпись)

__________________ _____________________

(дата проверки) (дата сдачи на проверку)

Краткая рецензия:

____________________________________________________________________

____________________________________________________________________

____________________________________________________________________

____________________________________________________________________

____________________________________________________________________

_________________________________

(запись о допуске к защите)

________________________________ _________________________________

(оценка по результатам защиты) (подписи преподавателей)

2013год

Содержание

1. Задание………………………………………………………………………………………………2

2. Блок-схема………………………………………………………………………………………...2-3

3. Код программы…………………………………………………………………………………...3-5

4. Пример работы программы……………………………………………………………………...5-8

5. Список источников…………………………………………………………………………………8

Задание

Спроектируйте и реализуйте графическое приложение для иллюстрации функций и процедур для работы с файлами.

Блок-схема программы

Подпрограммы

Основная программа

Код программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Action_list: TMemo;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.Execute;

Action_list.Lines.Add('[Ввели имя файла]: '+OpenDialog1.FileName);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

X: Integer;

begin

X:= DiskFree(0);

MessageDlg('Свободно на текущем диске: '+ IntToStr(X)+' байт', mtInformation, [mbOk], 0);

Action_list.Lines.Add('[Проверили количество свободной памяти]');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

If CreateDir( 'C:\NEWDIR')

then begin

MessageDlg('Каталог создан', mtInformation, [mbOk],0);

Action_list.Lines.Add('[Создали каталог на диске С:]');

end

else begin

MessageDlg('Невозможно создать каталог', mtInformation, [mbOk], 0);

Action_list.Lines.Add('[Не получилось создать каталог на диске С:]');

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

S,S1: string;

begin

if OpenDialog1.Execute then

begin

S1:=OpenDialog1.FileName;

S:= ExtractFileDrive(S1);

MessageDlg('[Имя диска]: '+S, mtInformation, [mbOk], 0);

Action_list.Lines.Add('[Извлекли имя диска из имени файла]: '+OpenDialog1.FileName);

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

if DeleteFileUTF8(OpenDialog1.FileName) then

Action_list.Lines.Add('[Удалили файл]: '+OpenDialog1.FileName);

end;

end;

end.

Пример работы программы

Ввод имени файла

Поиск по сайту: