Delphi语法中的循环WHILE..DO和REPEAT..UNTIL
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
odds
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var odds,sum:integer;
begin
sum:=0;
odds:=1;
while odds<=  strtoint(Edit1.Text) do
begin
sum:=sum+odds;
odds:=odds+2;
end;
Showmessage(inttostr(sum));
end;
procedure TForm1.Button2Click(Sender: TObject);
var odds,sum:integer;
begin
sum:=0;
odds:=1;
Repeat
sum:=sum+odds;
odds:=odds+2;
until odds > strtoint(Edit1.Text);
Showmessage(inttostr(sum));
end;
end.
while..do是条件先⾏，repeat..until是条件后⾏，所以repeat..until的语法段⾥⾯⾄少要运⾏⼀次，Delphi给⼈的感觉学习起来没什么难度，主要还是有别的语⾔的基础吧，也主要是⾃⼰做多了⾯向对象的开发，总觉得Delphi7的IDE差微软的DOTNET级别的IDE远多了，⽤起来不是很顺⼿。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。