如上
解决方案 »
- ADOConnection1 连接 sql2000问题?
- delphi2010 RICHEDIT
- 如何限制Edit框的输入时限
- 求VCLZip压缩文件夹而不影响文件结构的实现方法?
- delphi实现Internet网上的文件传送
- 下个月去大连,麻烦熟悉的兄弟给简单介绍一下情况!
- 在intraweb中如何像在html中一样帮背景图(用一个小图)
- 如何给ConnectionString赋值(widestring)
- 如何不用Delphi的控件进行录音?
- 请问以下如何汇总当月销售情况?
- delphi7程序,如何在程序里作设置操作系统日期的短格式为yyyy-mm-dd形式?要求支持w98/2000/xp/2003系统的
- 偶搞一个类似CSDN的东东,谁有兴趣?
如果不行
function a(var b):Boolean; 用无类型参数来代替!
TArr = array of array of string;function A(var Arr: TArr): TArr;
var
I, J: Integer;
begin
SetLength(Arr, 10, 10);
for I := 0 to 9 do
for J := 0 to 9 do
Arr[I, J] := IntToStr(I) + ', ' + IntToStr(J);
Result := Arr;
end;procedure TForm1.Button1Click(Sender: TObject);
var
MyArr: TArr;
I, J: Integer;
begin
MyArr := A(MyArr);
for I := 0 to 9 do
for J := 0 to 9 do
Memo1.Lines.Add(MyArr[I, J]);
end;