我调用aa.ini
[家电]
00=电视机
01=电冰箱
02=电饭饱
~~~~~~~~~下面是程序代码
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,IniFiles, StdCtrls;type
TForm2 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
name:string;
search:TIniFile;implementation{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
begin
name:='';
search:=TIniFile.Create('\user\aa.ini');end;procedure TForm2.Button1Click(Sender: TObject);
begin
name:=search.ReadString('家电','00','');
showmessage(name);
end;end.执行时报错:“电视机不是一个有效的控件名称”
谁知道这是怎么回事???
[家电]
00=电视机
01=电冰箱
02=电饭饱
~~~~~~~~~下面是程序代码
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,IniFiles, StdCtrls;type
TForm2 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
name:string;
search:TIniFile;implementation{$R *.dfm}procedure TForm2.FormCreate(Sender: TObject);
begin
name:='';
search:=TIniFile.Create('\user\aa.ini');end;procedure TForm2.Button1Click(Sender: TObject);
begin
name:=search.ReadString('家电','00','');
showmessage(name);
end;end.执行时报错:“电视机不是一个有效的控件名称”
谁知道这是怎么回事???
你使用了关键字,相当于self.name,而self.name等于表单名,当然错了
filename:=ExtractFilePath(ParamStr(0))+'aa.ini'