|
10鱼币
本帖最后由 乐yi忘忧 于 2012-7-16 14:09 编辑
这是改代码运行前的样子
这是运行后的样子
我想知道为什么使用Low()和High()后返回值是0,-1……不理解,求指点
代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
edt1: TEdit;
btn1: TButton;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Num:array of string;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
k,i:Integer;
begin
edt1.Text:=' ';
for i:=0 to 5 do
begin
k:=Random(90);
edt1.Text:=IntToStr(k)+','+edt1.Text;
end;
edt1.Text:=copy(edt1.Text,0,Length(edt1.Text)-2);
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
lbl1.Caption:=IntToStr(Low(Num));
lbl2.Caption:=IntToStr(High(Num));
lbl3.Caption:=IntToStr(Length(Num));
end;
end.
|
最佳答案
查看完整内容
low() 返回在一定范围内的最低值, 或者序数最低值。
high() 则相反。
这里哥们的问题是,忘记给 Num 复制了。。。。。。
这是 Delphi 帮助文档中的栗子:
|