2011年5月10日
读取TXT文档示例
View Code procedureTForm1.btn2Click(Sender:TObject);varF:TextFile;s:string;beginifdlgOpen1.ExecutethenbeginAssignFile(F,dlgOpen1.FileName);Reset(f);whilenotEof(F)dobeginReadln(F,s);redt1.Lines.Add(s);end;CloseFile(F);end;end;end. Read More
posted @ 2011-05-10 10:04 咸鱼公子 Views(227) Comments(0) Diggs(0)