BEGIN expected but END found几个错误

Question

procedure TForm1.Button1Click(Sender: TObject);    function GetSn(Email:string):string;
  var
     S:string;
     MDCode: MD5Digest;
     i, p:integer;
  begin
     Result:='';
     S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32';
     MDCode:=MD5String(EMail);  
     for i:= 0 to 15 do
     begin
         p:=MDCode[i] mod $23 ; 
         Result:=Result+S[p+1];  
     end;
  end;
end.===================错误
Build
  [Error] Unit1.pas(45): BEGIN expected but END found
  [Error] Unit1.pas(47): Declaration expected but end of file found
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 1

procedure TForm1.Button1Click(Sender: TObject);     function GetSn(Email:string):string; 
  var 
    S:string; 
    MDCode: MD5Digest; 
    i, p:integer; 
  begin 
    Result:=''; 
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32'; 
    MDCode:=MD5String(EMail);  
    for i:= 0 to 15 do 
    begin 
        p:=MDCode[i] mod $23 ; 
        Result:=Result+S[p+1];  
    end; 
  end; 
  
  begin
  end;
end. 

Answer 2

procedure TForm1.Button1Click(Sender: TObject);     function GetSn(Email:string):string; 
  var 
    S:string; 
    MDCode: MD5Digest; 
    i, p:integer; 
  begin 
    Result:=''; 
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32'; 
    MDCode:=MD5String(EMail);  
    for i:= 0 to 15 do 
    begin 
        p:=MDCode[i] mod $23 ; 
        Result:=Result+S[p+1];  
    end; 
  end; 
begin//少了一对这个~~
end;
end. 

Answer 3

procedure TForm1.Button1Click(Sender: TObject);    function GetSn(Email:string):string;
  var
    S:string;
    MDCode: MD5Digest;
    i, p:integer;
  begin
    Result:='';
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32';
    MDCode:=MD5String(EMail); 
    for i:= 0 to 15 do
    begin
        p:=MDCode[i] mod $23 ;
        Result:=Result+S[p+1]; 
    end;
  end;
begin
  GetSn('...');
end;
end. 

Answer 4

begin//少了一对这个~~ 
end; 
加上这个，点击按钮Button1没反应

Answer 5

procedure TForm1.Button1Click(Sender: TObject);    function GetSn(Email:string):string;
  var
    S:string;
    MDCode: MD5Digest;
    i, p:integer;
  begin
    Result:='';
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32';
    MDCode:=MD5String(EMail);
    for i:= 0 to 15 do
    begin
        p:=MDCode[i] mod $23 ;
        Result:=Result+S[p+1];
    end;
  end;
begin
  GetSn('...');//注意这里执行你的函数
end;
end. 

Answer 6

//这个是你编写的自定义函数GetSn
function GetSn(Email:string):string;
var
    S:string;
    MDCode: MD5Digest;
    i, p:integer;
  begin
    Result:='';
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32';
    MDCode:=MD5String(EMail);
    for i:= 0 to 15 do
    begin
        p:=MDCode[i] mod $23 ;
        Result:=Result+S[p+1];
    end;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(GetSn('email'));//注意这里调用你的GetSn函数
end; 

Answer 7

你看一下，Email都不参加运算

Answer 8

procedure TForm1.Button1Click(Sender: TObject);     function GetSn(Email:string):string; 
  var 
    S:string; 
    MDCode: MD5Digest; 
    i, p:integer; 
  begin 
    Result:=''; 
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32'; 
    MDCode:=MD5String(EMail); 
    for i:= 0 to 15 do 
    begin 
        p:=MDCode[i] mod $23 ; 
        Result:=Result+S[p+1]; 
    end; 
  end; 
begin 
  GetSn(edit1.text);//假设email的edit为edit1
end; 
end. 

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,md5;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
function GetSn(Email:string):string;
var 
    S:string; 
    MDCode: MD5Digest; 
    i, p:integer; 
  begin 
    Result:=''; 
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32'; 
    MDCode:=MD5String(EMail); 
    for i:= 0 to 15 do 
    begin 
        p:=MDCode[i] mod $23 ; 
        Result:=Result+S[p+1]; 
    end; 
end; 
begin
  Showmessage(GetSn('email'));//注意这里调用你的GetSn函数 
end;
end.

Answer 10

procedure TForm1.Button1Click(Sender: TObject); 
    function GetSn(Email:string):string; 
  var 
    S:string; 
    MDCode: MD5Digest; 
    i, p:integer; 
  begin 
    Result:=''; 
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32'; 
    MDCode:=MD5String(EMail); 
    for i:= 0 to 15 do 
    begin 
        p:=MDCode[i] mod $23 ; 
        Result:=Result+S[p+1]; 
    end; 
  end; 
begin 
  GetSn(edit1.text);//假设email的edit为edit1 
end; 
end. 

Answer 11

procedure TForm1.Button1Click(Sender: TObject);     function GetSn(Email:string):string; 
  var 
    S:string; 
    MDCode: MD5Digest; 
    i, p:integer; 
  begin 
    Result:=''; 
    S:='PX4VUTE8Q1YONML6GIHJZFSDCBA9R7K5W32'; 
    MDCode:=MD5String(EMail); 
    for i:= 0 to 15 do 
    begin 
        p:=MDCode[i] mod $23 ; 
        Result:=Result+S[p+1]; 
    end; 
  end; 
begin 
  edit2.text:=GetSn(edit1.text);//假设email的edit为edit1 ,注册码的edit为edit2
end; 
end.