新手请问,怎么使用2维数组
新手请教,如何使用2维数组。
小弟刚接触delphi,因为以前会点VB,所以问的问题都是拿VB来比较,老师们见谅。谢谢
VB里可以这样定义和使用数组,如果在delphi里要怎么写
定义时候是 Public aaa(9, 2) As String
赋值的时候 aaa(0,0) = "1"
取值的时候是 Text1 = aaa(0,0)
现在在delphi里,要怎么进行这3项操作,请有空的老师指点下,谢谢
------解决方案--------------------
array aaa[0..8,0..1] of string
aaa[0,0] := '1'
edit1.Text := aaa[0,0]
------解决方案--------------------
定义时候是在var里 array aaa[0..8,0..1] of string;
赋值的时候 aaa[0,0] := '1';
取值的时候是 edit1.Text := aaa[0,0];
------解决方案--------------------
多维数组是早年遗留产物,它可读性不好。现代程序一般用结构数组取代。例如:
type
TMyItem = record
Name: string;
Values: array['a'..'z'] of Integer;
end;
TMyItems = array[0..1000] of TMyItem;
var
MyItems: TMyItems;
这样就可以用 MyItems[0].Name 和 MyItems[0].Values['a'] 这样的形式来读写。
小弟刚接触delphi,因为以前会点VB,所以问的问题都是拿VB来比较,老师们见谅。谢谢
VB里可以这样定义和使用数组,如果在delphi里要怎么写
定义时候是 Public aaa(9, 2) As String
赋值的时候 aaa(0,0) = "1"
取值的时候是 Text1 = aaa(0,0)
现在在delphi里,要怎么进行这3项操作,请有空的老师指点下,谢谢
------解决方案--------------------
array aaa[0..8,0..1] of string
aaa[0,0] := '1'
edit1.Text := aaa[0,0]
------解决方案--------------------
定义时候是在var里 array aaa[0..8,0..1] of string;
赋值的时候 aaa[0,0] := '1';
取值的时候是 edit1.Text := aaa[0,0];
------解决方案--------------------
多维数组是早年遗留产物,它可读性不好。现代程序一般用结构数组取代。例如:
type
TMyItem = record
Name: string;
Values: array['a'..'z'] of Integer;
end;
TMyItems = array[0..1000] of TMyItem;
var
MyItems: TMyItems;
这样就可以用 MyItems[0].Name 和 MyItems[0].Values['a'] 这样的形式来读写。