how to delete begin end???

xiaoming

i write the fllowing script:

---

var
i:integer;

function getname:string
begin
result:='test';
end;

showmessage(getname);

procedure init;
begin
i:=100;
end;
init;
showmessage(vartostr(i));

---

you know i don't write "begin end." section. beacuse i think script could run anywhere.

who could tell how to modify PASCAL_GRAMMAR to implementate it??

AlexTZ

It's hard enough even for me.