function TForm_Connect.JudgeSign(sText :AnsiString):AnsiString; var AnsiString_Change,AnsiString_Result :AnsiString; i :integer; begin AnsiString_Result:=''; for i := 0 to Length(sText) do begin if Copy(sText,i,1)='''' then AnsiString_Change := '‘' else AnsiString_Change := Copy(sText,i,1); AnsiString_Result := AnsiString_Result + AnsiString_Change; end;
Result:=AnsiString_Result; end;
Result相当于一个类型为所在函数的类型的实例.可参照以下代码:function GetString: string; begin Result := 'string';end;function GetListString: TListString; begin Result := TListString.Create; Result.Add('1'); end;... aa\
var
AnsiString_Change,AnsiString_Result :AnsiString;
i :integer;
begin
AnsiString_Result:='';
for i := 0 to Length(sText) do
begin
if Copy(sText,i,1)='''' then
AnsiString_Change := '‘'
else
AnsiString_Change := Copy(sText,i,1);
AnsiString_Result := AnsiString_Result + AnsiString_Change;
end;
Result:=AnsiString_Result;
end;
begin
Result := 'string';end;function GetListString: TListString;
begin
Result := TListString.Create;
Result.Add('1');
end;...
aa\