Вывод вещественного числа

unit MainUnit;
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ToolWin, ComCtrls, StdCtrls, ClipBrd, TreeUnit;
 
type
  // Тип для хранения 
  TNumber = record
    Ident: Word;
    Words: Word;
    Consts: Word;
    Opers: Word;
    Devs: Word;
    Errors: Word;
    Total: Word;
    Strings: Word;
  end;
  // Класс - главная форма приложения
  TMainForm = class(TForm)
    StatusBar: TStatusBar;
    MainMenu1: TMainMenu;
    miFile: TMenuItem;
    miExit: TMenuItem;
    miBreak1: TMenuItem;
    miSaveAs: TMenuItem;
    miSave: TMenuItem;
    miOpen: TMenuItem;
    miNew: TMenuItem;
    SaveTextDialog: TSaveDialog;
    OpenTextDialog: TOpenDialog;
    Edit: TMemo;
    miEdit: TMenuItem;
    miUndo: TMenuItem;
    miBreak2: TMenuItem;
    miCut: TMenuItem;
    miCopy: TMenuItem;
    miPaste: TMenuItem;
    miSelectAll: TMenuItem;
    miAnalize: TMenuItem;
    miRunAnalizier: TMenuItem;
    miSyntaxAnalize: TMenuItem;
    miBreak3: TMenuItem;
    miCodePrg: TMenuItem;
    miLexemsCodeTable: TMenuItem;
    miBreak4: TMenuItem;
    miReservedWords: TMenuItem;
    miIdentefier: TMenuItem;
    miConstant: TMenuItem;
    miDev: TMenuItem;
    miOperations: TMenuItem;
    miErrors: TMenuItem;
    procedure miExitClick(Sender: TObject);
    procedure miNewClick(Sender: TObject);
    procedure miSaveClick(Sender: TObject);
    procedure miOpenClick(Sender: TObject);
    procedure miSaveAsClick(Sender: TObject);
    procedure EditChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure EditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure miUndoClick(Sender: TObject);
    procedure miCutClick(Sender: TObject);
    procedure miCopyClick(Sender: TObject);
    procedure miPasteClick(Sender: TObject);
    procedure miSelectAllClick(Sender: TObject);
    procedure miEditClick(Sender: TObject);
    procedure miRunAnalizierClick(Sender: TObject);
    procedure miCodePrgClick(Sender: TObject);
    procedure miReservedWordsClick(Sender: TObject);
    procedure miIdentefierClick(Sender: TObject);
    procedure miConstantClick(Sender: TObject);
    procedure miDevClick(Sender: TObject);
    procedure miOperationsClick(Sender: TObject);
    procedure miErrorsClick(Sender: TObject);
    procedure miAnalizeClick(Sender: TObject);
    procedure miLexemsCodeTableClick(Sender: TObject);
  public
    // Имя редактируемого файла
    FFileName: String;
    // Указатель на вершину дерева кодировок
    FCodeTree: TSearchTree;
    // Число различных лексемм
    FLexems: TNumber;
    // Закодированная программа
    FCodePrg: String;
    // Метод - сохранение текста
    function SaveFile: Boolean;
    // Метод - определение позиции курсора в редакторе
    procedure EditTextPos;
    // Метод - лексический анализатор редактируемого файла
    procedure AnalizeCode;
  end;
 
var MainForm: TMainForm;
 
implementation
uses ViewUnit, CodeUnit;
{$R *.DFM}
 
const
  // Множество - символы-разделители
  Devs: set of char = [',', '(', ')', ':', ';'];
  // Множество - символы-операторы
  Oper: set of char = ['+', '-', '*', '/', '<', '>', '='];
  // Множество - символы языка
  Chars: set of char = ['A'..'Z', '0'..'9', '_'];
 
// Функция переводит строку в верхний регистр и удаляет из нее первые и
// последние пробелы
function PrepareLine(S: String): String;
begin
  // Удаляем пробелы в начале строки
  while S[1] = ' ' do Delete(S, 1, 1);
  // Удаляем пробелы в конце строки
  while S[Length(S)] = ' ' do Delete(S, Length(S), 1);
  S := AnsiUpperCase(S);
  PrepareLine := S;
