Buscar por:

Importar dados de um arquivo txt para uma tabela.

Código

No evento onClick de um botao coloque o seguinte código:

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

//Declare uma variável do tipo TStringlist e declare tambem uma variavel para usarmos como um contador.

  texto : TStringList;

  i : integer;

begin

  //Abertura da Tabela

  tbMedicos.Open;

  //Aqui a variavel texto esta sendo atribuida

  texto := TStringList.Create;

  //Recebendo o arquivo

  texto.LoadFromFile(Edit1.Text);

  // Usei um trim para que seja eliminado qualquer tipo de espaço antes e depois das linhas

 texto.Text := trim(texto.Text);

 // Inicio do laço para começar a gravar na tabela, o sistema pegará da primeira linha e fará ate a ultima...

  for i := 0 to texto.Count -1 do

    begin

      tbMedicos.Insert;

      //Usei o trim, pois quando exportei acrescentei alguns espaços em branco, para criar um layout

      tbMedicosID.AsInteger               := StrToInt(trim(copy(texto[i],1,10)));

      tbMedicosCODIGO.AsInteger           := StrToInt(trimRight(copy(texto[i],11,10)));

      tbMedicosNOME.AsString              := trimRight(copy(texto[i],21,60));

      tbMedicosCRM.AsString               := trimright(copy(texto[i],81,15));

      tbMedicosESPECIALIDADE.AsString     := trimright(copy(texto[i],96,30));

      tbMedicosTEL_RES.AsString           := trimright(copy(texto[i],126,15));

      tbMedicosTEL_COM.AsString           := trimright(copy(texto[i],141,15));

      tbMedicosCEL.AsString               := trimright(copy(texto[i],156,15));

      tbMedicosCOMIS.AsString             := trimright(copy(texto[i],171,10));

      tbMedicos.Post;

    end;

  //Liberando a variável

  texto.Free;

  ShowMessage('Arquivos importados!');