help me ! 应该可以用ini文件或注册表哈!我也是菜鸟,没用过,不过马上会用到了…… 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 同意SGP说的有具体问题不明白的请贴出来 首先,我要说明的是,你要实现的这个功能的目的,写在ini文件里有点不太合适.如果你想用我可你告诉你: 1. 在uses中加入inifiles 2. 使用下面的函数: function readint(filename,section,edent,defaulta:string):string; var ini:Tintfile; begin ini:=Tinifile.create(ExtractFilePath(Application.Exename)+'/'+filename); try result:=ini.readstring(Section,Ident,Defaulta); finally ini.free; end; end; procedure writeini(filename,section,Ident,defaulta:string); var ini:Tinifile; begin ini:=Tinifile.create(ExtractFilePath(Application.Exename)+'/'+filename); try ini.WriteString (Section,Ident,Defaulta); finally ini.free; end; end;以上是使用ini文件处理的方法.如果使用注册表,请到我的网站里找相应文章.http://go.163.com/~ssudi delphi xe3中文乱码 郁闷,散分 如何让程序自动下载并且运行 如何取得别人程序里网格的数据 access +delphi 中的sql 问题。 ***************看似简单的问题:怎样设计来避免两个窗体的相互引用?************* 如何在Hint属性中显示动态的系统时间? 怎样处理延时期间的中断? 高手请进:TDBGrid中如何对记录按列进行排序? 想知道D6的开发人员吗..... EAccessViolation异常求救!!! 简单的函数问题。
1. 在uses中加入inifiles
2. 使用下面的函数:
function readint(filename,section,edent,defaulta:string):string;
var
ini:Tintfile;
begin
ini:=Tinifile.create(ExtractFilePath(Application.Exename)+'/'+filename);
try
result:=ini.readstring(Section,Ident,Defaulta);
finally
ini.free;
end;
end;
procedure writeini(filename,section,Ident,defaulta:string);
var
ini:Tinifile;
begin
ini:=Tinifile.create(ExtractFilePath(Application.Exename)+'/'+filename);
try
ini.WriteString (Section,Ident,Defaulta);
finally
ini.free;
end;
end;以上是使用ini文件处理的方法.如果使用注册表,请到我的网站里找相应文章.http://go.163.com/~ssudi