怎样建立一个CFG 或INI文件?(100分)

  • 主题发起人 主题发起人 vai
  • 开始时间 开始时间
V

vai

Unregistered / Unconfirmed
GUEST, unregistred user!
; RT。用来保存程序的一些参数等。
 
看看TIniFile的帮助就清楚了,很简单.
在win95下建议用注册表,看看TRegistry的帮助就可以了.
 
可以用流的方法实现.
如:
Var
Stream:TStream;
Writer:TWriter;
Begin
Stream:=TStream.Create('Filename.ini',bmCreate or bmOpenWrite);
Try
Writew:=TWriter.Create(Stream,1024);
Writer.WriteInteger(Ref1);//WriteString,Writeint;
.
.

Finally
Writer.Free;
Stream.Free;
end;
end;
 
有关于注册表的参考资料吗?懒得看英语
 
uses inifiles;

procedure newini(filename: string);
var
ini: tinifile;
begin
ini := tinifile.create(filename);
try
ini.writestring('dirs', 'main', 'c:/aaa');
...
finally
ini.free
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);

var
DelphiIni: TIniFile;
begin
DelphiIni := TIniFile.Create('c:/windows/delphi32.ini');
Memo1.Clear;
DelphiIni.ReadSectionValues('Transfer', Memo1.Lines);
if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
DelphiIni.WriteString('Transfer', 'Title1', 'Picture Painter');
DelphiIni.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);

var
DelphiIni: TIniFile;
begin
DelphiIni := TIniFile.Create('c:/windows/delphi32.ini');
{ if the entry wasn抰 there before, delete it now }
if Memo1.Lines.Values['Title1'] = '' then
DelphiIni.DeleteKey('Transfer', 'Title1')
{ otherwise, restore the old value }
else
DelphiIni.WriteString('Transfer', 'Title1',
Memo1.Lines.Values['Title1']);
DelphiIni.Free;
end;
 
如果是自己程序用的,用一般的文件操作做一个数据文件也可以啊,不过在95下用
registry还是不错的。
 
CFG文件呢?
 
>>CFG文件呢?
后缀名而已,想怎么用就怎么用.
 
后退
顶部