Do RichEdit para dbedit
Voltei ao forum por ter encontrado dicas certas.
Desta vez estou precisando do seguinte:
Importo arquivos de texto e faço a leitura em um RichEdit.
O que preciso fazer agora é colocar cada linha do arquivo de texto em um registro de uma tabela.
As linhas não ultrapassam 250 caracteres.
Varrer, editar e salvar a tabela para automatizar eu sei, o que não estou conseguindo é selecionar linha por linha do arquivo de texto para jogar na tabela.
Será que isso é possível?
Desta vez estou precisando do seguinte:
Importo arquivos de texto e faço a leitura em um RichEdit.
O que preciso fazer agora é colocar cada linha do arquivo de texto em um registro de uma tabela.
As linhas não ultrapassam 250 caracteres.
Varrer, editar e salvar a tabela para automatizar eu sei, o que não estou conseguindo é selecionar linha por linha do arquivo de texto para jogar na tabela.
Será que isso é possível?
Cjscjs
Curtidas 0
Respostas
Orlando Frade
06/09/2003
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
i := Re.Lines.Count-1;
for j:=0 to i do
begin
MessageBox(Handle, PChar(´Esta é a linha ´ + IntToStr(j)+#13+Re.Lines.Strings[j]), ´´, MB_ICONINFORMATION+MB_OK);
//Re.Lines.Strings[j] <- Esta aqui a informação contida na linha.
end;
end;
var
i, j: Integer;
begin
i := Re.Lines.Count-1;
for j:=0 to i do
begin
MessageBox(Handle, PChar(´Esta é a linha ´ + IntToStr(j)+#13+Re.Lines.Strings[j]), ´´, MB_ICONINFORMATION+MB_OK);
//Re.Lines.Strings[j] <- Esta aqui a informação contida na linha.
end;
end;
GOSTEI 0
Aristodemo
06/09/2003
para ler as linhas diretamente do arquivo procure no help do delphi por TextFile que vc vai encontrar um exemplo
Abraços...
Abraços...
GOSTEI 0