Segue o código:
procedure TfrmGrid.btnLoadClick(Sender: TObject);
var
txt: TextFile;
l, treg : integer;
lTemp: String;
begin
treg := 1;
l:= 0;
AssignFile(txt, lbCaminho.Caption);
Reset(txt);
while not eof(txt) do
begin
Readln(txt, lTemp);
if (copy(lTemp, 1, 3)= 'E14') then
begin
inc(treg);
sgCupons.RowCount:=treg;
inc(l);
//COO
sgCupons.Cells[0,l] := copy(lTemp,53 ,6);
//CCF
sgCupons.Cells[1,l] := copy(lTemp,47 ,6);
//S/N
sgCupons.Cells[2,l] := copy(lTemp,4, 20);
//DATA
sgCupons.Cells[3,l] := copy(lTemp,59, 8);
end;
end;
CloseFile(txt);
ShowMessage('Existem '+IntToStr(treg)+' linhas.');
end;
Fiz esse código com o intuito de ler o TXT e atribuir as linhas da sringGrid. Mas o problema agora é que eu quero evitar que o usuário venha ler um arquivo indevido, como um txt qualquer.
Então, eu pensei nesse código:
AssignFile(txt, lbCaminho.Caption);
Reset(txt);
if (copy(lTemp, 1, 3)= 'E09')
and (copy(lTemp, 1, 3)= 'E10')
and (copy(lTemp, 1, 3)= 'E11')
and (copy(lTemp, 1, 3)= 'E12')
and (copy(lTemp, 1, 3)= 'E13')
and (copy(lTemp, 1, 3)= 'E14')
and (copy(lTemp, 1, 3)= 'E15')
and (copy(lTemp, 1, 3)= 'E21')
then
begin
// O codigo acima viria aqui.
end
else
ShowMessage('Arquivo .TXT inválido.');
CloseFile(txt);
Porem ele entra em um loop e diz que todo arquivo txt é invalido, ou seja, da erro de entrada e saida.
Alguém poderia me ajudar?
and
que você quer, e não umor
? (não entendo Delphi, mas me parece que você está testando um intervalo por alguns valores possíveis - e gostaria que entrasse noif
se qualquer um desses valores estiver presente. Entendi certo?)