Создание компилятора

[deathz0r]

Нужно создать компилятор языка pascal. Все символы, используемые в примере, нужно разделить на идентификаторы, разделители и литералы. Попробовал написать подпрограмму, которая будет находить пробелы в примере и удалять их, а то, что находилось между пробелами, копировать в массив. Почему-то возникает ошибка, подскажите пожалуйста.

Вот пример задания:
var 
a,b:integer;
c:integer;
begin
a:=3;
b:=a; 
if (a>b) and (b>0) then
c:=a
else begin
c:=b;
b:=1;
end;
end.

пример моего кода:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    StringGrid1: TStringGrid;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  N=1;

var
  Form1: TForm1;
  k,poz:integer;
  copym,lexems:array[1..100]of string;
  stroka,temp:array[0..12]of string;
  dlina:array[0..12]of integer;

implementation

{$R *.dfm}

procedure probel;
var
Memo1: TMemo;
StringGrid1: TStringGrid;
i:integer;
begin
k:=0;
for i:=0 to 12 do
 begin
 stroka[i]:=Memo1.Lines[i];
 dlina[i]:=length(stroka[i]);
 stringgrid1.cells[0,0]:=inttostr(dlina[i]);
 poz:=pos(' ',stroka[i]);
 if poz>0 then
  begin
  inc(k);
  copym[k]:=copy(stroka[i],0,poz);
  delete(stroka[i],0,poz+1);
  lexems[k]:='_';
  stringgrid1.cells[0,1]:=copym[k];
  stringgrid1.cells[0,2]:=lexems[k];
  end;
 end;
end;



procedure TForm1.Button2Click(Sender: TObject);
var
f:textfile;
sp:string;
i:integer;
begin
Memo1.Lines.clear;
OpenDialog1.Execute;
assignfile(f,OpenDialog1.FileName);
reset(f);
for i:=1 to 13 do
 begin
  readln(f,sp);
  Memo1.Lines.Add(sp);
 end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
probel;
end;

end.

[Dush]

в какой момент возникает ошибка?
вашу процедуру наверно лучше изменить так:
внести ее в private-секцию формы, добавить TForm1. перед именем процедуры, удалить из var определение memo и stringgrid-a

ну а открытие файла я бы сделал так:

  if OpenDialog1.Execute then
  begin
    Memo1.Lines.clear;
    memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    stringgrid1.RowCount:=memo1.Lines.Count;
  end;

[deathz0r]

компилируется нормально, но при нажатии на Button1 возникает ошибка в строке: stroka[i]:=Memo1.Lines[i]

[Dush]

если воспользуетесь моим советом - ошибка пропадет (проверил на себе) а дальше разбор строк. пробелы у вас только в двух строках поэтому не ориентируйтесь только на них

[deathz0r]

спасибо за помощь, далее планируется ввести в поиск другие разделители.

[deathz0r]

так как в некоторых строчках пробелы встречаются не 1 раз, попробовал написать следующий код, но после компиляции выделяет ошибку, подскажите, что не так. Заранее спасибо.

procedure TForm1.probel;
var
i:integer;
begin
k:=0;
for i:=0 to 12 do
 begin
 stroka[i]:=Memo1.Lines[i];
 dlina[i]:=length(stroka[i]);
 stringgrid1.cells[0,i]:=inttostr(dlina[i]);
 poz:=pos(' ',stroka[i]);
 if poz>0 then
  repeat
  inc(k);
  copym[k]:=copy(stroka[i],1,poz);
  delete(stroka[i],1,poz);
  stringgrid1.cells[2,i]:=stroka[i];
  stringgrid1.cells[1,k-1]:=copym[k];
  stringgrid1.Cells[1,k]:='_';
  until poz<0;

 end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Memo1.Lines.clear;
    memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    stringgrid1.RowCount:=memo1.Lines.Count;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
probel;
end;

end.

[deathz0r]

up topic^ .