디스플레이 기능 결과

Question

나는 프로그램을 실행하려고 할 때 '프로그램을 찾을 수 없습니다'라는 일반적인 카르텔을 나타납니다. avast가 활성 상태 일 때 오류가 발생합니다. avast program amiss를 사용하지 않도록 설정합니다.하지만 사용하면 얻을 수 있습니다.

코드는이 작업을 수행 :

program Project1; 
{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    pagina1,pagina2: string; 

function probando_1(url, parte: string): string; 
begin 
    if (parte = 'a') then 
    begin 
    Result := 'test'; 
    end; 
    if (parte = 'b') then 
    begin 
    Result := 'test'; 
    end; 
end; 

begin 

    pagina1 := 'http://www.test.com/zzz/test.php'; 

    try 

    WriteLn(probando_1(pagina1, 'a')); 
    WriteLn(probando_1(pagina1, 'b')); 

    readln; 

    except 
    on E: Exception do 
     WriteLn(E.ClassName, ': ', E.Message); 
    end; 

end. 

을 당신이 복잡하지 않고 그 최악의 참조하십시오.

누구든지 코드에서 잘못된 점을 알 수 있습니까?

Answer 1

IDE에서 실행 파일을 실행할 수 없으며 AV 소프트웨어를 끄면 문제가 해결됩니다. AV 소프트웨어가 생성되면 즉시 삭제할 수 있습니다. AV 소프트웨어에서 개발 디렉토리에 대한 예외 (제외)를 생성하십시오.

그러나 코드에 심각한 문제가 있습니다. a 또는 b이 아닌 다른 것으로 호출 된 경우 probando_1이 무엇을 반환 할 것이라고 기대합니까? 실행이 IDE에 의해 실행하고 AV 소프트웨어를 해제하면 문제가 사라하게 할 수없는 경우 AV 소프트웨어는 아마 삭제되고,

function probando_1(url, parte: string): string; 
begin 
    Result := 'nothing'; { or Result := ''; } 
    if (parte = 'a') then 
    begin 
    Result := 'test'; 
    end; 
    if (parte = 'b') then 
    begin 
    Result := 'test'; 
    end; 
end;