華閱文章網delphi的for語句
var
x,i :Integer;
ss :string;
begin
ss := '';
x := StrToInt(*);
for i := 1 to x do
begin
if ss = '' then
begin
if i=strtoint(*) then ss:='name'
else ss := '1';
end
else
begin
if i=strtoint(*) then ss := ss+',name'
else ss :=ss + ','+inttostr(i);
end;
end;
* :=ss;
end;
delphi循環語句
DELPHI循環語句
repeat語句：
repeat
語句1;
語句2;
……
語句N;
until 表達式
解釋：循環語句一到語句N，直到表達式的值為真是跳出循環
while語句：
while 表達式 do
語句1;
語句2;
……
語句N;
與上面的不同之處是先判斷表達式是否為真，為真執行循環，直到表達式為假時調處循環。
For語句：
For 循環變量：=初值to 終值 do
需要說明的7點
1.循環變量是用來控制循環次數的，在程序的開頭需要定義變量，起類型一般為整型
2.初值及終值可以是常數或表達式。在執行FOR語句中，初值及終值的表達式都只計算一次.
* 語句的執行過程是：開始時，令循環變量等于初值，如果在初值后面的保留字是to
，而且循環變量小于或等于終值，則執行do后面的語句一次，同時，循環變量的值加1直到大于終值.
*語句中的do 也可用
downto取代，此時，首先是循環變量的初值與終值比較，如果初值大于或者等于終值，則執行循環一次，同時循環變量減1，直到循環變量小于終值為止.
* 語句可以嵌套使用
6.使用for語句時，應注意不要在循環內改變循環變量的值，以免造成不確定性
7.當for語句循環結束后，一般不應直接使用循環變量的值。
delphi用for語句實現控件的操作
//先遍歷窗體所用控件， 然后再用with do來寫控件屬性
//顯示窗體中所有控件的函數
//TWinControl是組件， 保存在TStringList中
function GetCtrls(Control: TWinControl; List: TStringList): Boolean;
var
i: Integer;
obj: TWinControl;
begin
for i := 0 to *lCount-1 do
begin
obj := TWinControl(*ls[i]);
*(*);
//如果控件中包含其他控件， 則遞歸調用
if *lCount > 0 then
begin
GetCtrls(obj, List);
end;
end;
Result := True;
end;
//比如是button
//for i := 0 to 199 do
begin
with *lIndex[i] do
//這里改控件屬性就可以
end;
在delphi中用for語句輸出九九乘法表
現寫的， 你復制吧unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm11 = class(TForm) procedure FormCreate(Sender: TObject); private function CreateLabel(LabelText: string): TLabel； //創建顯示的Label public { Public declarations } end; var Form11: TForm11; implementation {$R *.dfm} function *Label(LabelText: string): TLabel; var I,J: Integer; Lbl: Tlabel; begin Lbl := *(Self); *n := LabelText; Result := Lbl; end; procedure *eate(Sender: TObject); var I,J: Integer; Lbl: Tlabel; begin Lbl := *(Self); for I := 1 to 9 do begin for J := 1 to I do begin Lbl := CreateLabel(IntToStr(J) + '*' +IntToStr(I) + '=' + IntToStr(I*J)); * := Self; * := I*20; * :=J*50; end; end; end; end。
.。
在delphi中用for語句輸出九九乘法表
現寫的， 你復制吧
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm11 = class(TForm)
procedure FormCreate(Sender: TObject);
private
function CreateLabel(LabelText: string): TLabel； //創建顯示的Label
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
{$R *.dfm}
function *Label(LabelText: string): TLabel;
var
I,J: Integer;
Lbl: Tlabel;
begin
Lbl := *(Self);
*n := LabelText;
Result := Lbl;
end;
procedure *eate(Sender: TObject);
var
I,J: Integer;
Lbl: Tlabel;
begin
Lbl := *(Self);
for I := 1 to 9 do
begin
for J := 1 to I do
begin
Lbl := CreateLabel(IntToStr(J) + '*' +IntToStr(I) + '=' + IntToStr(I*J));
* := Self;
* := I*20;
* :=J*50;
end;
end;
end;
end.
轉載請注明出處華閱文章網 » delphifor語句
