Linha em branco num arquivo INI

Question

Preciso popular um arquivo INI usando WriteString. At� tudo bem, funcionando perfeitamente. Para ter uma est�tica melhor, gostaria de fazer com que o arquivo ap�s ser populado, que fosse dando uma lin...

Landersongomes · Answer

N�o � necessario... basta apontar normalmente...tipo... WriteString(�ECF�, �PORTA�, �COM3�);N�o eh necessario.. o ini se encarrega do posicionamento....

Paulo · Answer

Isto � que est� feito e n�o h� nenhuma separa��o entre as chaves, ou seja, ele cria uma chave e em seguida outra sem dar um espa�o entre elas, que � o que eu gostaria. Veja como est� feito na m�o e veja como ele faz:

[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

Agora veja sem espa�o, como ele faz automaticamente:

[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

Paullsoftware · Answer

Ol� amigo, usando o arquivo INI diretamente n�o creio que seja possivel, mas voc� pode usar uma StringList, adicionar os valores depois pedir para salv�-la para um arquivo como no exemplo abaixo:

procedure SimulaIniComStringList;
var
StringList  : TStringList;
NomeArquivo : String;
begin
 NomeArquivo := ExtractFilePath(ParamStr(0)) + �Configuracoes.ini�;
 try
  StringList := TStringList.Create;
  with StringList do
   begin
     Add(�[BLOCO1]�);
     Add(�ITEM 1=VALOR 1�);
     Add(�ITEM 2=VALOR 2�);
     Add(�ITEM 3=VALOR 3�);
     Add(�ITEM 4=VALOR 4�);
     Add(��);
     Add(�[BLOCO2]�);
     Add(�ITEM 1=VALOR 1�);
     Add(�ITEM 2=VALOR 2�);
     Add(�ITEM 3=VALOR 3�);
     Add(�ITEM 4=VALOR 4�);
     Add(��);
     Add(�[BLOCO3]�);
     Add(�ITEM 1=VALOR 1�);
     Add(�ITEM 2=VALOR 2�);
     Add(�ITEM 3=VALOR 3�);
     Add(�ITEM 4=VALOR 4�);
     Add(��);
     Add(�[BLOCO4]�);
     Add(�ITEM 1=VALOR 1�);
     Add(�ITEM 2=VALOR 2�);
     Add(�ITEM 3=VALOR 3�);
     Add(�ITEM 4=VALOR 4�);
     SaveToFile(NomeArquivo);
   end;
 finally
    FreeAndNil(StringList);
 end;
end;

Espero ter ajudado :wink:

Paulo · Answer

N�o deixa de ser uma forma de atingir o objetivo. Vou tentar assim, j� que n�o achei nada de forma direta. Valeu!!!...