procedure abcde;
var
MyIniFile: TIniFile;
apath:string;
begin
MyIniFile := TIniFile.Create('ABC.INI');//注意要写完整的路径
with MyIniFile do
begin
apath := ReadString('db', 'path', '');
end;
MyIniFile.Free;
end;
var
MyIniFile: TIniFile;
apath:string;
begin
MyIniFile := TIniFile.Create('ABC.INI');//注意要写完整的路径
with MyIniFile do
begin
apath := ReadString('db', 'path', '');
end;
MyIniFile.Free;
end;
解决方案 »
- delphi类的派生求助
- 合并两张图片的问题
- DBGridEh如何根据不同数值设置单元格不同颜色?
- 请帮忙看看代码哪里有问题
- 请帮忙:我用delphi控制其它应用程序,我怎么控制应用程序弹出的窗口
- delphi中有否类和实例化的概念?
- 怎么读到用命令行传进来的参数呢?
- 高手!高分!delphi 中如何删除iis中的虚拟目录
- 由x mod y=z如何根据z,y计算出x呢?100分!!!
- 如何将TTable的数据付给TClientDataSet(在不做服务器端且TClientDataSet不预先读入数据包的条件下)?
- DELPHI6怎么经常出现RTL60.BPL 错误?
- 如何在程序中实现对一个数据表的删除.
database1.params['path']:=bb;
不错,我是象上面这么写的,现详细写一下:procedure abcde;
var
MyIniFile: TIniFile;
apath:string;
begin
MyIniFile := TIniFile.Create('ABC.INI');
with MyIniFile do
begin
apath := ReadString('db', 'path', '');
database1.params.values['path']:=apath; //这句话出现了问题,通是通过了,但先有access violation +一串地址的错误,然后才正常运行
end;
MyIniFile.Free;
end;另外,我还用了如下的办法:
procedure abcde;
var
MyIniFile: TIniFile;
apath:Tstrings;
begin
MyIniFile := TIniFile.Create('ABC.INI');
with MyIniFile do
begin
apath:=Tstring.create;
apath.add(ReadString('db', 'path', ''));
database1.params.addstrings(apath); //这句话也出现了问题,通是通过了,但先有abstract error,然后才正常运行
end;
MyIniFile.Free;
end;