方法怎么返回值，以及在另一方法中怎么接收返回值

Question

比如 我有方法 function1() 然后要求返回一个字符串的值 STR:string;
     然后有另一方法 function2() 方法中有一字符串变量 str2=''; 
     我在方法 function2 中调用方法 function1 我要str2:=str2+function1返回的字符串。请问function1 中的返回值语句怎么写，
然后function2 中的接收返回值语句怎么写？转Delphi 没多久 问的问题可能太简单，还请高手说的详细点。
     

Answer 1

function function1 :string;
begin
  Result := 'abc';
end;function function2 :string;
var
  str2:string;
begin
  str2:=str2+function1;
  Result := str2;
end;

Answer 2

但是我的方法是这样定义的
procedure TfmReportToolRepairQuery.checkCondition();
var sSql:string;
begin
   ..........
   ..........
   Result:=sSql;
end;这样可以么

Answer 3

procedure 是没有返回值的，你要弄清楚procedure 和function的区别

Answer 4

如果非要用procedure，可以用形参
procedure TfmReportToolRepairQuery.checkCondition(var sql:string);
sql就是返回值