end;
 
// Функция проверяет является ли строка S зарезервированным словом
function IsReservedWord(S: String): Boolean;
begin
  Result := (S = 'PROGRAM') or (S = 'VAR') or (S = 'INTEGER') or (S = 'REAL')
            or (S = 'BEGIN') or (S = 'IF') or (S = 'THEN') or (S = 'ELSE') or (S = 'FOR')
            or (S = 'TO') or (S = 'DO') or (S = 'END') or (S = 'WRITELN') 
or (S = 'READLN') or (S = 'WRITE') or (S = 'READ');
end;
 
// Функция проверяет является ли строка S идентификатором
function IsIdentifier(S: String): Boolean;
var I: Byte;
  Res: Boolean;
begin
  Res := S[1] in ['A'..'Z'];
  for I := 1 to Length(S) do
    if not (S[I] in ['0'..'9', 'A'..'Z']) then Res := False;
  if Res then Res := (S <> 'AND') and (S <> 'OR') and (S <> 'NOT');
  IsIdentifier := Res
end;
 
// Функция проверяет является ли строка S константой
function IsConstant(S: String): Boolean;
var    I: Byte;
  Res, F: Boolean;
begin
  Res := True;
  F := False;
  for I := 1 to Length(S) do
    if not (S[I] in ['.', '0'..'9','A'..'F']) then begin
      if (S[I] = '.') and (not F) then F := True
      else Res := False;
    end;
  IsConstant := Res
end;
 
// Функция проверяет является ли строка S операцией
function IsOperation(S: String): Boolean;
begin
  Result := (S = '+') or (S = '-') or (S = '*') or (S = '/')
            or (S = '<=') or (S = '>=') or (S = '=') or (S = '<') or (S = '>')
            or (S = ':=') or (S = 'AND') or (S = 'OR') or (S = 'NOT');
end;
 
// Метод - анализатор редактируемого файла
procedure TMainForm.AnalizeCode;
var I, J: Word;      // Счетчики
   CurrLine: String;  // Текущая строка текста
   CurrChar: Char;    // Текущий символ строки
   ErrorLex: Boolean; // Ошибочная лексемма
   LocLexem: PItem;   // Отыскиваемая лексемма
  CurrLexem: TLexem;  // Текущая лексемма
