关于函数的问题

Question

function TfrmYKDFJGD.tyCode: String;
var
 s:string;
begin     
     tyCode := '00';
     s:=tyCode;
end;
函数这样写有错吗，为啥

Answer 1

语法上没错.但结果会导致堆栈溢出。因为无穷递归调用。将函数体内的tyCode改成Result。

Answer 2

function TfrmYKDFJGD.tyCode: String; 
var 
s:string; 
begin    
    tyCode := '00'; 
    s:=tyCode; 
    result := s;
end; 

Answer 3

当然错误，正确如下function TfrmYKDFJGD.tyCode: String; 
var 
s:string; 
begin    
    S := '00';      
    result := s; 
end;