var Str : String; LstString : TStringList; Arr : Array of String; beginStr := ''; for i :=0 to 100000 do begin if i div 5 = 0 then begin LstString.Strings.Add(Str); Str :='' end; if Str <> '' then Str := Str + ' ' + Arr[i] else Str := Arr[i]; end;//打印LstString中的内容!今天电脑坏了,用别人的电脑上网,没办法调试,随手写了一下,请参考:
不過需要自己寫點代碼
Str : String;
LstString : TStringList;
Arr : Array of String;
beginStr := '';
for i :=0 to 100000 do
begin
if i div 5 = 0 then
begin
LstString.Strings.Add(Str);
Str :=''
end;
if Str <> '' then
Str := Str + ' ' + Arr[i]
else Str := Arr[i];
end;//打印LstString中的内容!今天电脑坏了,用别人的电脑上网,没办法调试,随手写了一下,请参考:
BTW:楼主打这么多随机数干嘛
可是觉得这样不太正宗,最好能用自己的方法来实现。
不知道“ hqhhh(枫叶) ”写得代码能不能用,惨的是我家没有打印机,不好试。
你看一下,在保存的文件中是不是合你的要求不就行了!
即然在文件中都显示正常,为什么不能打印!