unit BMI;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
GroupBox1: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit3: TEdit;
Button2: TButton;
Edit4: TEdit;
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
name1: string;
bmi1:real;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var
flag:Integer; //判斷數值
begin
ShowMessage('歡迎使用BIM運算程式') ; //歡迎提示
flag:= 0 ; //判斷數值歸零
name1:=''; //姓名空白
while flag <> 6 do //若錯誤，回到InputBox重新輸入
begin
name1:=inputBox('請輸入使用者名稱','姓名輸入 ','請輸入姓名'); //輸入姓名
flag:=application.messageBox(PChar('您的姓名是:' name1),'姓名確認',4); //確定是否正確
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close()
end;
procedure TForm1.Button1Click(Sender: TObject);
var
atll:integer; //身高
weight:integer; //體重

begin
atll:=StrToint(edit1.text) ;
weight:=strtoint(edit2.text) ;

if (atll and weight=0) then //判斷是否有輸入
ShowMessage('請輸入數值') ; //輸入提示
if(atll and weight>0) then
bmi1:=weight/sqr(atll/100) ; //BMI公式
end;
end;
label6.caption:='姓名' name1;
label7.caption:=real(bmi1); // 顯示答案
Edit3.visible:=true ; //BMI答案顯示
Label6.visible:=true ; //其他訊息顯示
Label7.visible:=true ;
Label8.visible:=true ;
end;
end.

小弟我每次按開始他都會顯示
[Error] BMI.pas(85): '.' expected but ';' found
都錯在倒數第3個END

我已經重做了好幾次 可是都是這個問題....
方法也換很了很多 就是不行....

有大大可以幫忙一下嗎><?
謝謝!!

附加檔案：4b9a19db6b77a_BMI.rar

編輯記錄

   if  (atll and weight=0) then           //判斷是否有輸入
ShowMessage(' 請輸入數值') ; //輸入提示
if(atll and weight>0) then
bmi1:=weight/sqr(atll/100) ; //BMI公式
end;
end;

這段 不對稱的begin 與 end
還有showmessage之後 應該要跳離事件才對

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

編輯記錄