TEdit的 Clear 和赋值 ''-白红宇

TEdit的 Clear 和赋值 ''

阅读量：5159 次

发布时间：2019-06-13

本文共 405 字，大约阅读时间需要 1 分钟。

function TControl.GetText: TCaption;var  Len: Integer;begin  Len := GetTextLen;  SetString(Result, PChar(nil), Len);  if Len <> 0 then GetTextBuf(Pointer(Result), Len + 1);end;procedure TControl.SetText(const Value: TCaption);begin  if GetText <> Value then SetTextBuf(PChar(Value));end;

procedure TCustomEdit.Clear;begin  SetWindowText(Handle, '');end;

转载于:https://www.cnblogs.com/CodeGear/p/4604232.html

你可能感兴趣的文章

CVE-2014-6321 && MS14-066 Microsoft Schannel Remote Code Execution Vulnerability Analysis

查看>>

给一次重新选择的机会_您还会选择程序员吗？

编译原理 First，Follow，select集求法