本文整理自网络，侵删。
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls;
type
TForm7 = class(TForm)
Button1: TButton;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
FileHandle: Integer;
implementation
{$R *.dfm}
procedure TForm7.FormDestroy(Sender: TObject);
begin
FileClose(FileHandle);
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
FileHandle := FileOpen('C:\test.ini',
fmOpenWrite or fmShareDenyNone);
end;
procedure TForm7.Button1Click(Sender: TObject);
var
FIni: TIniFile;
begin
FIni := TIniFile.Create('C:\test.ini');
try
FIni.WriteString('ddd', 'dsadsa', 'dsadsadsadsasada');
finally
FIni.Free;
end;
end;
end.
相关阅读 >>
Delphi 自动把combobox控件的内容里没有的内容加入列表中
Delphi firedac 连接access mdb数据库的方法
winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串
Delphi windows 编程[7] - wm_create 消息
Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …
更多相关阅读请进入《Delphi》频道 >>
