delphi repeat until

来源：百度知道 编辑：UC知道 时间：2024/06/16 20:58:36
大家分析下什么时候循环结束啊！！！！！
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Image1: TImage;
Label3: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label2: TLabel;
Button1: TButton;
Edit5: TEdit;
Edit6: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit7: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
k,ad,g1,g2,g3,g4,a1,a2,b1,b2,c1,c2,d1,d2,n1,g11,g33,g44,g55,ab,bc,cd,g5:real;
const rr=3.1415926/180;

implementation

{$R *.dfm}

procedure TForm1.Button1

把变量声明放在过程的内部，放在外部的会成为单元级变量，在过程重新开始后并不会被初始化。

procedure TForm1.Button1Click(Sender: TObject);
var
k,ad,g1,g2,g3,g4,a1,a2,b1,b2,c1,c2,d1,d2,n1,g11,g33,g44,g55,ab,bc,cd,g5:real;
begin
...

命名很混乱 不过“运行时，出来一个结果，在点下远行，又又一个结果”最大的可能就是变量没有初始化，看下1楼的答案，确定那些变量是单元级变量，哪些不是