如何用数组跟for打印出下面的图形
*
**
***
****如果有更好的方法最好也写上 XX
*
**
***
****如果有更好的方法最好也写上 XX
解决方案 »
- Delphi 7 IDE数据字典向导PDMtoGUI,数据库应用开发必备利器(用D7的试试)
- 显示一幅大的JPG图片的时候怎么能让它一条一条的显示,就是象网页下载的似的的,下载下来就显示
- 从北京回来了嘿嘿~~
- 请高人指点,怎样读取数据库的表清单、函数清单、过程清单?
- 不好意思,一个非常非常菜的问题
- tif格式图片显示保存!!!急急急!!!!!!!
- 一个关于文本框的问题
- 关于实现动态画面的问题,有兴趣者请进
- 请教各位:如何用Delphi使Excel的整行或整列的文字居中???
- 急!!!关于delphi 3的报表打印!!!20分!!!
- MD5 加密 Unicode 的问题
- 点击谷歌赞助商连接的问题
var
arr: array of Integer;
i,j: Integer;
stra,strb : string;
begin
setlength(arr,4);
for i := 0 to 3 do
begin
arr[i] := i+1;
end; for i := 0 to high(arr) do
begin
stra := '';
for j := 0 to i do
begin
stra := stra + '*';
end;
strb := strb + stra + #13;
end;
ShowMessage(strb);
end;