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

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

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

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

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

Лабораторная  работа №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.