C++博客-Welcome to ErranLi's Blog!-随笔分类-Delphi

Delphi取整函数

erran — Sat, 13 Oct 2007 13:34:00 GMT

floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。
trunc 和 round 是 system unit 里的函数，缺省就可以用。
floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123
trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124
round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=124

erran 2007-10-13 21:34 发表评论

delphi : 相当与sscanf的函数ReadStrValues

erran — Thu, 07 Dec 2006 12:17:00 GMT

（引用）

{------------------------------------------------------------------------------}
{ procedure ReadStrValues                                                      }
{                                                                              }
{ 功能说明: 根据指定的分隔符将一个字符串分解为若干个子串                       }
{           如果传递的子串数量超过源串可以解析的字串数, 则多传的子串将置为空串 }
{ 参    数:                                                                    }
{   Str   : 待分解的字符串                                                     }
{   StrArr: 存放分解后的子串的数组, 以字符串指针数组传递                       }
{   Ch    : 分隔符定义, 缺省为 ";"                                             }
{------------------------------------------------------------------------------}
procedure ReadStrValues(Str: string; StrArr: array of PString; Ch: Char = ';');
var
I, StrLen, StrPos, ArrLen, ArrIndex: Integer;
begin
StrLen := Length(Str);      // 字符串长
ArrLen := Length(StrArr);   // 待取出的字符串个数
if ArrLen = 0 then Exit;    // 如果字符串指针数组中无元素，则直接退出

StrPos := 1; // 当前读到的字符串位置
ArrIndex := 0; // 当前字符串指针数组位置

// 此处将 Str 长度加1，用于后面判断是否已读完整个字串
for I := 1 to StrLen + 1 do
begin
    // 注意此处条件位置不可倒置(骤死式判断)
    if (I = StrLen + 1) or (Str[I] = Ch) then
    begin
      // 拷贝读到的字符串
      StrArr[ArrIndex]^ := Copy(Str, StrPos, I - StrPos);
      StrPos := I + 1;
      // 如果需要读的字符串指针数组已完成，则退出
      Inc(ArrIndex);
      if ArrIndex >= ArrLen then Exit;
    end;
end;

// 检查是否所有的字符串指针都读到了，如果没有读到，将被设置为空串
for I := ArrIndex to ArrLen - 1 do
StrArr[I]^ := '';
end;

{------------------------------------------------------------------------------}
{ 测试该函数 }
{------------------------------------------------------------------------------}

procedure TForm1.FormCreate(Sender: TObject);
const
SampleStr = '张三;男;41';
var
S1, S2, S3, S4: string;
begin
// 正常字串解析
S1 := 'S1'; S2 := 'S2'; S3 := 'S3'; S4 := 'S4';
ReadStrValues(SampleStr, [@S1, @S2, @S3]);
ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

// 待读字串少于源串内容测试
S1 := 'S1'; S2 := 'S2'; S3 := 'S3'; S4 := 'S4';
ReadStrValues(SampleStr, [@S1, @S2]);
ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

// 待读字串多于源串内容测试
S1 := 'S1'; S2 := 'S2'; S3 := 'S3'; S4 := 'S4';
ReadStrValues(SampleStr, [@S1, @S2, @S3, @S4]);
ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

// 待读字串为空测试
S1 := 'S1'; S2 := 'S2'; S3 := 'S3'; S4 := 'S4';
ReadStrValues(SampleStr, []);
ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));

// 源串为空测试
S1 := 'S1'; S2 := 'S2'; S3 := 'S3'; S4 := 'S4';
ReadStrValues('', [@S1, @S2, @S3]);
ShowMessage(Format('"%s", "%s", "%s", "%s"', [S1, S2, S3, S4]));
end;

erran 2006-12-07 20:17 发表评论

Delphi : 隐藏MDI子窗口带来的问题

erran — Thu, 07 Dec 2006 12:13:00 GMT

在delphi中隐藏MDI子窗口有两种方法：

1）发消息及调用ShowWindow函数：
      showwindow(childform.handle, sw_hide);　　// 隐藏子窗口
      showwindow(childform.handle, sw_restore); // 显示子窗口

缺点：使用windows api直接隐藏子窗口，其子窗口的visible属性和其显示状态是不一至的。当子窗口不可见时，其visible属性可能仍然是true。

2）重载子窗口的visiblechanging方法:
      private
      procedure visiblechanging; override;//重载

      procedure tchildform.visiblechanging;
      begin
          <使用组件属性隐藏子窗口时，需要重载此过程，并且不执行任何继承代码，否则将报错>
          //inherited; 不能执行此语句！
      end;
      此后就可以直接设置visible属性了：
      childform.visible:=false;//隐藏子窗口
　 childform.visible:=true; //显示子窗口

缺点：当子窗口隐藏了后，有些控件的数据没有办法取到，如 TListView, 为这个问题曾经郁闷了很久，不知道是什么原因。例如：子窗口上listview已经有了10行数据，当利用方法2）把使得子窗口不可见了后，调用childform.listview.items.count结果总是0，但是显示此子窗口后10行数据还是在此listview中。

所以使用1），在程序中不要调用visible属性。
使用2），在子窗口隐藏了后不要去取该子窗口的数据。

erran 2006-12-07 20:13 发表评论

标记:回车换焦点

erran — Fri, 01 Dec 2006 05:34:00 GMT

回车换焦点
if Key = VK_Return then
    begin
        OnEditExit(Sender);
        //Perform(WM_NEXTDLGCTL, 0, 0);
    end;

erran 2006-12-01 13:34 发表评论

双缓冲绘图

erran — Sat, 25 Nov 2006 01:23:00 GMT

VC 双缓冲绘图

BOOL CGraphDlg::OnDraw(CDC* pDC)

{

CRect rc;

GetClientRect(&rc);

CDC MemDC;

CBitmap MemBitmap;

MemDC.CreateCompatibleDC(NULL);

MemBitmap.CreateCompatibleBitmap(pDC, rc.Size().cx,rc.Size().cy);

CBitmap *pOldBit=MemDC.SelectObject(&MemBitmap);

MemDC.BitBlt(0,0,rc.width, rc.height, pDC,0,0,SRCCOPY);

m_pGraph->SetGraphDC(&MemDC);

m_pGraph->DoGraphShowEvent();

pDC->BitBlt(0,0, rc.Size().cx,rc.Size().cy,&MemDC,0,0,SRCCOPY);

MemDC.SelectObject(pOldBit);

MemBitmap.DeleteObject();

MemDC.DeleteDC();

}

Delphi 双缓冲绘图：

procedure TBkCoordi.Draw(Canvas : TCanvas);

var

_bmp : TBitmap;

_width, _height : integer;

_top, _left : integer;

begin

_width := Round(m_width);

_height := Round(m_height);

_left := Round(m_topleft.x);

_top := Round(m_topleft.y);

_bmp := Tbitmap.Create;

_bmp.Handle := CreateCompatibleDC(Canvas.Handle);

_bmp.Width := _width;

_bmp.Height := _height;

BitBlt(_bmp.Canvas.Handle,0,0,_width,_height, Canvas.Handle,_left,_top,SRCCOPY);

if m_showcross then m_cross.Draw(_bmp.Canvas);

if @OnDrawing <> nil then OnDrawing(_bmp.Canvas);

BitBlt(Canvas.Handle,_left,_top,_width,_height, _bmp.Canvas.Handle,0,0,SRCCOPY);

_bmp.Free;

end;

erran 2006-11-25 09:23 发表评论