关于delphi的low()和High()问题

格式天下

这是改代码运行前的样子

这是运行后的样子




我想知道为什么使用Low()和High()后返回值是0，-1……不理解，求指点

代码如下：

1. 
   
2. 
   

复制代码

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 帮助文档中的栗子：

1. function Sum( var X: array of Double): Double;
   
2. 
   
3. var
   
4.   I: Word;
   
5.   S: Real;
   
6. begin
   
7.   S := 0; { Note that open array index range is always zero-based. }
   
8.   for I := 0 to High(X) do S := S + X[I];
   
9.   Sum := S;
   
10. end;
    
11. 
    
12. procedure TForm1.Button1Click(Sender: TObject);
    
13. 
    
14. var
    
15.   List1: array[0..3] of Double;
    
16.   List2: array[5..17] of Double;
    
17.   X: Word;
    
18.   S, TempStr: string;
    
19. begin
    
20.   for X := Low(List1) to High(List1) do
    
21.       List1[X] := X * 3.4;
    
22.   for X := Low(List2) to High(List2) do
    
23.       List2[X] := X * 0.0123;
    
24.   Str(Sum(List1):4:2, S);
    
25.   S := 'Sum of List1: ' + S + #13#10;
    
26.   S := S + 'Sum of List2: ';
    
27.   Str(Sum(List2):4:2, TempStr);
    
28. 
    
29.   S := S + TempStr;
    
30.   MessageDlg(S, mtInformation, [mbOk], 0);
    
31. 
    
32. end;

复制代码

格式天下

小甲鱼 发表于 2012-7-15 14:43

                               
登录/注册后可看大图

low() 返回在一定范围内的最低值, 或者序数最低值。
high() 则相反。
这里哥们的问题是，忘记给 Num 复制 ...

对哦，嘿嘿，谢谢鱼哥:lol