leggiimpostazioni.pas

来自「一套来自国外的ERP系统,有兴趣的朋友可以看看!」· PAS 代码 · 共 67 行

unit leggiImpostazioni;

interface
function LeggiChiave(fileImpostazioni,sezione,chiave,valore:string):string ;
Function NumeroVerde : string ;
Function Responsabile: string ;
Function Azienda : String ;
Function EmailAssistenza : String ;
Function URLAssistenza : string ;
Function Custom(chiave,valdefault:string) : String ;
Function VersioneUfficiale(verdefault:String) : string ;


implementation

uses inifiles, sysutils ;

Function NumeroVerde : string ;
begin
 result := LeggiChiave('','GENERALE','NUMERO_VERDE','800-276406') ;
end ;

Function EmailAssistenza : string ;
begin
 result := LeggiChiave('','GENERALE','EmailAssistenza','[e-mail]') ;
end ;

Function URLAssistenza : string ;
begin
 result := LeggiChiave('','GENERALE','URLAssistenza','http://www.mosaicostore.it') ;
end ;

Function Responsabile : string ;
begin
 result := LeggiChiave('','GENERALE','RESPONSABILE','CENTRO ASSISTENZA') ;
end ;

Function Azienda : string ;
begin
 result := LeggiChiave('','GENERALE','AZIENDA','COMPUTER INSIDE SRL') ;
end ;

Function VersioneUfficiale(verdefault:String) : string ;
begin
 result := LeggiChiave('','GENERALE','VERSIONE_UFFICIALE',verdefault) ;
end ;

Function Custom(chiave,valdefault:string) : String ;
begin
 result := LeggiChiave('','GENERALE',chiave,valdefault) ;
end ;

function Nomefile(nome:string) : string ;
var
   nf :string ;
begin
 nf := ExtractFilePath(ParamStr(0)) + 'impostazioni.ini' ;
 if nome = '' then
   result := nf
 else
   result := nome ;
end ;

function LeggiChiave(fileImpostazioni,sezione,chiave,valore:string):string ;
begin
 // Legge dal file fileImpostazioni la chiave e ne torna il valore
 // se la chiave non esiste, il valore