怎样向指定的文件写记录，查找记录？

Question

uses inifiles;
procedure WriteIni;
var
  aIniFile: TIniFile;
  strStart: string;
begin
  strStart := '启动';
  aIniFile := TInifile.Create('c:\a.ini');
  with aIniFile do
  begin
    WriteString('货位', '货位', strStart);
    WriteString('报警', '报警', strStart);
    WriteString('添加', '添加', strStart);//全写的启动。
    Free;
  end;
end;procedure ReadIni;
var
  aIniFile: TIniFile;
  IsStart:string; 
begin
  aIniFile := TInifile.Create('c:\a.ini');
  with aIniFile do
  begin
    IsStart=ReadString('报警', '报警', '没启动');//什么也没读着就为没启动。
   if IsStart='启动' then ShowMessage('报警启动啦！');
    Free;
  end;
end;一般不用查找，只需要按写的索引标号读就行了。
你可以双击这个INI文件看一下就明白了。

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, IniFiles,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var  AppIni: TIniFile;
begin
    appini := TIniFile.Create('c:\aa.ini');
    appini.WriteString ('test','货位','启动');
    appini.WriteString ('test','报警','启动');
    appini.WriteString ('test','添加','启动');
    Appini.Free ;
end;procedure TForm1.Button2Click(Sender: TObject);
var  AppIni: TIniFile;begin
    appini := TIniFile.Create('c:\aa.ini');
    edit1.text :=  appini.ReadString ('test','货位','启动');
    edit2.text := appini.readString ('test','报警','启动');
    edit3.text := appini.readString ('test','添加','启动');
    Appini.Free ;
end;end.
其中：aa.ini内容为：
[test]
货位=启动
报警=启动
添加=启动