Segue o código:
procedure TfrmGrid.sgCuponsDblClick(Sender: TObject);
var
txt: TextFile;
l, i : integer;
lTemp, CFF, COO: String;
begin
i:=0;
l:=0;
CFF := sgCupons.Cells[0,sgCupons.Row];
COO := sgCupons.Cells[1,sgCupons.Row];
AssignFile(txt, lbCaminho.Caption);
Reset(txt);
while not eof(txt) do
begin
Readln(txt, lTemp);
if (copy(lTemp, 1, 3) = 'E15')
and (copy(lTemp,47,6 = CFF))
and (copy(lTemp,53,6) = COO)
then
begin
inc(i);
sgItens.RowCount:=i;
ShowMessage(CFF+' '+COO);
end;
end;
CloseFile(txt);
ShowMessage('Existem '+IntToStr(i)+' linhas.');
if (sgCupons.Row <> 0) then
begin
AssignFile(txt, lbCaminho.Caption);
Reset(txt);
while not eof(txt) do
begin
Readln(txt, lTemp);
if (copy(lTemp, 1, 3) = 'E15')
and (copy(lTemp,47,6) = CFF)
and (copy(lTemp,53,6) = COO)
then
begin
sgItens.Enabled := True;
inc(l);
//Ordem
//sgItens.Cells[0,l] := copy();
//Codigo
sgItens.Cells[1,l] := copy(lTemp,62 ,14);
//Descricao
sgItens.Cells[2,l] := copy(lTemp,76, 100);
//Qtde
sgItens.Cells[3,l] := copy(lTemp,176, 7);
//Pr. Unitario
sgItens.Cells[4,l] := copy(lTemp, 186, 8);
//Pr. Total
sgItens.Cells[5,l] := copy(lTemp, 210, 14);
//Antiquota
sgItens.Cells[6,l] := copy(lTemp, 0, 0);
end;
end;
CloseFile(txt);
end;
if not (sgCupons.Row <> 0) then
sgItens.Enabled := false;
end;
De fato, esta faltando algo, mas, eu gostaria que os senhores me ajudassem...
O que eu quero é o seguinte, no primeiro StringGrid tem os Cupons(E14), e os Cupons tem subitens(E13), ou seja, quando eu clicar duas vezes em um cupom(StringGrid1), os subitens do cupom selecionado iriam para a StringGrid2.
Eu sei que é basicamente um loop, mas alguem tem alguma sugestão ou idéia?
O codigo informado é dos subitens