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

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

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

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

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

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

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

Вариант 2

выполнил:

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

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

проверил:

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

Москва 2010 год

Цель работы:

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

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

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


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


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

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

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

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

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:\ëàáà1\myIni.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:\ëàáà1\myIni.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.