Delphi Writeln Function

Hello
I have an array of about 8760 numbers. i need to write it in one line in delphi.
if i use the writeln command like this
writeln(array[1],array[2]....so on) it gets really really long. is their a shorter way.
please help.
thanks

 

s:= '';
for i:=Low(array) to High(array) do s:= s + array[i];
writeln(s);

Code (markup):

 

@sitepos -- wasteful of memory and would thrash garbage collection like a ****.

I'd suggest using write instead of writeln, then do a writeln AFTER.

for t:=Low(array) to High(array) do write(array[t]);
writeln;

Code (markup):

Worked good in the '80's where we couldn't have arrays bigger than 64k and usually had a stack that was 16k or less...