var sfile:Textfile; flag,ss:string; begin assignfile(sfile,fname); reset(sfile); while not eof(sfile) do begin readln(sfile,ss); end; end;
能给一些代码示例吗? 我想从一个文本文件中读出所有行然后加到combobox 怎么做?
var f:textfile; filename,s_temp:string; begin filename:='c:\temp.txt'; assignfile(f,filename); reset(f); while not(eof(f)) do begin readln(f,s_temp); end; closefile(f); end.
sfile:Textfile;
flag,ss:string;
begin
assignfile(sfile,fname);
reset(sfile);
while not eof(sfile) do
begin
readln(sfile,ss);
end;
end;
我想从一个文本文件中读出所有行然后加到combobox
怎么做?
f:textfile;
filename,s_temp:string;
begin
filename:='c:\temp.txt';
assignfile(f,filename);
reset(f);
while not(eof(f)) do
begin
readln(f,s_temp);
end;
closefile(f);
end.