Записная книжка
Интерфейс:
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, MPlayer, Menus, TabNotBk,
Grids;
type
TForm9 = class(TForm)
bu: TPageControl;
TabSheet 1-31: TTabSheet;
StringGrid 1-31: TStringGrid;
Button 1-92: TButton;
procedure N4Click(Sender: TObject);
procedure Button 1-31Click(Sender: TObject);
procedure StringGrid 1-31Click(Sender: TObject);
procedure Button 1-92Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
st:systemtime;
Form9: TForm9;
implementation
{$R *.dfm}
//Сохраняем записи
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
//прописывает цисло колон и столбцов
Writeln(f, ColCount);
Writeln(f, RowCount);
//сканирует ячейки
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;
//Загружает записи из файлов
procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
iTmp, i, k: Integer;
strTemp: String;
begin
AssignFile(f, FileName);
Reset(f);
with StringGrid do
begin
//Считывает число столбцов и строк
Readln(f, iTmp);
ColCount := iTmp;
Readln(f, iTmp);
RowCount := iTmp;
//сканирует и заполняет ячейки
for i := 0 to ColCount - 1 do
for k := 0 to RowCount-1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;
//В этих процедурах прописано добавление новой записи
procedure TForm9.Button10Click(Sender: TObject);
begin
StringGrid8.RowCount:= StringGrid8.RowCount + 1
end;
.
.
.
procedure TForm9.Button29Click(Sender: TObject);
begin
StringGrid27.RowCount:= StringGrid27.RowCount + 1
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
SaveStringGrid(StringGrid2, 'A.txt');
end;
.
.
.
procedure TForm9.Button62Click(Sender: TObject);
begin
SaveStringGrid(StringGrid29, 'Я.txt');
end;
//обращение к процедуре считываения файла
procedure TForm9.Button64Click(Sender: TObject);
begin
LoadStringGrid(StringGrid1, 'А.txt');
end;
.
.
.
procedure TForm9.Button92Click(Sender: TObject);
begin
LoadStringGrid(StringGrid31, 'Я.txt');
end;
procedure TForm9.Button9Click(Sender: TObject);
begin
StringGrid7.RowCount:= StringGrid7.RowCount + 1
end;
procedure TForm9.N4Click(Sender: TObject);
begin
Form9.close ;
end;
//заполнения шапки листа
procedure TForm9.StringGrid10Click(Sender: TObject);
begin
Stringgrid10.Cells[0,0]:='ФИО';
Stringgrid10.Cells[1,0]:='Профессия';
Stringgrid10.Cells[2,0]:='Адрес';
Stringgrid10.Cells[3,0]:='Телефон';
Stringgrid10.Cells[4,0]:='Почта';
end;
end.