Fórum Para quem Entende ........StringGrid......... #239159

Pessoal e o seguinte....Tenho duas Tabela [b:b0c1449218](Cliente e ReuniãoFunc)[/b:b0c1449218][b:b0c1449218]Quero marca uma reunião para varios funcionarios ao mesmo tempo...[/b:b0c1449218]
Faço uma consulta na tabela Cliente o Resultado sai na DBGrid1....

No Resultado da Consulta da DBGrid1, Selecionar o Funcionario que vai para Reunião,Dando um duplo Click(DBGrid1) no funcionario selecionado... e vai para StringGrid onde vai ser armazendo na tabela ReuniãoFunc

--------------------------------------------------
procedure TFrmReuniao.DBGrid1DblClick(Sender: TObject);
var I :Integer;
begin
For I:= 1 to stringGrid1.Rowcount do
If StringGrid1.Cells[1,I] = ´´ then
begin
StringGrid1.Cells[1,I] := DBGrid1.fields[0].Value;
StringGrid1.Cells[2,I] := DBGrid1.fields[1].Value;
StringGrid1.Cells[3,I] := DBGrid1.fields[2].Value;
Exit;
end;
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,StringGrid1.RowCount-1] := DBGrid1.fields[1].AsString;
// Ate aqui sem problema ......
end;

---------------------------------------------
armazena todos registro da StringGrid....Pôr Exemplo : 10 funcionário ...armazena todos....
Só que ta dando um Problema(mistério) é ..... [b:b0c1449218]´ is not a valid integer value.[/b:b0c1449218]
Eu já fiz de tudo....não consigo resolver...
Serra que é pôr causa da variável ´ I ´ que e integer ?.....Olha o código abaixo


procedure TFrmReuniao.btnSalvaClick(Sender: TObject);
var I :Integer;
begin
For I:= 1 to stringGrid1.Rowcount do
begin
Table1.Insert;
Table1.Edit;
Table1.FieldByName(´CodFuncionario´).Value:=strToInt(StringGrid1.Cells[1,I] );
Table1.FieldByName(´NomeFunc´).Value:=StringGrid1.Cells[2,I];
Table1.FieldByName(´Horario´).Value:=strToTime(StringGrid1.Cells[3,I]);
Table1.FindNext;
Table1.Insert;
end;
Table1.Post;
end;