Problema con STringGrid
 

Holas de Nuevo compañeros del foro, como dice el titulo tengo un problema con stringgrid, pues es la primera vez que trabajo con ello, codigo:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
if Edit1.Text = '' then begin
     ShowMessage('Item no existe');
     end else begin
ZQuery1.Close;
ZQuery1.SQL.Add('Select item, codigo from items');
ZQuery1.SQL.Add(' where codigo = :cod');
ZQuery1.ParamByName('cod').Value:=Edit1.Text;
ZQuery1.Open;
 if not ZQuery1.IsEmpty then begin
  StringGrid1.Row := StringGrid1.Rowcount - 1;
  StringGrid1.Cells[0,StringGrid1.Row] := ZQuery1.Fields[0].Value;
  StringGrid1.Cells[1,StringGrid1.Row] := ZQuery1.Fields[1].Value;
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Edit1.Clear;
  Edit1.SetFocus;
  end else
      ShowMessage('Item no existe');
    end;
  end;
 end;

cuando inserto datos al stringgrid lo hace bien y me crea una nueva linea, pero cuando trato de insertar otro datos mas me tira el siguiente error:

que estoy haciendo mal?:confused::confused:

adjunto el codigo completo: Archivo Adjunto 994

Si observas, Mysql te está diciendo que el erro es por que en el where está entrando una comilla simple de más, revisa tu Edit.

Gracias poliburro por tu buen ojo me di cuenta que me faltaba un clear:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
if Edit1.Text = '' then begin
     ShowMessage('Item no existe');
     end else begin
ZQuery1.Close;
ZQuery1.SQL.Clear;<----AQUI
ZQuery1.SQL.Add('Select item, codigo from items');
ZQuery1.SQL.Add(' where codigo = :cod');
ZQuery1.ParamByName('cod').Value:=Edit1.Text;
ZQuery1.Open;
 if not ZQuery1.IsEmpty then begin
  StringGrid1.Row := StringGrid1.Rowcount - 1;
  StringGrid1.Cells[0,StringGrid1.Row] := ZQuery1.Fields[0].Value;
  StringGrid1.Cells[1,StringGrid1.Row] := ZQuery1.Fields[1].Value;
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  Edit1.Clear;
  Edit1.SetFocus;
  end else
      ShowMessage('Item no existe');
    end;
  end;
 end;

Muchas Gracias!!! :). me funciona de pelos..

Saludos.

siguiendo con el mismo hilo, me ocurre otro problema y es al intentar eliminar una fila especifica, aqui tengo un codigo de propiedad de seoane y que lo adapte para mis fines:

Código Delphi [-]
procedure EliminarFila(Grid: TStringGrid; Fila: Integer);
var
  i: integer;
begin
  if (Fila >= 0) and (Fila < Grid.RowCount)  then
  begin
    for i:= Fila to Grid.RowCount - 2 do
      Grid.Rows[i].Assign(Grid.Rows[i+1]);
    Grid.RowCount:= Grid.RowCount - 1;
  end;
end;

el codigo funciona al eliminar pero no elimina la fila especifica la que selecciono sino el primero. Existe una mejor solucion?

Saludos..