：？？？在dbgrid框中，如何用上箭头从第一条记录移到最后一条记录；用下箭头从最后一条记录移到第一条记录？？？

Question

procedure TForm1.FormKeyDown(Sender:TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=38 then
  begin
    if Table1.Bof then
      Table1.Lase
    else
      Table1.Prior;
  end;
  if Key=40 then
  begin
    if Table1.Eof then
      Table1.First
    else
      Table1.Next;
  end;
end;

Answer 1

一般都是li_zhifu(东北人)的写法　

Answer 2

procedure TForm1.FormKeyDown(Sender:TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=38 then
  begin
    if Table1.Bof then
      Table1.Last;
  end;
  if Key=40 then
  begin
    if Table1.Eof then
      Table1.First;
  end;
end;