?? leggiimpostazioni.pas
字號:
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','support@mosaicostore.it') ;
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -