好友
阅读权限40
听众
最后登录1970-1-1
|
procedure TForm7.Button1Click(Sender: TObject);
var
num: Integer;
Arr: array of string;
begin
Arr[0] := 'A';
Arr[1] := 'B';
Arr[2] := 'C';
Arr[3] := 'D';
Arr[4] := 'E';
Arr[5] := 'F';
Arr[6] := 'G';
Arr[7] := 'H';
Arr[8] := 'I';
Arr[9] := 'J';
Arr[10] := 'K';
Arr[11] := 'L';
Arr[12] := 'M';
Arr[13] := 'N';
Arr[14] := 'O';
Arr[15] := 'P';
Arr[16] := 'Q';
Arr[17] := 'R';
Arr[18] := 'S';
Arr[19] := 'T';
Arr[20] := 'U';
Arr[21] := 'V';
Arr[22] := 'W';
Arr[23] := 'X';
Arr[24] := 'Y';
Arr[25] := 'Z';
ShowMessage(Arr[23]);
end;
procedure TForm7.Button2Click(Sender: TObject);
var
MyArray: array[0..4] of string;
begin
MyArray[0] := '1111';
MyArray[1] := '222';
MyArray[2] := '3333';
MyArray[3] := '4444';
MyArray[4] := '5555';
ShowMessage(MyArray[4]);
end;
|
|
发帖前要善用【论坛搜索】功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。 |
|
|
|
|