Importar de arquivo ini

Delphi

17/11/2004

Olá...

tenho um arquivo ini com dados sobre produtos, sendo que cada seção corresponde ao código do produto, como no exemplo abaixo

[7891095300808]
PRODUTO=PAO QUEIJO YOKI 250 GR
VALOR=1,99
TAXAICM=0
UNIDADE=UN
ESTOQUE=100

o problema é o seguinte: Como posso importar esses dados para atualizar uma tabela, sem que eu saiba o código, ou seja, importar esses dados como se a tabela estivesse vazia.


Williandb

Williandb

Curtidas 0

Respostas

Bruno_fantin

Bruno_fantin

17/11/2004

Só uma dica... Conversa com o cara que gerou isso e pede para ele fazer algo melhor... Tipo XML... Ou até mesmo arquivo de texto...

Só existe um jeito... Abre ele como arquivo de texto... Vai lendo cada linhda... E as que tiver [alguma coisa] você já sabe que é um codigo...


GOSTEI 0
Massuda

Massuda

17/11/2004

Para ler o arquivo, use um TIniFile.

Para saber o nome das seções, ou seja, os códigos dos produtos, use o método TIniFile.ReadSections, assim você vai obter os códigos dos produtos em um TStringList.


GOSTEI 0
Williandb

Williandb

17/11/2004

valeu pelas dicas..


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

17/11/2004

Colega,

Realmente o uso de XML é o recomendado. No entanto, você pode utilizar algo como:

var ArquivoINI: TIniFile;
    Produtos: TStringList;
    I, Itens: Integer;
    Produto: String;
    {... Outras variáveis ...}
begin
  ArquivoINI  := TIniFile.Create(´C:\TEMP\PRODUTOS.TXT´);
  Produtos    := TStringList.Create;

  ArquivoINI.ReadSections(Produtos);

  itens       := Produtos.Count-1;

  for I := 0 to Itens do
  begin
    Produto := ArquivoINI.ReadString(Produtos.Strings[I],´PRODUTO´,´´);
    {... Outras variáveis ...}
  end;

  Produtos.Free;
  ArquivoINI.Free;
end;



GOSTEI 0
POSTAR