delphi数组类型
在编程中，数组是一种有序的数据结构，由相同类型的数据元素组成，每个元素的位置通过索引进行标识。Delphi语言提供了丰富的数组类型支持。让我们来看一下如何定义和使用数组。首先，单维度数组的声明如下：
var Check: array[1..10] of Double;
这表示Check是一个Double类型的数组，拥有10个元素，索引从1到10。每个元素的位置可以通过Check[1]到Check[10]来访问。例如，Check[1]代表数组的第一个Double型值。
另一种方式是将数组定义为类型：
type TCheck = array[1..10] of Double;
然后声明变量时，可以写成：
var Check: TCheck;
要给数组赋值，可以使用for循环，如下所示：
for J := 1 to 10 do
Check[J] := 0.0;
除了单维度数组，Delphi也支持多维度数组。例如，二维数组TTable代表一个20行20列的Double型矩阵：
type TTable = array[1..20, 1..20] of Double;
声明变量table1:
var table1: TTable;
初始化多维度数组，可以使用嵌套for循环：
var Col, Row: Integer;
...
for Col := 1 to 20 do
for Row := 1 to 20 do
table1[Col, Row] := 0.0;
通过这些示例，你可以理解Delphi中数组类型的使用和初始化方法。数组是存储和操作数据的强大工具，根据需要灵活调整维度和元素数量。
扩展资料
Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。
绛旓細鍦 delphi 涓紝string[] 杩欑瀹氫箟锛岃绉颁负 Short String 鏁版嵁绫诲瀷銆係hort String 鏁版嵁绫诲瀷鍏锋湁浠ヤ笅鐗圭偣锛1銆佹渶澶氬彧鑳藉绾 255 涓瓧鑺傜殑瀛楃銆傚綋澹版槑涓涓 ShortString 绫诲瀷鐨勫彉閲忔椂锛Delphi 浼氳嚜鍔ㄧ敵璇 256 涓瓧鑺傜殑鍐呭瓨绌洪棿缁欒鍙橀噺锛屽叾涓涓涓瓧鑺傜敤鏉ュ瓨鏀惧瓧绗︿覆鐨勯暱搴︼紝鍚庨潰鐨 255 涓瓧鑺傜敤鏉ュ瓨鏀...
绛旓細SetLength(myarr,1);銆//璁剧疆鏁扮粍闀垮害涓1锛屽疄闄呬笂鍙兘瀛樹竴涓 myarr:=(htpr1 as iMO_Manager).GetNowRCDataByMONumber('SFD59818-A');s:=myarr[0].PART_NO;//杩欓噷涔熷彧鍙栦簡[0],灏卞彧鏄涓涓 ShowMessage(s);//杩欓噷鑲畾姘歌繙閮藉彧鑳芥槸鍓嶉潰鍙栫殑闀垮害涓1鐨勬暟缁勭殑绗竴涓 涓嶇煡閬撲綘GetNow...
绛旓細Delphi涓姩鎬鏁扮粍鏄竴绉嶄娇鐢ㄩ潪甯哥伒娲荤殑鏁版嵁绫诲瀷锛岃繖閲屾帰璁ㄥ嚑涓拰鍦板潃鏈夊叧鐨勬蹇碉細1銆佹暟缁勫湴鍧锛氬姩鎬佹暟缁勭殑鏁扮粍鍦板潃锛堝お鎷楀彛浜嗭級锛屽嵆鍔ㄦ佹暟缁勫瓨鍌ㄦ暟鎹殑鍦板潃锛屼竴鑸垜浠敤鏁扮粍鍚嶇О鐩存帴浠ｆ浛锛氭瘮濡傦細鍔ㄦ佹暟缁勫畾涔変负锛歺:array of integer;x鏈韩浠ｈ〃鐨勬槸鏁扮粍瀛樺偍鏁版嵁鐨勫湴鍧銆傞偅涔堥棶棰樻潵浜嗭紝x鏄竴涓彉閲忓悕绉帮紝涓鑸...
绛旓細Low鍜孒igh鏄竴瀵圭殑浠ｈ〃浜鏁扮粍鐨勪綆缁村害绱㈠紩鍜岄珮缁村害绱㈠紩姣斿澹版槑浜哸rr: array [0..10] of Integer;閭ｄ箞Low(arr)灏辨槸0High(arr)灏辨槸10
绛旓細鍦╔E鐗堟湰涔嬪悗鏈変竴涓猅oStringArray鏂规硶鐩存帴杩斿洖涓涓array of string;涔嬪墠鐨勭増鏈氨鍙兘寰幆
绛旓細procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3);arr[1,2]:='this is a test';setlength(arr,0,0);setlength(arr,4,5);showmessage(arr[1,2]);end;澹版槑涓涓簩缁鏁扮粍鐨勬柟娉曟槸鐢 array of array of 绫诲瀷 杩欏緢璐磋繎浜轰滑鐨...
绛旓細寰堢畝鍗...鍋囪浣犵殑鏁扮粍鍙橀噺涓 a锛屽苟涓斾笅鏍囦粠 0 寮濮嬶細var a: YourArrayType;p: PInteger;begin ...p := @a[1]; //鎸囧悜绗簩涓瓧鑺 if p^ = $01000080 then // Intel 澶勭悊鍣ㄧ殑鏁存暟楂樹綅鍦ㄩ珮鍦板潃鍖猴紝鎵浠ヨ鍙嶈繃鏉 ...end;鍘熺悊灏辨槸锛4涓瓧鑺傛槸涓涓暣鏁扮殑绌洪棿锛岀洿鎺ユ瘮杈冧竴涓暣鏁板彉閲忓拰涓...
绛旓細鍦╲ar鍚庨潰鍏堝０鏄巒涓篿nteger绫诲瀷 鐒跺悗锛歯:=0;while not n=鏁扮粍涓暟-1 do begin 鏁扮粍鍚峓n]=inttostr(鏁扮粍鍚峓n]);n:=n+1;end;
绛旓細鏁扮粍灏辨槸瀹氫箟浜嗕竴鍫嗗悓涓绫诲瀷鐨勫彉閲 璁块棶鍙互鐢ㄨ繖鏍风殑褰㈠紡 str[0]:=鈥︹︼紱璇寸櫧浜嗗氨鏄彉閲忥紝浣犵涓涓槸涓涓嬪畾涔変簡10涓彉閲忚屽凡
绛旓細瀛楃涓茬被鍨嬩笌鏁扮粍绫诲瀷鐩镐技銆傚疄闄呬笂涓涓瓧绗︿覆宸笉澶氬氨鏄竴涓瓧绗︾被鍨嬬殑鏁扮粍,鍥犳鐢╗]绗﹀彿,浣犲氨鑳借闂瓧绗︿覆涓殑瀛楃,杩欎竴浜嬪疄鍏呭垎璇存槑浜嗕笂杩拌鐐广 涓哄厠鏈嶄紶缁烶ascal瀛楃涓茬殑灞闄愭,32浣Delphi澧炲姞浜嗗闀垮瓧绗︿覆鐨勬敮鎸併傝繖鏍峰叡鏈変笁绉嶅瓧绗︿覆绫诲瀷: ShortString 鐭瓧绗︿覆绫诲瀷涔熷氨鏄墠闈㈡墍杩扮殑浼犵粺Pascal瀛楃涓茬被鍨嬨
