亚洲第一综合天堂另类专,亚洲精品国产精品国自产观看,亚洲精品国偷自产在线99热

Delphi取整函数

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

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

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

delphi : 相当与sscanf的函数ReadStrValues

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

�Q�引用）

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

StrPos := 1; // 当前��d��的字�W�串位置
ArrIndex := 0; // 当前字符串指针数�l�位�|?/p>

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

// ��查是否所有的字符串指针都��d��了，如果没有��d��Q�将被设�|��ؓ�I�Z��
for I := ArrIndex to ArrLen - 1 do
StrArr[I]^ := '';
end;

{------------------------------------------------------------------------------}
{ ��试该函�?nbsp; }
{------------------------------------------------------------------------------}

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子窗口有两种�Ҏ��Q?br>
1�Q�发消息及调用ShowWindow函数�Q?br>      showwindow(childform.handle, sw_hide);　　// 隐藏子窗�?br>      showwindow(childform.handle, sw_restore); // 昄��子窗�?br>
�~�点�Q��用windows api直接隐藏子窗口，其子�H�口的visible属性和其显�C�状态是不一至的。当子窗口不可见�Ӟ��其visible属性可能仍然是true�?br>

2�Q�重载子�H�口的visiblechanging�Ҏ��:
      private
      procedure visiblechanging; override;//重蝲

      procedure tchildform.visiblechanging;
      begin
          <使用�l��g属性隐藏子�H�口�Ӟ��需要重载此�q�程�Q��ƈ且不执行��M��l�承代码�Q�否则将报错>
          //inherited; 不能执行此语句！
      end;
      此后��可以直接设�|�visible属性了�Q?br>      childform.visible:=false;//隐藏子窗�?br>　 childform.visible:=true; //昄��子窗�?br>
�~�点�Q�当子窗口隐藏了后，有些控�g的数据没有办法取刎ͼ��?TListView, ��个问题曾�l�郁闷了很久�Q�不知道是什么原因。例如：子窗口上listview已经有了10行数据，当利用方�?�Q�把使得子窗口不可见了后�Q�调用childform.listview.items.count�l�果��L��0�Q�但是显�C�此子窗口后10行数据还是在此listview中�?br>
所以��?�Q�，在程序中不要调用visible属性�?br>使用2�Q�，在子�H�口隐藏了后不要��d��该子�H�口的数据�?br>

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

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

回�R换焦�?br>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 双缓冲绘�?/span>

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 发表评论