帮小弟我看看这个程序代码哪里有有关问题
帮我看看这个程序代码哪里有问题
编译不通过，不知道哪里不对
------解决思路----------------------
function 方法要写在begin上面，即：
procedure TForm1.Button1Click(Sender: TObject);
function GetChi:Integer; //方法写在此处
begin
result := 1;
end;
begin
end;
------解决思路----------------------
你需要把整个function方法写在begin上面，而不是只把function这一行写上去
------解决思路----------------------
请贴出原代码，不要用图。
------解决思路----------------------
基本的语法问题嘛， 有begin 后面就要有对应的end
------解决思路----------------------
最后面2个end；中间要加上 begin，你少了一个BEGIN
------解决思路----------------------
删掉 第3行和最后1行
编译不通过，不知道哪里不对
------解决思路----------------------
function 方法要写在begin上面，即：
procedure TForm1.Button1Click(Sender: TObject);
function GetChi:Integer; //方法写在此处
begin
result := 1;
end;
begin
end;
------解决思路----------------------
你需要把整个function方法写在begin上面，而不是只把function这一行写上去
------解决思路----------------------
请贴出原代码，不要用图。
------解决思路----------------------
基本的语法问题嘛， 有begin 后面就要有对应的end
------解决思路----------------------
最后面2个end；中间要加上 begin，你少了一个BEGIN
------解决思路----------------------
删掉 第3行和最后1行