小编Gan*_*pat的帖子

我想画这样的球体:

下面的代码生成圆的顶点并在TIMAGE上绘制一个圆但我想要它用于SPHERE:

for i := 0 to 360 do begin 
   //Find value of X and Y 
   pntCordXY.X := Radius * Cos(DegToRad(i)); 
   pntCordXY.Y := Radius * Sin(DegToRad(i)); 
   if i = 0 then 
      image1.Canvas.MoveTo(Round(pntCordXY.X), Round(pntCordXY.Y)) 
   else 
      image1.Canvas.LineTo(Round(pntCordXY.X), Round(pntCordXY.Y)); 
end;

我想从以下HTML代码中的嵌套SPAN元素中获取文本:

<span id='result_box'>
<span class="hps">text_content</span>
</span>

我希望使用JavaScript获得"text_content"值.

我试过这个但有问题:

var resBox=document.getElementById('result_box');
var strTrans=resBox.getElementsByTagName('span')[0].innerHTML;
alert(strTrans);

编辑:其实我想从在线页面这样做

我想在MS Access上创建VIEW定义.我使用了以下CREATE VIEW声明:

SELECT 
   MFP.FollowUpPlan_Id, 
   MFP.FollowUpPlan_Name AS PlanName, 
   DFP.Sequence_No AS SequenceNo, 
   MFS.FollowUpSchedule_Name AS ScheduleName    
FROM 
   MAS_FollowUp_Plan AS MFP, 
   DET_FollowUp_Plan AS DFP, 
   MAS_FollowUp_Schedule AS MFS
WHERE 
   (((MFP.FollowUpPlan_Id)=DFP.FollowUpPlan_Id) AND
   ((DFP.FollowUpSchedule_Id)=MFS.FollowUpSchedule_Id)) AND
   MFP.is_Deleted = FALSE AND
   DFP.is_Deleted = false     
ORDER BY 
   MFP.FollowUpPlan_Id, DFP.Sequence_No;       

但它抛出一个错误:

Only Simple Select Queries are allowed in view.

请帮忙,先谢谢.

我在运行时获取"DateTimePciker.Date"的数值.但我想要像'08/10/2012'这样的价值.如何获取DATE值而不是数值？

显示运行时的图片:

我想在Delphi中制作服务应用程序,每天下午02:00运行和复制一些文件.所以我用过计时器.但控制不会进入计时器事件,服务会在15秒内终止.我在Timer Event上写了一段代码.我怎样才能使用定时服务？请帮忙.提前致谢.

我的代码在这里:

unit untMain;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs, Vcl.ExtCtrls, DateUtils, Vcl.Forms,
untCommon;

type
TsrvBackupService = class(TService)
tmrCopy: TTimer;
procedure tmrCopyTimer(Sender: TObject);

private
strlstFiles : TStringList;
{ Private declarations }
public
{ Public declarations }
end;

var
srvBackupService: TsrvBackupService;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
srvBackupService.Controller(CtrlCode);
end;


procedure TsrvBackupService.tmrCopyTimer(Sender: TObject);
var
strCurTime   : string;
strBKPpath   : string;
strBKPTime   : string;
NowDay       : word;
NowMonth     : word;
NowYear      : word;
NowHour      : word; …

我想从静态"TPoint数组"中删除/删除特定成员或元素.这该怎么做？

在二维中。我计算出距坐标的距离 7.071068：

1. (10, 10)
2. (15, 15)

但现在的问题是我想通过在第一点中添加距离来找到第二点。这个怎么做？