Реферат: Основные свойства проекта - Refy.ru - Сайт рефератов, докладов, сочинений, дипломных и курсовых работ

Основные свойства проекта

Рефераты по информатике » Основные свойства проекта

Федеральное агентство по образованию

ГОУВПО «Московский Государственный Текстильный

Университет им. А. Н. Косыгина»

Кафедра АСОИ и У


Лабораторная работа №1

по дисциплине: «Программный интерфейс»
на тему: «Основные свойства проекта»

Вариант 2


выполнил:

студент гр. 42-06

Гочияев Исмаил

проверил:

проф. Монахов В.И.


Москва 2010 год

Цель работы:

Изучить основные свойства проекта, использование командной
строки запуска, использование INI файлов

Порядок выполнения лабораторной работы:

Для задачи индивидуального задания разработать основную(главную) форму приложения.

Использовать параметры строки запуска для установки цвета фона Tedit.

Предусмотреть сохранение и затем восстановление содержимого компонентов TEdit

Выполнение работы.

Содержание INI-файла.



Пример командной строки запуска.


3. Текст проекта.

unit Unit2;

interface

uses

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

Dialogs,inifiles, StdCtrls;

type

TForm2 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

myIni: TIniFile;


implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

var i:integer;

begin

myIni:= TIniFile.Create('F:лаба1myIni.ini');

for i:=0 to (ControlCount-1) do

if Controls[i] is TEdit then

myIni.WriteString('TEdit', (Controls[i] as TEdit).Name, (Controls[i] as TEdit).Text);

myIni.Free;

end;

procedure TForm2.FormShow(Sender: TObject);

var

i:integer;

begin


if ParamCount<>0 then

if ParamStr(1)<>'' then

begin

for i:=0 to (ControlCount-1) do

if Controls[i] is TEdit then

( Controls[i]as TEdit).Color:=StringToColor('cl'+ParamStr(1));

end;

myIni:= TIniFile.Create('F:лаба1myIni.ini');

for i:=0 to (ControlCount-1) do

if Controls[i] is TEdit then

(Controls[i] as TEdit).Text:=myIni.ReadString('TEdit',(Controls[i] as TEdit).Name,'***');

myIni.Free;

end;

end.