|
procedure TFSelPartidas.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var posicion: integer;
begin
if (key = ' ') and ( not WEdicion) then // si se pulsa espacio, se añade o borra el id
begin
posicion:= memo1.LineS.IndexOf(QTarifas.FieldByName('IdTarifa').AsString);
if posicion < 0 then Memo1.Lines.Add(QTarifas.FieldByName('IdTarifa').AsString)
else Memo1.Lines.Delete(posicion);
DBGrid1.Repaint;
end;
if not WEdicion then
StatusBar1.PAnels[0].Text:= 'Seleccionadas '+inttoStr(Memo1.lines.Count)+' partidas';
end;
Hola quiero seleccionar varias filas indistintamente de su orden dentro de un DBGrid, lo mismo que se explica en este ejemplo, pero la me da error en "(not WEdicion), a qué puede ser debido
|