begin
  FCodeTree := TSearchTree.Create;
  FCodePrg := '';
  // Обнуляем информацию о текущей лексеме
  with CurrLexem do begin
    Name := '';
    Line := 0;
    Code := lcUnknown;
    CodeName := '';
  end;
  // Обнуляем информацию о лексеммах
  with FLexems do begin
    Ident := 0;
    Words := 0;
    Consts := 0;
    Opers := 0;
    Devs := 0;
    Errors := 0;
    Total := 0;
    Strings := 0;
  end;
  // Анализируем редактируемый текст построчно
  for I := 0 to Pred(Edit.Lines.Count) do begin
    CurrLine := PrepareLine(Edit.Lines[I]);
    J := 1;
    // Анализируем текущую строку посимвольно
    while J <= Length(CurrLine) do begin
      CurrChar := CurrLine[J];
      // Встретилась строка
      if CurrChar = '''' then begin
        Inc(J);
        ErrorLex := False;
        repeat
          if CurrLine[J] = '''' then begin
            // Ошибка
            if J = Length(CurrLine) then begin
              ErrorLex := True;
              Break;
            end;
            // Двойной апостроф
            if CurrLine[Succ(J)] = '''' then begin
              Inc(J, 2);
              Continue;
            end;
            // Закрывающий апостроф
            Inc(J);
            Break;
          end;
          Inc(J);
        until False;
        // Анализируем результат
        if ErrorLex then begin
          // Ошибочная лексемма
          CurrLexem.Code := lcError;
          // Увеличиваем счетчик
          Inc(FLexems.Errors);
          // Формируем текст закодированной программы
          CurrLexem.CodeName := 'E' + IntToStr(FLexems.Errors);
          // Добавляем лексему в дерево
          LocLexem := FCodeTree.Search(CurrLexem);
          // Добавляем в закодироованную программу
          FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
        end
        else begin
          CurrLexem.Code := lcString;
          // Увеличиваем счетчик
          Inc(FLexems.Strings);
          // Формируем текст закодированной программы
          CurrLexem.CodeName := 'S' + IntToStr(FLexems.Strings);
          // Добавляем лексему в дерево
          LocLexem := FCodeTree.Search(CurrLexem);
          // Добавляем в закодироованную программу
          FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
        end;
        // Продолжить анализ последующего символа
        Continue;
      end;
      // Встретился символ-разделитель, операция или конец строки
      if (CurrChar = ' ') or (J = Length(CurrLine)) or (CurrChar in Oper) or
      (CurrChar in Devs) then begin
        if (J = Length(CurrLine)) and (CurrChar <> ' ') and (not (CurrChar in Oper))
        and (not (CurrChar in Devs)) then CurrLexem.Name := CurrLexem.Name + CurrChar;
        if CurrLexem.Name <> '' then begin
          // Неправильная лексема
          ErrorLex := True;
          // Лексема раньше не встречалась
          LocLexem := FCodeTree.Locate(CurrLexem);
          if LocLexem = nil then begin
            CurrLexem.Line := Succ(I);
            // Зарезервированное слово
            if IsReservedWord(CurrLexem.Name) and ErrorLex then begin
              CurrLexem.Code := lcReservedWord;
              // Увеличиваем счетчик
              Inc(FLexems.Words);
              // Формируем текст закодированной программы
              CurrLexem.CodeName := 'W' + IntToStr(FLexems.Words);
              // Добавляем лексему в дерево
              LocLexem := FCodeTree.Search(CurrLexem);
              // Добавляем в закодироованную программу
              FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
              // Продолжаем анализ
              ErrorLex := False;
            end;
            // Идентификатор
            if IsIdentifier(CurrLexem.Name) and ErrorLex then begin
              CurrLexem.Code := lcIdentefier;
              // Увеличиваем счетчик
              Inc(FLexems.Ident);
              // Формируем текст закодированной программы
              CurrLexem.CodeName := 'I' + IntToStr(FLexems.Ident);
              // Добавляем лексему в дерево
              LocLexem := FCodeTree.Search(CurrLexem);
              // Добавляем в закодироованную программу
              FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
              // Продолжаем анализ
              ErrorLex := False;
            end;
            // Метка
            if IsConstant(CurrLexem.Name) and ErrorLex and (CurrLine[J] = ':') then begin
              CurrLexem.Code := lcLabel;
              // Увеличиваем счетчик
              Inc(FLexems.Consts);
              // Формируем текст закодированной программы
              CurrLexem.CodeName := 'L' + IntToStr(FLexems.Consts);
              // Добавляем лексему в дерево
              LocLexem := FCodeTree.Search(CurrLexem);
              // Добавляем в закодироованную программу
              FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
              // Продолжаем анализ
              ErrorLex := False
            end;
            // Константа
            if IsConstant(CurrLexem.Name) and ErrorLex then begin
              CurrLexem.Code := lcConstant;
              // Увеличиваем счетчик
              Inc(FLexems.Consts);
              // Формируем текст закодированной программы
              CurrLexem.CodeName := 'C' + IntToStr(FLexems.Consts);
              // Добавляем лексему в дерево
              LocLexem := FCodeTree.Search(CurrLexem);
              // Добавляем в закодироованную программу
              FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
              // Продолжаем анализ
              ErrorLex := False;
            end;
            // Встретили операцию
            if IsOperation(CurrLexem.Name) and ErrorLex then begin
              CurrLexem.Code := lcOperation;
              // Увеличиваем счетчик
              Inc(FLexems.Opers);
              // Формируем текст закодированной программы
              CurrLexem.CodeName := 'O' + IntToStr(FLexems.Opers);
              // Добавляем лексему в дерево
              LocLexem := FCodeTree.Search(CurrLexem);
              // Добавляем в закодироованную программу
              FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
              // Продолжаем анализ
              ErrorLex := False;
            end;
            // Ошибочная лексемма
            if ErrorLex then begin
              CurrLexem.Code := lcError;
              // Увеличиваем счетчик
              Inc(FLexems.Errors);
              // Формируем текст закодированной программы
              CurrLexem.CodeName := 'E' + IntToStr(FLexems.Errors);
              // Добавляем лексему в дерево
              LocLexem := FCodeTree.Search(CurrLexem);
              // Добавляем в закодироованную программу
              FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
            end;
          end
          // Лексема уже есть в дереве
          else FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
        end;
        // Определяем разделитель (Если есть)
        if (CurrChar in Oper) or (CurrChar in Devs) then begin
          if J < Pred(Length(CurrLine)) then begin
            if IsOperation(CurrChar + CurrLine[Succ(J)]) then begin
              CurrLexem.Name := CurrChar + CurrLine[Succ(J)];
              Inc(J);
            end
            else CurrLexem.Name := CurrChar;
          end
          else CurrLexem.Name := CurrChar;
          LocLexem := FCodeTree.Locate(CurrLexem);
          // Встретили операцию
          if (IsOperation(CurrLexem.Name)) and (LocLexem = nil) then begin
            CurrLexem.Code := lcOperation;
            // Увеличиваем счетчик
            Inc(FLexems.Opers);
            // Формируем текст закодированной программы
            CurrLexem.CodeName := 'O' + IntToStr(FLexems.Opers);
            // Добавляем лексему в дерево
            LocLexem := FCodeTree.Search(CurrLexem);
          end;
          // Встретили разделитель
          if (CurrChar in Devs) and (LocLexem = nil) then begin
            CurrLexem.Code := lcDev;
            // Увеличиваем счетчик
            Inc(FLexems.Devs);
            // Формируем текст закодированной программы
            CurrLexem.CodeName := 'R' + IntToStr(FLexems.Devs);
            // Добавляем лексему в дерево
            LocLexem := FCodeTree.Search(CurrLexem);
          end;
          // Добавляем в закодироованную программу
          if (LocLexem.Value.Name = ':') and (CurrLine[Succ(J)] = '=') then
          else FCodePrg := FCodePrg + LocLexem.Value.CodeName + ' ';
        end;
        // Обнуляем информацию о текущей лексемме
        with CurrLexem do begin
          Name := '';
          Line := 0;
          Code := lcUnknown;
          CodeName := '';
        end;
      end
      else if CurrChar <> ' ' then CurrLexem.Name := CurrLexem.Name + CurrChar;
      Inc(J);
    end;
    FCodePrg := FCodePrg + #13#10
  end
end;
 
// Метод - определение позиции курсора в редакторе
procedure TMainForm.EditTextPos;
var LineNum, CharNum: LongInt;
begin
  LineNum := Edit.Perform(EM_LINEFROMCHAR, Edit.SelStart, 0);
  CharNum := Edit.Perform(EM_LINEINDEX, LineNum, 0);
  MainForm.StatusBar.Panels[0].Text := IntToStr(Succ(LineNum)) + ' : ' + IntToStr(Succ((Edit.SelStart - CharNum)));
end;
 
// Метод - сохранение текста
function TMainForm.SaveFile: Boolean;
begin
  SaveFile := True;
  if FFileName = '' then begin
    // Открываем диалог
    if SaveTextDialog.Execute then begin
      FFileName := SaveTextDialog.FileName;
      // Формируем имя файла
      if ExtractFilePath(FFileName) = '' then
        if FFileName[Length(FFileName)] = '.' then FFileName := FFileName + '.' + SaveTextDialog.DefaultExt
        else FFileName := FFileName + SaveTextDialog.DefaultExt;
    end
    else SaveFile := False;
  end;
  if FFileName <> '' then Edit.Lines.SaveToFile(FFileName);
end;
 
procedure TMainForm.miExitClick(Sender: TObject);
begin
  Close
end;
 
procedure TMainForm.miNewClick(Sender: TObject);
var Ans: Integer;
begin
  if miSave.Enabled then begin
    Ans := MessageBox(Handle, 'Файл не сохранен! Сохранить его сейчас?',
           'Предупреждение', MB_YESNOCANCEL or MB_DEFBUTTON3 or MB_ICONQUESTION);
    if Ans = mrCancel then Exit;
    if Ans = mrYes then
      if not SaveFile then Exit
  end;
  FFileName := '';
  Edit.Lines.Clear;
  miSave.Enabled := False;
  miSaveAs.Enabled := True;
  EditTextPos;
  Edit.SetFocus
end;
 
procedure TMainForm.miSaveClick(Sender: TObject);
begin
  SaveFile;
end;
 
procedure TMainForm.miOpenClick(Sender: TObject);
var Ans: Integer;
begin
  if miSave.Enabled then begin
    Ans := MessageBox(Handle, 'Файл не сохранен! Сохранить его сейчас?',
           'Предупреждение', MB_YESNOCANCEL or MB_DEFBUTTON3 or MB_ICONQUESTION);
    if Ans = mrCancel then Exit;
    if Ans = mrYes then
      if not SaveFile then Exit
  end;
  if OpenTextDialog.Execute then begin
    FFileName := OpenTextDialog.FileName;
    Edit.Lines.LoadFromFile(FFileName);
    miSave.Enabled := False;
    miSaveAs.Enabled := True;
    EditTextPos
  end;
  Edit.SetFocus
end;
 
procedure TMainForm.miSaveAsClick(Sender: TObject);
var FN: String;
begin
  if not SaveFile then FFileName := FN
end;
 
procedure TMainForm.EditChange(Sender: TObject);
begin
  if not miSave.Enabled then miSave.Enabled := True;
  if not miUndo.Enabled then miUndo.Enabled := True;
end;
 
procedure TMainForm.FormActivate(Sender: TObject);
begin
  miNewClick(Sender)
end;
 
procedure TMainForm.EditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  EditTextPos
end;
 
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var Ans: Integer;
begin
  if miSave.Enabled then begin
    Ans := MessageBox(Handle, 'Файл не сохранен! Сохранить его сейчас?',
           'Предупреждение', MB_YESNOCANCEL or MB_DEFBUTTON3 or MB_ICONQUESTION);
    if Ans = mrCancel then Action := caNone;
    if Ans = mrYes then
      if not SaveFile then Action := caNone
  end
end;
 
procedure TMainForm.miUndoClick(Sender: TObject);
begin
  with Edit do if HandleAllocated then SendMessage(Handle, EM_UNDO, 0, 0)
end;
 
procedure TMainForm.miCutClick(Sender: TObject);
begin
  Edit.CutToClipboard
end;
 
procedure TMainForm.miCopyClick(Sender: TObject);
begin
  Edit.CopyToClipboard
end;
 
procedure TMainForm.miPasteClick(Sender: TObject);
begin
  Edit.PasteFromClipboard
end;
 
procedure TMainForm.miSelectAllClick(Sender: TObject);
begin
  Edit.SelectAll
end;
 
procedure TMainForm.miEditClick(Sender: TObject);
var HasSeleted: Boolean;
begin
  HasSeleted := Edit.SelLength <> 0;
  miPaste.Enabled := Clipboard.HasFormat(CF_TEXT);
  miCut.Enabled := HasSeleted;
  miCopy.Enabled := HasSeleted;
end;
 
procedure TMainForm.miRunAnalizierClick(Sender: TObject);
begin
  AnalizeCode
end;
 
procedure TMainForm.miCodePrgClick(Sender: TObject);
begin
  CodeForm.Memo.Lines.SetText(PChar(FCodePrg));
  CodeForm.ShowModal;
end;
 
procedure TMainForm.miReservedWordsClick(Sender: TObject);
var K: Integer;
    S: String;
begin
  with ViewForm do begin
    Caption := 'Зарезервированные слова';
    sgridView.RowCount := Succ(FLexems.Words);
    for K := 1 to FLexems.Words do begin
      S := 'W' + IntToStr(K);
      sgridView.Cells[0, K] := IntToStr(K);
      sgridView.Cells[1, K] := S;
      sgridView.Cells[2, K] := FCodeTree.Info(S);
    end;
  end;
  ViewForm.ShowModal;
end;
 
procedure TMainForm.miIdentefierClick(Sender: TObject);
var K: Integer;
    S: String;
begin
  with ViewForm do begin
    Caption := 'Идентификаторы';
    sgridView.RowCount := Succ(FLexems.Ident);
    for K := 1 to FLexems.Ident do begin
      S := 'I' + IntToStr(K);
      sgridView.Cells[0, K] := IntToStr(K);
      sgridView.Cells[1, K] := S;
      sgridView.Cells[2, K] := FCodeTree.Info(S)
    end
  end;
  ViewForm.ShowModal
end;
 
procedure TMainForm.miConstantClick(Sender: TObject);
var K: Integer;
    S: String;
begin
  with ViewForm do begin
    Caption := 'Константы';
    sgridView.RowCount := Succ(FLexems.Consts);
    for K := 1 to FLexems.Consts do begin
      S := 'C' + IntToStr(K);
      sgridView.Cells[0, K] := IntToStr(K);
      sgridView.Cells[1, K] := S;
      sgridView.Cells[2, K] := FCodeTree.Info(S)
    end
  end;
  ViewForm.ShowModal
end;
 
procedure TMainForm.miDevClick(Sender: TObject);
var K: Integer;
    S: String;
begin
  with ViewForm do begin
    Caption := 'Разделители';
    sgridView.RowCount := Succ(FLexems.Devs);
    for K := 1 to FLexems.Devs do begin
      S := 'R' + IntToStr(K);
      sgridView.Cells[0, K] := IntToStr(K);
      sgridView.Cells[1, K] := S;
      sgridView.Cells[2, K] := FCodeTree.Info(S)
    end
  end;
  ViewForm.ShowModal
end;
 
procedure TMainForm.miOperationsClick(Sender: TObject);
var K: Integer;
    S: String;
begin
  with ViewForm do begin
    Caption := 'Операции';
    sgridView.RowCount := Succ(FLexems.Opers);
    for K := 1 to FLexems.Opers do begin
      S := 'O' + IntToStr(K);
      sgridView.Cells[0, K] := IntToStr(K);
      sgridView.Cells[1, K] := S;
      sgridView.Cells[2, K] := FCodeTree.Info(S)
    end
  end;
  ViewForm.ShowModal
end;
 
procedure TMainForm.miErrorsClick(Sender: TObject);
var K: Integer;
    S: String;
begin
  with ViewForm do begin
    Caption := 'Ошибочные лексеммы';
    sgridView.RowCount := 2;
    for K := 1 to FLexems.Errors do begin
      S := 'E' + IntToStr(K);
      sgridView.Cells[0, K] := IntToStr(K);
      sgridView.Cells[1, K] := S;
      sgridView.Cells[2, K] := FCodeTree.Info(S);
    end;
  end;
  ViewForm.ShowModal
end;
 
procedure TMainForm.miAnalizeClick(Sender: TObject);
begin
  miCodePrg.Enabled := FCodePrg <> '';
  miReservedWords.Enabled := FCodePrg <> '';
  miIdentefier.Enabled := FCodePrg <> '';
  miConstant.Enabled := FCodePrg <> '';
  miDev.Enabled := FCodePrg <> '';
  miOperations.Enabled := FCodePrg <> '';
  miErrors.Enabled := FCodePrg <> '';
  miLexemsCodeTable.Enabled := FCodePrg <> '';
  miSyntaxAnalize.Enabled := Edit.Lines.Count > 0;
  miRunAnalizier.Enabled := Edit.Lines.Count > 0;
end;
 
procedure TMainForm.miLexemsCodeTableClick(Sender: TObject);
var S: String;
 I, N: Integer;
begin
  with ViewForm do begin
    Caption := 'Таблица кодов лексемм';
    N := 1;
    S := '';
    for I := 1 to Length(FCodePrg) do begin
      if FCodePrg[I] = ' ' then begin
        sgridView.RowCount := Succ(N);
        sgridView.Cells[0, N] := IntToStr(N);
        sgridView.Cells[1, N] := S;
        sgridView.Cells[2, N] := FCodeTree.Info(S);
        Inc(N);
        S := '';
      end
      else if not (FCodePrg[I] in [#13, #10]) then S := S + FCodePrg[I];
    end;
    ShowModal
  end
end;
 
end.