请教数组写入文件的方法。

Question

问题是这样的，我有一个Tdata = array[0..199] of Byte 想将它用writeln连续写入一个文本文件，但是因为writeln每次只能写一个数，那样就会写200行（郁闷），不能达到连续写的目的，所以想将它转为字符串再写strData:String[200];，
for count := 1 to 200 do
        begin
          Byte(strData[count]):=Tdata[count];
        end;writeln(file,strData);
结果这个写操作无反应：（哪位指点一下，谢谢。

Answer 1

1.Tdata[count];其中TData定义为array[0..199] of Byte ，现在Count取值居然是1..200，这样会出错的2.如果是要转字符串，直接这样写
var
  s: string;
  i: integer;
begin
  s := '';
  for i:=Low(TData) to High(TData) do
    s := s + IntToHex(TData[i], 2);
end;