Busca com SQL e preenchimento de arquivo texto

[malereis 0]

Olá pessoal.

Boa tarde...

 

Tenho que gerar um arquivo texto a partir de dados contidos em uma tabela.

Nesta tabela há os seguintes campos.

 

Codpeca, Diamferram, CoordX, CoordY, ZProf.

 

Daí gero o seguinte aquivo texto

 

 

T01

X0000120Y0000060Z0000005

T02

X0000080Y0000060Z0000005

X0000040Y0000060Z0000005

X0000040Y0000060Z0000005

X0000040Y0000060Z0000005

T03

X0000130Y0000060Z0000004

X0000100Y0000060Z0000004

T04

X0000120Y0000060Z0000005

Neste caso, a procedure está lendo a tabela toda.

O campo CodPeca para T01 e T03, por exemplo é Cod001

O campo CodPeca para T01 e T03, por exemplo é Cod002.

Preciso gerar o arquivo texto, mas filtrando os T0, T1, Tx, pelo código da peça e dai gerar o artquivo texto.

Então se em um Campo edit (codigo Peça) eu escrever Cod002, vai gerar o texto

T01

X0000120Y0000060Z0000005

T03

X0000130Y0000060Z0000004

X0000100Y0000060Z0000004

Tentei com SQL, mas não está saindo corretamente.

A procedure que uso é esta abaixo.

Alguma santa alma pode ajudar?

Agradeço e muito

procedure TForm1.btnCriaArqTextoClick(Sender: TObject);

var

Str1, Str2 : String;

begin

if TableCorte.IsEmpty then

begin

Showmessage('Tabela Vazia');

exit;

end;

TableCorte.First;

Memo1.Clear;

while not TableCorte.Eof do

begin

Str1 := tableCorte.FieldByName('DiamFerram').AsString;

if Str2 <> Str1 then

begin

Str2 := Str1;

Memo1.Lines.Add(Str2);

end;

Memo1.Lines.Add('X' + PreencheCaractereEsq(TableCorte.FieldByname('FuroCoordX').AsString, '0', 7) +

'Y' + PreencheCaractereEsq(TableCorte.FieldByname('FuroCoordY').AsString, '0', 7) +

'Z' + PreencheCaractereEsq(TableCorte.FieldByname('FuroProfZ').AsString, '0', 7));

TableCorte.Next;

end;

end;

 

[Motta 645]

TableCorte.First := "CODPECO ='T01'";

 

Algo assim , usando a propety filter, a dúvida é mais Delphi creio.

 

 

[Eisenheim 67]

Olá amigo.

 

Sinceramente não compreendi muito bem o que você precisa fazer.

 

Se puder explicar novamente detalhando um pouco mais sobre o que precisa quem sabe eu possa te ajudar.

 

Até a próxima. :thumbsup:

[Motta 645]

Na property "filter" do Compoment atribua o conteúdo

 

"CODPECO ='T01'"

 

só tenho dúvidas em relação a síntaxe das aspas (duplas e simples)

 

No post #2 o correto seria

 

 

 

TableCorte.Filter := "CODPECO ='T01'";