如何给TWinControl 赋值 文本信息【散粪啦】

[hangzhou_hammer]

为什么它的 GetTextBuf() 不行？

有edit combobox 等

[xingyunmm]

procedure SetControlText(aText:String;sControl:TWinControl)
begin
if sControl is TEdit then
TEdit(sControl).Text:=aText;
end;

[喝口水]

procedure SetControlText(aText:String;sControl:TWinControl)
begin
if sControl is TEdit then
TEdit(sControl).Text:=aText;
if sControl is TCombobox then
TCombobox(sControl).text:=aText;
end;

[hsmserver]

var
p:array[0..255] of Char;
begin
Edit1.GetTextBuf(p,255);
//如果想传字符串参数的话，可以用这种方式写
//TWinControl(FindComponent('Combobox1')).GetTextBuf(p,255);
ShowMessage(p);
end;

[hsmserver]

赋值的话也可以用
Edit1.SetTextBuf(pchar('接分'));
ShowMessage(Edit1.Text);

//GetTextBuf是获取

[blazingfire]

type
  //为了能访问protected成员，继承一下TWinControl
  TWinControlCrack = class(TWinControl);

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  //把所有TWinControl的Text设为blazingfire;text属性通过
  //把Wincontrol强制转化为TWinControlCrack才能访问
  for i := 0 to ControlCount - 1 do
    if Controls[i] is TWinControl then
      TWinControlCrack(Controls[i]).Text := 'blazingfire';
end;