delphi loadfromfile语句读取次级文件夹

发布网友发布时间：2023-06-23 07:30

共2个回答

热心网友时间：2024-02-16 20:21

其实就和系统上的文件路径一样

LoadFormFile('.\文件名.txt'); // 同exe目录下

'.\子目录\文件名.txt' // 子目录下

'..\文件名.txt' // exe文件的上一级目录
例如你的 exe 文件在 D:\a\b\c\ 中，这个文件名.txt 的路径是 D:\a\b\文件名.txt
还可以 ..\..\文件夹\文件名.txt

希望是可以路径跟随文件自动改变

这句没看明白，文件名不确定？那需要定义一下，例如使用ini配置

var
  //定义一个变量，并设置默认的文件名
  cfg_ListBox_FileName : String = '.\文件名.txt';

procere LoadAppConfig;
var
  Ini : TIniFile;
  szFileName : String;
begin
  // ExtractFilePath(Application.ExeName) 取的程序所在目录，即 ini 文件在exe同目录下
  szFileName := ExtractFilePath(Application.ExeName) + 'cfg.ini';
  // 文件不存在，以默认值生成该文件
  if not FileExists(szFileName) then begin
    Ini := TIniFile.Create(szFileName);
    Ini.WriteString('cfg', 'ListBox_FileName', cfg_ListBox_FileName);
    Ini.Free;
  end;
  // 读取配置
  Ini := TIniFile.Create(szFileName);
  cfg_ListBox_FileName := Ini.ReadString('cfg', 'ListBox_FileName', cfg_ListBox_FileName);
  Ini.Free;
end;

// 需要 uses IniFiles 单元

// 读取文件
listbox. items. loadfromfile(cfg_ListBox_FileName);

热心网友时间：2024-02-16 20:21

比如
var
pic: TStream;
begin
pic.LoadFromFile('c:\1.jpg');
pic.SaveToFile('d:\2.jpg');
end;追问我想要的是可以移动位置依旧可以生效的语句