Implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//Установить значение текущего директория
InitDir := GetCurrentDir;
//Создать ini-файл Model в текущей директории
ConfigFile := TIniFile.Create(InitDir + '\Model.ini');
//Прочитать значение переменной Variable
Variable := StrToInt(ConfigFile.ReadString('Model','Variable' , '1'));
// Загрузка данных в ComboBox
ComboBox1.Items.Add('22 32 54');
ComboBox1.Items.Add('23 11 22');
ComboBox1.Items.Add('25 6 5 7 2');
ComboBox1.Items.Add('10 8 52 13');
//Присвоить значение переменной Variable
ComboBox1.ItemIndex := Variable;
ComboBox1Click(Sender);
end;
// *********************************************** //
procedure TForm1.ComboBox1Click(Sender: TObject);
var
St:string;
i,j:integer;
buf:char;
begin
//определение номера выбранной строки
//Занесение выбранной строки в переменную st
//St := ComboBox1.Items[ComboBox1.ItemIndex];
St := ComboBox1.Text;
For j := 1 to length(st)-1 do
For i := 1 to length(st)-1 do
If st[i]>st[i+1]
then
begin
buf:=St[i];
St[i]:=St[i+1];
St[i+1]:=buf;
end;
Label3.Caption:= St;
//Присвоить значение переменной Variable
Variable :=ComboBox1.ItemIndex;
//Записать значение переменной Variable в INI-файл Model
ConfigFile.WriteString('Model', 'Variable',IntToStr(Variable));
end;
procedure TForm1.ComboBox1KeyPress (Sender: TObject; var Key:char);
begin
if Key=#13 then
begin
ComboBox1.Items.Add(ComboBox1.Text);
ComboBox1.Text:='';
end;
end;
// *********************************************** //
procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
//Закрыть объекты TIniFile
ConfigFile.Free;
end;
end.
Результат выполнения программы:
Выводы: изучили свойства компонента TStringGrid. Написали программу с использованием массивов и ini-файла.
Лабораторная работа №11 графические компоненты
Цель лабораторной работы: Изучить основные графические компоненты, их свойства и методы.
Задание: Разработать программу, содержащую три формы – три способа представления графической информации.
На 1-й форме продемонстрировать отображение графических картинок, созданных в других графических редакторах.
На 2-й форме с помощью кнопочного меню рисовать различные графические фигуры посредством компоненты класса TShape.
На 3-й форме реализовать рисование простейшими примитивами, типа линия, прямоугольник, эллипс и т.д.
Листинг программы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,JPEG, ExtDlgs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;