delphi Incompatible types: 'TWinControl' and 'String'

来源：百度知道 编辑：UC知道 时间：2024/05/21 18:00:59
procedure TForm1.Input(Content:string;Label:TLabel);
Var
Position:integer;
Edit_Con:TWinControl;
begin
if Content<>'' then
begin
Showmessage(RzLabel.Caption+'不能为空');
Position:=pos(chr(46),Content);
Edit_Con:=Copy(Content,1,Position-1);
Edit_Con.SetFocus;
Exit;
end;
end;

我的想法是这样的，判断Content是不是空，如果时空那么将焦点设到Content上，Content是随机输入的，可以使Edit，ComboBox,MaskEdit等类型的输入框，运行Edit_Con:=Copy(Content,1,Position-1)时会报错，[Error] Unit1.pas(500): Incompatible types: 'TWinControl' and 'String';请高手帮忙看看该怎么改？或者要实现这个想法的其他方法。先谢了！

procedure TForm1.Input(Content:string;Label:TLabel);
Var
Position:integer;
Edit_Con:TWinControl;
begin
if Content<>'' then
begin
Showmessage(RzLabel.Caption+'不能为空');
Position:=pos(chr(46),Content);
Edit_Con.Caption:=Copy(Content,1,Position-1);
Edit_Con.SetFocus;
Exit;
end;
end;