Используя стек, проверить правильность вложений операторных скобок (begin/end) - Delphi - Ответ 8683789

    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;

implementation
 
{$R *.dfm}
 
type
  //Тип основных данных.
  TData = String;
  //Указатель на элемент списка (в данном случае - стека).
  TPElem = ^TElem;
  //Элемент списка.
  TElem = record
    Data : TData;
    PNext : TPElem; //Указатель на следующий элемент списка.
  end;
 
//Добавление элемента на вершину стека.
procedure Push(var aPStack : TPElem; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := aPStack;
  aPStack := PElem;
end;
 
{Изъятие элемента с вершины стека.
Если стек не пуст, то с вершины стека изымается элемент и возвращается
через параметр aData. В этом случае, функция возвращает значение True.
Если стек пуст, то операция отменяется, а функция возвращает значение False.}
function Pop(var aPStack : TPElem; var aData : TData) : Boolean;
var
  PDel : TPElem;
begin
  Pop := False;
  if aPStack <> nil then
  begin
    PDel := aPStack;
    aData := PDel^.Data;
    aPStack := aPStack^.PNext;
    Dispose(PDel);
    Pop := True;
  end;
end;
 
//Освобождение памяти, занятой под стек (очистка стека).
procedure StFree(var aPStack : TPElem);
var
  Data : TData;
begin
  while Pop(aPStack, Data) do;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей.
  D = ['.', ',', ':', ';', '-', '+', '*', '/', '(', ')', '[', ']', '{', '}',
    '''', ' ', #9, #10, #13];
var
  f : TextFile;
  PSt : TPElem;
  i, L, P, Len, LenW : Integer;
  S, FileName : String;
  Sw : TData;
begin
  PSt := nil; //Начальная инициализация стека.
 
  Memo1.Lines.Add('------------------------------');
  //ExtractFilePath(ParamStr(0)) - полный путь директория, в котором лежит исполняемый файл программы.
  //Относительный путь (относительно директория, в котором лежит исполняемый файл программы)
  //указан в Edit1.
  FileName := ExtractFilePath(ParamStr(0)) + Edit1.Text;
  Memo1.Lines.Add('Файл: ' + FileName);
  Memo1.Lines.Add('Проверка операторных скобок.');
  AssignFile(f, FileName);
  Reset(f);
  L := 0; //Строка, на которой обнаружена ошибка.
  P := 0; //Позиция (в пределах строки), на которой обнаружена ошибка.
  while not Eof(f) do //Если не конец файла, то продолжаем цикл.
  begin
    Readln(f, S);     //Читаем очередную строку из файла.
    Inc(L);           //Номер очередной строки.
    Len := Length(S); //Длина строки.
    LenW := 0;        //Длина лексемы.
    for i := 1 to Length(S) do //Перебор всех символов строки.
      if not (S[i] in D) then  //Если символ не является разделителем.
      begin
        Inc(LenW); //Учёт текущего символа в длине лексемы.
        if (i = Len) or (S[i + 1] in D) then //Если обнаружен конец лексемы.
        begin
          Sw := AnsiUpperCase(Copy(S, i - LenW + 1, LenW)); //Выделяем лексему и преобразуем её буквы к верхнему регистру.
          if (Sw = 'BEGIN') or (Sw = 'RECORD') or (Sw = 'CLASS')
            or (Sw = 'OBJECT') or (Sw = 'UNIT')
          then                    //Если обнаружена открывающая скобка.
            Push(PSt, Sw)         //Помещаем открывающую скобку в стек.
          else if Sw = 'END' then //Если обнаружена закрывающая скобка.
          begin
            if not Pop(PSt, Sw) then //Берём с вершины стека открывающую скобку.
            begin
              P := i - LenW + 1;
              Break;
            end;
          end;
          LenW := 0;        //Обнуление длины лексемы.
        end;
      end;
    if P > 0 then
      Break;
  end;
  CloseFile(f);
 
  if P > 0 then
    Memo1.Lines.Add('Ошибка! Нет соответствующей открывающей скобки. Строка: '
      + IntToStr(L) + ', Позиция: ' + IntToStr(P))
  else if PSt <> nil then
    Memo1.Lines.Add('Ошибка! Открывающих скобок больше, чем закрывающих.')
  else
    Memo1.Lines.Add('Скобки расставлены правильно!');
 
  StFree(PSt); //Освобождение памяти, занятой для стека.
  Memo1.Lines.Add('-----');
  Memo1.Lines.Add('Память, выделенная для стека - освобождена.');
end;
 
end.