记账软件版1楼: 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+＇＇ 화일이 존재하지 않습니다.＇＇);
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;

2楼: 是不是要对str1,str2,str3,str4,str5使用SetLength 如药品进销存表格

3楼: 动态数组没用过,,所以...

请教一下,,该如何设置？？？


谢谢..

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

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

6楼: 多人接受答案了。