如何使用控件名作为参数

Question

有2个Edit，一个提交按钮，提交时用函数PathCheck进行路径检查，看是否有':\'可我怎么样才能在？？？？？？地方引用Edit呢？详细点，菜菜~~~~
-----------------------------------------------------------------------
function PathCheck(Sender: Tobject):boolean;
begin
  if pos(':\',？？？？？？) <> 0;
  {我想写if pos(':\',Edit1.Text)<>0;}
  //或if pos(':\',Edit1.Text)<>0; 
end;

Answer 1

if pos(':\', edit1.text) <> 0 then就是这样，你的想法是对的难到这样你无法编译通过吗？

Answer 2

function TfrmMain.PathCheck(str:string):boolean;
begin
  if pos(':\',str) <> 0 then 
    //做你想做的，说你想说的
end;
procedure TfrmMain.cmdGLClick(Sender: TObject);
begin
   if pathcheck(edit1.text)=true then 
       showmessage('做了，说了')
   else
       showmessage('啥也没干成')；end;