如何使两个数组的对应的值的首数字上下对齐
编号：QA004761
建立日期: 2003年11月8日 最后修改日期：2003年11月8日
所属类别：
Ｑ
小妮:
操作系统: windows2000 server
编程工具: delphi
问题: 想用Tmemo组件显示两个数组的值a[],b[]，a数组的值在第一行显示，b数组的值在第二行显示。
如何使这两个数组的对应的值的首数字上下对齐？
水平: 刚入门
Ａ回答:
可以利用Tab字符（ASCII码为9）来实现这个功能。例子：
procedure TForm1.Button1Click(Sender: TObject);
var a, b: array[1..4] of integer;
i: integer;
begin
for i := 1 to 4 do
begin
a[i] := i * 2;
b[i] := i * 10;
end;
Memo1.Clear;
Memo1.Lines.Add('');
Memo1.Lines.Add('');
for i := 1 to 4 do
begin
Memo1.Lines[0] := Memo1.Lines[0] + IntToStr(a[i]) + #9;
Memo1.Lines[1] := Memo1.Lines[1] + IntToStr(b[i]) + #9;
end;
end;
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, 标准控件, screen, button, combo, checkbox, listbox。
| |
|
|
| |
|
|
