Fórum Importar Arquivo Texto #250594

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;