资源描述：
《delphi 数组的定义》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、在c语言中有：a[5]={1,2,3,4,5}；那么在delphi中，这个数组的赋值该怎么写？？问题补充：下面有人说的对，我就是想在声明数组的时候赋初值，至于初值的内容你们不需要知道，我想知道的只是申明的时候赋值的格式，而不是通过一个过程去实现vara:=array[1..5]ofinteger=(1,2,3,4,5)只有全局变量才能赋初始值，而且5个值都要赋满s:array[1..264]ofinteger；s:=((1),(2),(2),(1),(1),(2),(2),(1),(2),(1),(1),(1),(1),(2),(2),(1),(1),(2),(1),(1
2、),(2),(2),(1),(1),(2),(1),(1),(2),(2),(2),(1),(2),(1),(2),(1),(2),(2),(2),(2),(1),(2),(2),(1),(2),(1),(1),(2),(1),(2),(1),(1),(2),(1),(1),(1));s:=(122112221211111111111111222221212121212121212);都显示错误哦；C语言可以的哦静态数组的定义方法//1.标准方法：varMyArr:array[0..10]ofInteger;//定义静态数组------------------------
3、--------------------------------------------------------//2.可以使用非0下标：varMyArr:array[9..10]ofInteger;//不能提倡，这样不容易与系统函数沟通--------------------------------------------------------------------------------//3.根据预定义类型来声明数组：typeTMyArr=array[0..10]ofInteger;//先定义一个数组类型varMyArr:TMyArr;//再定义静态数组----
4、----------------------------------------------------------------------------//4.在非过程区可以直接赋值：varMyArr:array[0..2]ofInteger=(11,22,33);--------------------------------------------------------------------------------//5.多维数组：varMyArr:array[0..2,0..2]ofInteger;begin//使用MyArr[1,2]:=100;end;---
5、-----------------------------------------------------------------------------//6.根据子界定义数组：typeTRange=0..10;varMyArr:array[TRange]ofInteger;--------------------------------------------------------------------------------//7.根据枚举定义数组：typeTEnums=(Enum1,Enum2,Enum3);varMyArr:array[TEnums]ofst
6、ring;beginMyArr[Enum1]:='万一';ShowMessage(MyArr[Enum1]);//万一end;--------------------------------------------------------------------------------//8.根据其他类型定义数组：varMyArr:array[Byte]ofChar;beginMyArr[255]:=#65;ShowMessage(MyArr[255]);//Aend;//应尽量不使用内建类型，可以新建类型：typeTNewByte=Byte;varMyArr:array
7、[TNewByte]ofChar;beginMyArr[255]:=#65;ShowMessage(MyArr[255]);//Aend;//也可以使用类型别名：typeTChar=typeChar;varMyArr:array[TChar]ofByte;beginMyArr['C']:=255;ShowMessage(IntToStr(MyArr['C']));//255end;//同时定义类型:typeMyRec=records:string;r:Real;b:Byte;end;varArr1:array[0..100]o
