Курсовой проект / Labs / FormLab2

unit FormLab2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, Grids, LexElem;

type
TLab2Form = class(TForm)
PageControl1: TPageControl;
SheetFile: TTabSheet;
SheetLexems: TTabSheet;
BtnExit: TButton;
GroupText: TGroupBox;
ListIdents: TMemo;
EditFile: TEdit;
BtnFile: TButton;
BtnLoad: TButton;
FileOpenDlg: TOpenDialog;
GridLex: TStringGrid;
procedure BtnLoadClick(Sender: TObject);
procedure BtnFileClick(Sender: TObject);
procedure EditFileChange(Sender: TObject);
procedure BtnExitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Список лексем }
listLex: TLexList;
{ Процедура инициализации таблицы для отображения списка лексем }
procedure InitLexGrid;
public
{ Public declarations }
end;

var
Lab2Form: TLab2Form;

implementation

{$R *.DFM}

uses FncTree, LexType, LexAuto;

procedure TLab2Form.InitLexGrid;
{ Процедура инициализации таблицы для отображения списка лексем }
begin
with GridLex do
begin
RowCount := 2;
Cells[0,0] := '№ п/п';
Cells[1,0] := 'Лексема';
Cells[2,0] := 'Значение';
Cells[0,1] := '';
Cells[1,1] := '';
Cells[2,1] := '';
end;
end;

procedure TLab2Form.FormCreate(Sender: TObject);
{ В начале выполнения инициализируем список лексем и таблицу идентификаторов }
begin
InitTreeVar;
listLex := TLexList.Create;
end;

procedure TLab2Form.FormClose(Sender: TObject; var Action: TCloseAction);
{ В конце выполнения очищаем список лексем и таблицу идентификаторов }
begin
listLex.Free;
ClearTreeVar
end;

procedure TLab2Form.EditFileChange(Sender: TObject);
begin
{ Можно читать файл, только когда его имя не пустое }
BtnLoad.Enabled := (EditFile.Text <> '');
end;

procedure TLab2Form.BtnFileClick(Sender: TObject);
begin
if FileOpenDlg.Execute then
{ Выбор имени файла с помощью стандартного диалога }
begin
EditFile.Text := FileOpenDlg.FileName;
BtnLoad.Enabled := (EditFile.Text <> '');
end;
end;

procedure TLab2Form.BtnLoadClick(Sender: TObject);
{ Процедура чтения и анализа файла }
var i,iCnt,iErr: integer;
begin
{ Очищаем список лексем }
listLex.Clear;
{ Очищаем таблицу отображения списка лексем }
InitLexGrid;
try
{ Чтение файла в список строк }
ListIdents.Lines.LoadFromFile(EditFile.Text);
except
MessageDlg('Ошибка чтения файла!',mtError,[mbOk],0);
Exit;
end;
{ Анализ списка строк и заполнение списка лексем }
iErr := MakeLexList(ListIdents.Lines,listLex);
if iErr <> 0 then
{ Если анализ не успешный, выводим сообщение об ошибке }
begin
MessageDlg(Format('Ошибка "%s" в строке %d!',[listLex[0].LexInfoStr,iErr]),
mtWarning,[mbOk],0);
{ Берем позицию ошибочной лексемы из фиктивной лексемы в начале списка
и позиционируем на нее список строк }
ListIdents.SelStart := listLex[0].PosAll;
ListIdents.SelLength := listLex[0].PosNum;
{ Отображаем позицию ошибки в списке строк }
ListIdents.SetFocus;
end
else
{ Если анализ успешный, отображаем список лексем в таблице }
begin
MessageDlg(Format('Считано %d лексем.',[listLex.Count]),mtInformation,[mbOk],0);
{ Цикл по всем прочитанным лексемам }
GridLex.RowCount := listLex.Count+1;
iCnt := listLex.Count-1;
for i:=0 to iCnt do
begin
{ Первая колонка - номер }
GridLex.Cells[0,i+1] := IntToStr(i+1);
{ Вторая колонка - тип лексемы }
GridLex.Cells[1,i+1] := LexTypeName(listLex[i].LexType);
{ Третья колонка - значение лексемы }
GridLex.Cells[2,i+1] := listLex[i].LexInfoStr;
end;
end;
end;

procedure TLab2Form.BtnExitClick(Sender: TObject);
{ Завершение работы с программой }
begin
Self.Close;
end;

end.