function GetParentErrorName(var ParentErrorName,ParentErrorID): Integer;
implementation
function GetParentErrorName(var ParentErrorName,ParentErrorID): Integer;
var
ErrorClassIni: TIniFile;
begin
Result:= 0;
if not FileExists('c:\'+'SysFile.ini') then
FileClose(FileCreate('c:\'+'SysFile.ini'));
ErrorClassIni:= TIniFile.Create('c:\'+'SysFile.ini');
try
ParentErrorName:= ErrorClassIni.ReadString('ErrorPCN','ClassName','');
ParentErrorID:= ErrorClassIni.ReadString('ErrorPCN','ClassID','');
finally
ErrorClassIni.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyIniFile:TIniFile;
begin
MyIniFile=TIniFile.Create('c:\YourDir\YourIniFile.ini')
MyIniFile.ReadString('YouSection','YouId','YouString')