ActiveDelphi

[karlosrapanui]

Boa tarde a todos

Preciso setar o primeiro e o último registro de um arquivo texto e não estou sabendo como fazer isso.

Alguem poderia dar uma luz ?

[]'s

Carlos

Utilizo essa rotina

Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile('A:\ARQUIVO.TXT');
for i := 0 to Arquivo.Count - 2 do / - 2.....PEGA O CONTEUDO DO MEIO DO ARQUIVO - FUNCIONAL LEGAL
begin
Texto:= trim(Arquivo[i]);
if length(Texto) > 0 then
begin
nLin01 := Copy(Texto,01,01);
nLin02 := Copy(Texto,02,50);
IBDATASET1.Append;
IBDATASET1.FieldByName(CODIGO).value := nLin01;
IBDATASET1.FieldByName('NOME').value := nLin02;
IBDATASET1.Post;
end;
end;
finally
IBDATASET1.Close;
// FINAL DO CABEÇALHO