Tabela Temporária

[Guest Laysa Giovana]

Olá Pessoal,

Como estou começando a programar agora ainda estou apanhando

muito do Delphi... Por isso gostaria de saber como crio uma

tabela temporária.

Meu problema é o seguinte:

Tenho um formulário que possui 2 grids. O usuário digita a chave da pesquisa e

logo em seguida os registros aparecerão no grid de cima. A partir daí o usuário selecionará quais registros ele quer imprimir... o registro escolhido será adicionado no grid de baixo (que vai estar ligado com a tabela temporária)... e é aí que está o problema:

Tenho que criar, carregar e inserir os registros na tabela temporária e depois limpá-la.

Alguém pode me ajudar??? PLEASE!!!!!!!!!!!!!!!

[s3c]

type TTemp = record // Defina os cpos que quer imprimir

Cpo1:String;

Cpo2:Integer;

Cpo3:Double;

Cpo4:TDateTime;

end;

var rTemp:array of TTemp;

No evento em que você for adicionar no grid de baixo

var i:Integer; rTemp:array of TTemp;

begin

SetLength(rTemp, Length(rTemp)+1);

rTemp[High(rTemp)].Cpo1 := valor do cpo1

rTemp[High(rTemp)].Cpo2 := valor do cpo2

rTemp[High(rTemp)].Cpo3 := valor do cpo3

rTemp[High(rTemp)].Cpo4 := valor do cpo4

end;

Quando for imprimir

for i := 0 to High(rTemp) do // utilize

begin

rTemp.Cpo1

rTemp.Cpo2

rTemp.Cpo3

rTemp.Cpo4

end;

Para liberar

rTemp := nil;

[s3c]

Ops, o rTemp está definido 2 vezes.

Deixe somente a primeira.

[Arlon]

Tenho uma sugestão:

Porquê que ao invés de criar uma tabela temporária e imprimir o conteúdo da tabela, você não faz uma pesquisa com SQL na primeira tabela, joga o resultado num relatório e imprime esse relatório, eu acho q daria menos trabalho. Use um componente TQuery ao invés de gerar uma tabela temporária e sete as propriedades do relatório e de seus componentes QrDBText para o TQuery. Caso queira fazer isso, mas não saiba fazer a busca e/ou não saiba gerar um relatório posta ae que o pessoal te ajuda.