帮我看看这些程序吧

Question

function TDBRecord.CheckQuot(sInfo : string; bIsAdd : boolean) : string;
var
    s: string;
    i : integer;
begin
    if pos('''',sInfo) = 0 then   result := sInfo;
    s := '';
    for i := 1 to length(sInfo) do
    begin
        if sInfo[i] = '''' then
        begin
            if  bIsAdd = true then
                s := s + ''''
            else
                continue;
        end;
        s := s + sInfo[i];
    end;
    result := s;
end;
帮我看上面的程序是什么意思   
pos('''',sInfo) = 0  是什么意思

Answer 1

老大发话了，我们还有什么话说