Importar Arquivo Texto

Delphi

15/09/2004

Gostaria de converter meu arquivo texto onde tem a seguinte caracteristicas:

1;Jose da Silva; 13 de maio; Bairro;


Onde cada ´;´ corresponde cada campo na minha tabela.

Alguem poderia me mandar uma procedura


Evandro


Evandro_araujo

Evandro_araujo

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

15/09/2004

Eu sugiro o componente PgCSV. Pegue-o em [url]http://www.khash.biz/[/url]


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

15/09/2004

um exemplo:

var
  Arquivo, Linha: TStringList;
  I: Integer;
begin
  Arquivo := TStringList.Create;
  Linha := TStringList.Create;
  Linha.Delimiter := ´;´;
  try
    Arquivo.LoadFromFile(´Arquivo.ext);
    for I := 0 to Arquivo.Count - 1 do
    begin
      Linha.DelimitedText := Arquivo[I];
      ShowMessage(´Campo1 = ´ + Linha[0]);
      ShowMessage(´Campo2 = ´ + Linha[1]);
      ShowMessage(´Campo3 = ´ + Linha[2]);
      ShowMessage(´Campo4 = ´ + Linha[3]);      
    end;
  finally
    Linha.Free;
    Arquivo.Free;
  end;
end;



GOSTEI 0
POSTAR