Fórum Como Atribuir um valor a um StringGrid. #197453
27/11/2003
0
Oi, pessoal....
Tenho um função (func01) que me retorna uma Lista com dois valores (por ex: Carro e placa). Este resultado é um String Grid.
em um procedimento mando um StringGrid receber esta função..
StgTela := Func01;
Este código acima não funciona!
Gostaria de saber se o melhor resultado da função é um StringGrid mesmo, e
pq o codigo acima não funciona...
Qualquer ajuda é muito bem vinda.......
Faloww
Tenho um função (func01) que me retorna uma Lista com dois valores (por ex: Carro e placa). Este resultado é um String Grid.
em um procedimento mando um StringGrid receber esta função..
StgTela := Func01;
Este código acima não funciona!
Gostaria de saber se o melhor resultado da função é um StringGrid mesmo, e
pq o codigo acima não funciona...
Qualquer ajuda é muito bem vinda.......
Faloww
Lucas Silva
Curtir tópico
+ 0
Responder
Posts
27/11/2003
Ltres
Cara coloca a função completa ai pra gente ver onde esta o erro... talves o q ela retoner não seja um stringgrid mas sim um record..
Responder
Gostei + 0
27/11/2003
Lucas Silva
Ela tá retornando um StringGrid sim....
function TForm1.Consulta: TStringGrid
begin
Result := TStringGrid.Create;
.....
aqui vai o sql...
.....
for i:= 1 to recordCount do
begin
Result.RowCount := Result.RowCount + 1;
Result.Cells[0,i] := FieldByName(´CAR_PLACA´).AsString;
Result.Cells[1,i] := FieldByName(´CAR_NOME´).AsString;
end;
end;
o ´FieldByName(´CAR_NOME´).AsString´ e o ´FieldByName(´CAR_PLACA´).AsString´ estão trazendo o Valor correto....
function TForm1.Consulta: TStringGrid
begin
Result := TStringGrid.Create;
.....
aqui vai o sql...
.....
for i:= 1 to recordCount do
begin
Result.RowCount := Result.RowCount + 1;
Result.Cells[0,i] := FieldByName(´CAR_PLACA´).AsString;
Result.Cells[1,i] := FieldByName(´CAR_NOME´).AsString;
end;
end;
o ´FieldByName(´CAR_NOME´).AsString´ e o ´FieldByName(´CAR_PLACA´).AsString´ estão trazendo o Valor correto....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)