如何临时存储一串数据

[achilles22]

如何临时记录鼠标在控件上点击的一系列坐标，然后保存到数据库里。

[litangel]

在控件的MouseDown事件里，把x,y值记下来，存到库里就可以了。

有什么难的吗？

[wudi_1982]

在PANEL上获得鼠标位置并记录的方法，
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Memo1.Lines.Add(Format('x:%d;y:%d',[x,y]))
end;

在DELPHI7,WINXP下测试通过

[achilles22]

type Tmapinfo=record
devicename:string;
zuobiaox:string;
zuobiaoy:string;
end;
var map1:Tmapinfo;

谢谢大家帮忙。