Señores, tengo una aplicacion que quendo se instala el programa el genera um archivo INI. No tengo problemas, pero mi gustaria de hacer una cosa que yo no consegui todavia. Que entre las llaves del archivo, fuera puesta una linea en blanco, haciendo una separacion como si yo hiciera en la mano, como sigue el ejemplo abajo:
Asi hago en la mano:
Cita:
[LOJA]
1=0051
[CAIXA]
1=01
2=02
[ECF]
PORTA=1
VELOCIDADE=9600
TIMEOUT=2
LOG=1
ERRO=0
MARCA=SWEDA
MODELO=IF ST100
FABRICANTE=SW010500000000000232
VERSAO=01.00.04
NSERIE=MFDSW00000003300
|
Ahora con la aplicación haciendo
Cita:
[LOJA]
1=0051
[CAIXA]
1=01
2=02
[ECF]
PORTA=1
VELOCIDADE=9600
TIMEOUT=2
LOG=1
ERRO=0
MARCA=SWEDA
MODELO=IF ST100
FABRICANTE=SW010500000000000232
VERSAO=01.00.04
NSERIE=MFDSW00000003300
|
Mira que entre la llaves LOJA,CAIXA y ECF no hay espacio. Como hago para poner espacios entre ellos? Gracias!!! Abajo esta el codigo para crear mi archivo
Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
var
Sql:String;
sHostIp,
sPathBanco:String;
begin
Brush.Style := bsClear;
sHostIp := '127.0.0.1';
sPathBanco := 'C:\Sistema\Dados\SAC_DB.FDB';
HostParam := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SAC_GARBO.INI');
HostParam.WriteString('HOST','Address',sHostIp);
HostParam.WriteString('HOST','HostName','');
HostParam.WriteString('SERVER','DriverName','InterBase by Core Lab');
HostParam.WriteString('SERVER','DataBase',sPathBanco);
HostParam.WriteString('SERVER','UserName','sysdba');
HostParam.WriteString('SERVER','Password','masterkey');
HostParam.WriteString('SERVER','SqlDialect','3');
HostParam.WriteString('SERVER','BlobSize','-1');
HostParam.WriteString('SERVER','ErrorResourceFile',' ');
HostParam.WriteString('SERVER','LocaleCode','0000');
HostParam.WriteString('SERVER','InterBase by Core Lab TransIsolation','ReadCommited');
HostParam.WriteString('SERVER','ProductName','Interbase');
HostParam.WriteString('SERVER','DriverAssemblyLoader','CoreLab.DbxIda.DriverLoader.TCRDynalinkDriver Loader,CoreLab.DbxIda.DriverLoader,Version=1.0.0.5001,Culture=neutral,PublicKeyToken=09af7300eec2370 1');
end;