Fórum Importar arquivo TXT? #228987

var
  Dados: TextFile;
  Nome, End, Cidade, Estado, CEP: String;
begin
  AssignFile(Dados, ´C:\dados.txt´);
  Reset(Dados);
  try
    while not Eof(Dados) do
    begin
      Readln(Dados, Nome);
      Readln(Dados, End);
      Readln(Dados, Cidade);
      Readln(Dados, Estado);
      Readln(Dados, CEP);
      Readln(Dados);
      Readln(Dados);
      Readln(Dados);
      // faz algo com as variáveis
      // ex: Tabela.Adiciona(Nome);
    end;
  finally
    CloseFile(Dados);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
type TRegistro = Record
Nome: String;
Endereco: String;
Cidade: String;
Estado: String;
CEP: String;
end;
var Arquivo: TStringList;
Registro: TRegistro;
    Laco, Linhas, Campos: Integer;
begin
  Arquivo := TStringList.Create;
  Arquivo.LoadFromFile(´c:\temp\arquivo.txt´);
Linhas := Arquivo.Count-1;

  Campos:= 0;
  For Laco := 0 to Linhas do
  begin
if Campos < 7 then
    begin
    Case Campos of
      0: Registro.Nome:= Arquivo.Strings[Laco];
        1: Registro.Endereco  := Arquivo.Strings[Laco];
        2: Registro.Cidade:= Arquivo.Strings[Laco];
        3: Registro.Estado:= Arquivo.Strings[Laco];
        4: Registro.CEP:= Arquivo.Strings[Laco];
      end;
    Inc(Campos)
    end else
    begin
    ShowMessage(Registro.Nome); // Faça algo com o registro
    Campos := 0;
    end;
  end;
  Arquivo.Free;
end;

Aroldo
End
Cidade
Estado
CEP
linha em branco
linha em branco
linha em branco
Zanela
End
Cidade
Estado
CEP
linha em branco
linha em branco
linha em branco

procedure TForm1.Button1Click(Sender: TObject);
type TRegistro = Record
   Nome: String; 
   Endereco: String; 
   Cidade: String; 
   Estado: String;
   CEP: String;
end; 
var Arquivo: TStringList;
      Registro: TRegistro;
    Laco, Linhas, Campos: Integer;
begin
  Arquivo := TStringList.Create;
  Arquivo.LoadFromFile(´c:\temp\medicos.txt´);
   Linhas    := Arquivo.Count-1;

  Campos   := 0;
  For Laco := 0 to Linhas do
  begin
      if Campos < 7 then
    begin
       Case Campos of
        0: Registro.Nome         := Arquivo.Strings[Laco];
        1: Registro.Endereco  := Arquivo.Strings[Laco];
        2: Registro.Cidade      := Arquivo.Strings[Laco];
        3: Registro.Estado      := Arquivo.Strings[Laco];
        4: Registro.CEP            := Arquivo.Strings[Laco];
      end;
       Inc(Campos) 
    end else 
    begin
       table1.Edit;
       table1nome.AsString:=registro.Nome;
       table1ende.AsString:=Registro.Endereco;
       table1cidade.AsString:=Registro.Cidade;
       table1estado.AsString:=Registro.Estado;
       table1estado.AsString:=Registro.CEP;
       table1.Post;
       //ShowMessage(Registro.Nome); // Faça algo com o registro
       Campos := 0; 
    end; 
  end; 
  Arquivo.Free; 
end;