如何将整型数组的值一次性输出，类似C中的printf语句的功能(50分)

Y

yixilee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-10

• #1

比如将 x : array[1..8] of integer;的值输出。
我知道这样子输出：
for i := 1 to 8 do
begin
showmessage(IntToStr(x));
end;
但是，如果这样的话，一次就弹出一个对话框，并且只输出一个数字。
请大家多多指教。

 

R

ruilin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-10

• #2

str := '';
for i := 1 to 8 do
begin
str := str + IntToStr(x) + ',';
end;
showmessage(str);

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-10

• #3

是的。先组合信息，然后再输出。

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-10

• #4

format 函数啊！自己看看帮助吧

 

Y

yixilee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-11

• #5

谢谢各位，用
str := '';
for i := 1 to 8 do
begin
str := str + IntToStr(x) + ',';
end;
showmessage(str);
可以输出。
只是如果要用write和writeln如何做呢。我根据资料用以下的代码，
for i := 1 to 8 do
begin
write(x:4);
end;
writeln;
语法没错误，能够编译运行，只是在执行的时候后弹出错误提示
I/O error 105
可能是文件类型没有定义吧，我尝试定义一个文件类型来，可是老出错。请问如何解决？

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #6

var fp:textfile;
assignfile(fp,filename);
rewrite(fp)

str := '';
for i := 1 to 8 do
begin
str := str + IntToStr(x) + ',';
end;
writeln(fp,tstr);
closefile(fp);

 

Y

yixilee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-15

• #7

zywcd,你好,我按照你的做法去做,可是语法检查的时候出现了下面的错误,
Illegal character in input file: '<element>' ($<A1A1>)
请问是怎么回事呢,帮助文档里是将下面的语句
Writeln(&quot;Hello world!&quot

改为
Writeln('Hello world!')
只是双单引号的区别而已啊.

 

Y

yixilee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-15

• #8

出错的位置是下面的语句:
fp : textfile

我的理解是文件的类型定义错了,抑或是是没有将textfile的所在单元包含到该程序单元use字句中.

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-15

• #9

有这样的文件类型定义啊，你可以查查帮助的。

 

Y

yixilee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-08

• #10

谢谢啦,各位.