Como Atribuir um valor a um StringGrid.
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
Curtidas 0
Respostas
Ltres
27/11/2003
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..
GOSTEI 0
Lucas Silva
27/11/2003
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....
GOSTEI 0