小编Tin*_*ian的帖子

我有两个TDateTime变量，如下所示：

s := StrToDateTime('03/03/2017 10:10:12');
e := StrToDateTime('04/04/2017 10:10:12');

我需要找出它们之间的区别，hh:mm:ss格式。

这些...Between()功能在这里没有帮助我。

我想将二进制文件复制到剪贴板中,因此当用户右键单击屏幕时可以看到粘贴选项启用.软件正在很好地处理粘贴部分,我需要将文件复制到clpboard中.这是我第一次使用剪贴板我试过这段代码

Procedure CopyStreamToClipboard( fmt: Cardinal; S: TStream );
  Var
    hMem: THandle;
    pMem: Pointer;
  Begin
    S.Position := 0;
    hMem := GlobalAlloc( GHND or GMEM_DDESHARE, S.Size );
    If hMem <> 0 Then Begin
      pMem := GlobalLock( hMem );
      If pMem <> Nil Then Begin
        try
          S.Read( pMem^, S.Size );
          S.Position := 0;
        finally
          GlobalUnlock( hMem );
        end;
        Clipboard.Open;
        try
          Clipboard.SetAsHandle( fmt, hMem );
        finally
          Clipboard.Close;
        end;
      End { If }
      Else Begin
        GlobalFree( hMem );
        OutOfMemoryError;
      End;
    End { If }
    Else …