end;
//Очистка лишних
столбцов.
if Num < Sg.ColCount then
for i := Num - 1 to Sg.ColCount - 1 do
Sg.Cols[i].Clear
;
Sg.ColCount := Num;
//Количество фиксированных строк и толбцов.
Readln(F, Num);
Sg.FixedRows := Num;
Readln(F, Num);
Sg.FixedCols := Num;
//Построчное чтение данных ячеек таблицы.
for j := 0 to Sg.ColCount - 1 do
for i := 0 to Sg.RowCount - 1 do begin
Readln(F, S);
Sg.Cells[j, i] := S;
end;
CloseFile(F);
Button2Click(nil);
for b:=1 to stringgrid1.RowCount do
begin
with stringgrid1, listbox1 do
begin
items[itemindex]:=cells[1,b];
listbox1.ItemIndex:=8;
listbox1.DeleteSelected;
end;
end;
end;
procedure TForm2.FormClose(Sender: TObject;
var Action: TCloseAction); - при закрытии программы изменения,
внесенные в stringgrid1, записываются в data.txt.
А также срабатывает нажатие скрытой кнопки
сохранения data2.txt, для сохранения изменений
в stringgrid2.
const
Fn = 'data.txt';
var
F : TextFile;
Sg : TStringGrid;
i, j, Cnt, CntMax : Integer;
begin
Sg := StringGrid1;
AssignFile(F, Fn);
Rewrite(F);
//Запись сведений
о рамерах таблицы.
Writeln(F, Sg.RowCount);
Writeln(F, Sg.ColCount);
Writeln(F, Sg.FixedRows);
Writeln(F, Sg.FixedCols);
//Общее количество ячеек в таблице.
CntMax := Sg.RowCount * Sg.ColCount;
//Счётчик записанных в файл ячеек.
Cnt := 0;
//Построчная запись данных из ячеек таблицы.
for j := 0 to Sg.ColCount - 1 do
for i := 0 to Sg.RowCount - 1 do begin
Write(F, Sg.Cells[j, i]);
Inc(Cnt);
if Cnt < CntMax then
Writeln(F);
end;
CloseFile(F);
Button1Click(nil);
form1.close;
end;
procedure TForm2.BitBtn2Click(Sender: TObject); - кнопка для удаления строк.
begin
stringgrid1.RowCount:=stringgrid1.RowCount-1;
end;
procedure TForm2.ListBox1Click(Sender: TObject); - при выборе кинотеатра в списке в метки
(label) считывается информация из второй
таблицы (stringgrid2). А также в изображения
(image) загружаются изображения.
var a: integer;
begin
a:=listbox1.ItemIndex;
label2.Caption:=stringgrid1.Cells[2,a+1];
begin
if listbox1.ItemIndex=0 then
begin
label4.Caption:=stringgrid2.Cells[1,1]+#13#10+stringgrid2.Cells[2,1]+#13#10+stringgrid2.Cells[3,1]+#13#10+stringgrid2.Cells[4,1]+#13#10+stringgrid2.Cells[5,1]+#13#10+stringgrid2.Cells[6,1]+#13#10+stringgrid2.Cells[8,1]+#13#10+#13#10+stringgrid2.Cells[1,2]+#13#10+stringgrid2.Cells[2,2]+#13#10+stringgrid2.Cells[3,2]+#13#10+stringgrid2.Cells[4,2]+#13#10+stringgrid2.Cells[5,2]+#13#10+stringgrid2.Cells[6,2]+stringgrid2.Cells[8,2]+#13#10+#13#10+stringgrid2.Cells[1,3]+#13#10+stringgrid2.Cells[2,3]+#13#10+stringgrid2.Cells[3,3]+#13#10+stringgrid2.Cells[4,3]+#13#10+stringgrid2.Cells[5,3]+#13#10+stringgrid2.Cells[6,3]+#13#10+stringgrid2.Cells[8,3];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Кассадага.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Прометей.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Мадагаскар
3.bmp');
end;
if listbox1.ItemIndex=1 then begin
label4.Caption:=stringgrid2.Cells[1,4]+#13#10+stringgrid2.Cells[2,4]+#13#10+stringgrid2.Cells[3,4]+#13#10+stringgrid2.Cells[4,4]+#13#10+stringgrid2.Cells[5,4]+#13#10+stringgrid2.Cells[6,4]+#13#10+stringgrid2.Cells[8,4]+#13#10+#13#10+stringgrid2.Cells[1,5]+#13#10+stringgrid2.Cells[2,5]+#13#10+stringgrid2.Cells[3,5]+#13#10+stringgrid2.Cells[4,5]+#13#10+stringgrid2.Cells[5,5]+#13#10+stringgrid2.Cells[6,5]+stringgrid2.Cells[8,5]+#13#10+#13#10+stringgrid2.Cells[1,6]+#13#10+stringgrid2.Cells[2,6]+#13#10+stringgrid2.Cells[3,6]+#13#10+stringgrid2.Cells[4,6]+#13#10+stringgrid2.Cells[5,6]+#13#10+stringgrid2.Cells[6,6]+#13#10+stringgrid2.Cells[8,6];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Окно
в лето.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Боже,
благослови Америку.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Верное
дельце.bmp');
end;
if listbox1.ItemIndex=2 then begin
label4.Caption:=stringgrid2.Cells[1,7]+#13#10+stringgrid2.Cells[2,7]+#13#10+stringgrid2.Cells[3,7]+#13#10+stringgrid2.Cells[4,7]+#13#10+stringgrid2.Cells[5,7]+#13#10+stringgrid2.Cells[6,7]+#13#10+stringgrid2.Cells[8,7]+#13#10+#13#10+stringgrid2.Cells[1,8]+#13#10+stringgrid2.Cells[2,8]+#13#10+stringgrid2.Cells[3,8]+#13#10+stringgrid2.Cells[4,8]+#13#10+stringgrid2.Cells[5,8]+#13#10+stringgrid2.Cells[6,8]+stringgrid2.Cells[8,8]+#13#10+#13#10+stringgrid2.Cells[1,9]+#13#10+stringgrid2.Cells[2,9]+#13#10+stringgrid2.Cells[3,9]+#13#10+stringgrid2.Cells[4,9]+#13#10+stringgrid2.Cells[5,9]+#13#10+stringgrid2.Cells[6,9]+#13#10+stringgrid2.Cells[8,9];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Броненосец.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Папаши
без вредных привычек.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Невидимая.bmp');
end;
if listbox1.ItemIndex=3 then begin
label4.Caption:=stringgrid2.Cells[1,10]+#13#10+stringgrid2.Cells[2,10]+#13#10+stringgrid2.Cells[3,10]+#13#10+stringgrid2.Cells[4,10]+#13#10+stringgrid2.Cells[5,10]+#13#10+stringgrid2.Cells[6,10]+#13#10+stringgrid2.Cells[8,10]+#13#10+#13#10+stringgrid2.Cells[1,11]+#13#10+stringgrid2.Cells[2,11]+#13#10+stringgrid2.Cells[3,11]+#13#10+stringgrid2.Cells[4,11]+#13#10+stringgrid2.Cells[5,11]+#13#10+stringgrid2.Cells[6,11]+stringgrid2.Cells[8,11]+#13#10+#13#10+stringgrid2.Cells[1,12]+#13#10+stringgrid2.Cells[2,12]+#13#10+stringgrid2.Cells[3,12]+#13#10+stringgrid2.Cells[4,12]+#13#10+stringgrid2.Cells[5,12]+#13#10+stringgrid2.Cells[6,12]+#13#10+stringgrid2.Cells[8,12];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Белоснежка
и охотник.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Президент
Линкольн.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\G.I.JOE
Бросок кобры 2.bmp');
end;
if listbox1.ItemIndex=4 then begin
label4.Caption:=stringgrid2.Cells[1,13]+#13#10+stringgrid2.Cells[2,13]+#13#10+stringgrid2.Cells[3,13]+#13#10+stringgrid2.Cells[4,13]+#13#10+stringgrid2.Cells[5,13]+#13#10+stringgrid2.Cells[6,13]+#13#10+stringgrid2.Cells[8,13]+#13#10+#13#10+stringgrid2.Cells[1,14]+#13#10+stringgrid2.Cells[2,14]+#13#10+stringgrid2.Cells[3,14]+#13#10+stringgrid2.Cells[4,14]+#13#10+stringgrid2.Cells[5,14]+#13#10+stringgrid2.Cells[6,14]+stringgrid2.Cells[8,14]+#13#10+#13#10+stringgrid2.Cells[1,15]+#13#10+stringgrid2.Cells[2,15]+#13#10+stringgrid2.Cells[3,15]+#13#10+stringgrid2.Cells[4,15]+#13#10+stringgrid2.Cells[5,15]+#13#10+stringgrid2.Cells[6,15]+#13#10+stringgrid2.Cells[8,15];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Королевство
полной луны.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Три
метра над уровнем неба Я тебя хочу.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Последний
день на Земле.bmp');
end;
if listbox1.ItemIndex=5 then begin
label4.Caption:=stringgrid2.Cells[1,16]+#13#10+stringgrid2.Cells[2,16]+#13#10+stringgrid2.Cells[3,16]+#13#10+stringgrid2.Cells[4,16]+#13#10+stringgrid2.Cells[5,16]+#13#10+stringgrid2.Cells[6,16]+#13#10+stringgrid2.Cells[8,16]+#13#10+#13#10+stringgrid2.Cells[1,17]+#13#10+stringgrid2.Cells[2,17]+#13#10+stringgrid2.Cells[3,17]+#13#10+stringgrid2.Cells[4,17]+#13#10+stringgrid2.Cells[5,17]+#13#10+stringgrid2.Cells[6,17]+stringgrid2.Cells[8,17]+#13#10+#13#10+stringgrid2.Cells[1,18]+#13#10+stringgrid2.Cells[2,18]+#13#10+stringgrid2.Cells[3,18]+#13#10+stringgrid2.Cells[4,18]+#13#10+stringgrid2.Cells[5,18]+#13#10+stringgrid2.Cells[6,18]+#13#10+stringgrid2.Cells[8,18];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Новый
Человек-паук.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Римские
каникулы.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Ледниковый
период-4 Континентальный дрейф.bmp');
end;
if listbox1.ItemIndex=6 then begin
label4.Caption:=stringgrid2.Cells[1,19]+#13#10+stringgrid2.Cells[2,19]+#13#10+stringgrid2.Cells[3,19]+#13#10+stringgrid2.Cells[4,19]+#13#10+stringgrid2.Cells[5,19]+#13#10+stringgrid2.Cells[6,19]+#13#10+stringgrid2.Cells[8,19]+#13#10+#13#10+stringgrid2.Cells[1,20]+#13#10+stringgrid2.Cells[2,20]+#13#10+stringgrid2.Cells[3,20]+#13#10+stringgrid2.Cells[4,20]+#13#10+stringgrid2.Cells[5,20]+#13#10+stringgrid2.Cells[6,20]+stringgrid2.Cells[8,20]+#13#10+#13#10+stringgrid2.Cells[1,21]+#13#10+stringgrid2.Cells[2,21]+#13#10+stringgrid2.Cells[3,21]+#13#10+stringgrid2.Cells[4,21]+#13#10+stringgrid2.Cells[5,21]+#13#10+stringgrid2.Cells[6,21]+#13#10+stringgrid2.Cells[8,21];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Темный
рыцарь Возрождение легенды.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Третий
лишний.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Орден.bmp');
end;
if listbox1.ItemIndex=7 then begin
label4.Caption:=stringgrid2.Cells[1,22]+#13#10+stringgrid2.Cells[2,22]+#13#10+stringgrid2.Cells[3,22]+#13#10+stringgrid2.Cells[4,22]+#13#10+stringgrid2.Cells[5,22]+#13#10+stringgrid2.Cells[6,22]+#13#10+stringgrid2.Cells[8,22]+#13#10+#13#10+stringgrid2.Cells[1,23]+#13#10+stringgrid2.Cells[2,23]+#13#10+stringgrid2.Cells[3,23]+#13#10+stringgrid2.Cells[4,23]+#13#10+stringgrid2.Cells[5,23]+#13#10+stringgrid2.Cells[6,23]+stringgrid2.Cells[8,23]+#13#10+#13#10+stringgrid2.Cells[1,24]+#13#10+stringgrid2.Cells[2,24]+#13#10+stringgrid2.Cells[3,24]+#13#10+stringgrid2.Cells[4,24]+#13#10+stringgrid2.Cells[5,24]+#13#10+stringgrid2.Cells[6,24]+#13#10+stringgrid2.Cells[8,24];
image1.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Вспомнить
все.bmp');
image2.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Неудержимые-2.bmp');
image3.Picture.LoadFromFile('C:\Users\1\Desktop\Borland
Delphi-задачи\Проерт №8_Кинотеатры_По_Другому\Афиша\Три
балбеса.bmp');
end;
end;
end;
procedure TForm2.BitBtn3Click(Sender: TObject); - кнопка для добавления строк в stringgrid2.
Добавленные строки нумеруются.
var i:integer;
begin
stringgrid2.RowCount:=stringgrid2.RowCount+1;
for i:=1 to stringgrid2.rowcount-1 do
stringgrid2.Cells[0,i]:=inttostr(i);
end;
procedure TForm2.BitBtn4Click(Sender: TObject); - кнопка для удаления строк.
begin
stringgrid2.RowCount:=stringgrid2.RowCount-1;
end;
procedure TForm2.Button3Click(Sender: TObject); - кнопка для удаления выбранной строки
в списке.
begin
listbox1.DeleteSelected;
end;
procedure TForm2.FormResize(Sender: TObject); - при изменении размеров
формы меняются расположения и размеры
всех объектов формы.
begin
bitbtn1.Top:=trunc((form2.Height/100)*Tbbtn1);
bitbtn1.Left:=trunc((form2.Width/100)*Lbbtn1);
bitbtn1.Height:=trunc((form2.Height/100)*Hbbtn1);
bitbtn1.Width:=trunc((form2.Width/100)*Wbbtn1);
bitbtn2.Top:=trunc((form2.Height/100)*Tbbtn2);
bitbtn2.Left:=trunc((form2.Width/100)*Lbbtn2);
bitbtn2.Height:=trunc((form2.Height/100)*Hbbtn2);
bitbtn2.Width:=trunc((form2.Width/100)*Wbbtn2);
stringgrid1.Top:=trunc((form2.Height/100)*Tstrg1);
stringgrid1.Left:=trunc((form2.Width/100)*Lstrg1);
stringgrid1.Height:=trunc((form2.Height/100)*Hstrg1);
stringgrid1.Width:=trunc((form2.Width/100)*Wstrg1);
pagecontrol1.Top:=trunc((form2.Height/100)*Tpage1);
pagecontrol1.Left:=trunc((form2.Width/100)*Lpage1);
pagecontrol1.Height:=trunc((form2.Height/100)*Hpage1);
pagecontrol1.Width:=trunc((form2.Width/100)*Wpage1);
bitbtn3.Top:=trunc((form2.Height/100)*Tbbtn3);
bitbtn3.Left:=trunc((form2.Width/100)*Lbbtn3);
bitbtn3.Height:=trunc((form2.Height/100)*Hbbtn3);
bitbtn3.Width:=trunc((form2.Width/100)*Wbbtn3);
stringgrid2.Top:=trunc((form2.Height/100)*Tstrg2);
stringgrid2.Left:=trunc((form2.Width/100)*Lstrg2);
stringgrid2.Height:=trunc((form2.Height/100)*Hstrg2);
stringgrid2.Width:=trunc((form2.Width/100)*Wstrg2);
bitbtn4.Top:=trunc((form2.Height/100)*Tbbtn4);
bitbtn4.Left:=trunc((form2.Width/100)*Lbbtn4);
bitbtn4.Height:=trunc((form2.Height/100)*Hbbtn4);
bitbtn4.Width:=trunc((form2.Width/100)*Wbbtn4);
listbox1.Top:=trunc((form2.Height/100)*Tlb1);
listbox1.Left:=trunc((form2.Width/100)*Llb1);
listbox1.Height:=trunc((form2.Height/100)*Hlb1);
listbox1.Width:=trunc((form2.Width/100)*Wlb1);
image1.Top:=trunc((form2.Height/100)*Timg1);
image1.Left:=trunc((form2.Width/100)*Limg1);
image1.Height:= trunc((form2.Height/100)*Himg1);
image1.Width:=trunc((form2.Width/100)*Wimg1);
image2.Top:=trunc((form2.Height/100)*Timg2);
image2.Left:=trunc((form2.Width/100)*Limg2);
image2.Height:= trunc((form2.Height/100)*Himg2);