如何在delphi中从配置文件中取值

Question

uses INIFiles;
var 
  myINI : TINIFile;
begin
  myINI :=  TINIFile.Create(ss.ini);
  try
    name := myINI.ReadString('company','name','Error'); 
  finally
    myINI.Free;
  end;
end;

Answer 1

var
  MyINI:TINIFile;
  name:string;
begin  MyINI := TIniFile.Create('tsmis.ini');
  try
    name := MyINI.ReadString('company','name','');
  //name就是你的那个某某电力公司了
  //最后的''表示如果读不出来，name会被赋值为'';
  finally
    MyINI.Free;
end;

Answer 2

uses INIFiles;
var 
  myINI : TINIFile;
begin
  myINI :=  TINIFile.Create('ss.ini');
  try
    name := myINI.ReadString('company','name','Error'); 
  finally
    myINI.Free;
  end;
end;
//不好意思，忘记写引号了:)

Answer 3

var
  MyINI:TINIFile;
  name:string;
begin  MyINI := TIniFile.Create('tsmis.ini');
  try
    name := MyINI.ReadString('company','name','');
  //name就是你的那个某某电力公司了
  //最后的''表示如果读不出来，name会被赋值为'';
  finally
    MyINI.Free;
end;
////打得不好请打分