本文整理自网络,侵删。
uses System.Generics.Collections, System.Math, System.IOUtils;
procedure TForm1.Button5Click(Sender: TObject);var Lst: TStringList;begin Lst := TStringList.Create; try Lst.AddStrings(TDirectory.GetLogicalDrives); Memo1.LineS.AddStrings(Lst); finally FreeAndNil(Lst); end;
end;
相关阅读 >>
Delphi 用idhttp打开网页或下载文件时如何显示进度
Delphi2010读取mysql数据库text类型乱码的解决方案
更多相关阅读请进入《Delphi》频道 >>