帮我把错误找出来,,在线等待(50分)

procedure TGetVendor.Button1Click(Sender: TObject);
var
filTmp,fil :TextFile;
strFile,strTmp : String;
i,k :integer;
str1,str2,str3,str4,str5 : Array of String;

begin
strFile:='d:/F25200601.txt';//+'d:/F25200601.txt';
if not FileExists(strFile) then
begin
ShowMessage(strFile+' 화일&#51060
존재하&#51648
않습니다.');
exit;
end;
AssignFile(fil,strFile);
Reset(fil);
// k := 0;
while not Eof(fil) do
begin

ReadLn(fil,strTmp);
-------下面出现ERROR-----
str1[k] := trim(copy(strTmp,1,3));
str2[k] := trim(copy(strTmp,5,6));
str3[k] := trim(copy(strTmp,12,12));
str4[k] := trim(copy(strTmp,25,12));
str5[k] := trim(copy(strTmp,38,12));
k := k + 1;
end;

closefile(fil) ;
showmessage(strFile);
end;

是不是要对str1,str2,str3,str4,str5使用SetLength

动态数组没用过,,所以...
请教一下,,该如何设置???


谢谢..

动态数组不初始长度就是用时肯定出错的,SetLength必须要加上。

错误太多了,你还是找书练习基础吧

多人接受答案了。