0

私は私を夢中にさせている奇妙な問題を抱えています。プログラムを実行しようとすると、典型的なカルテルが「プログラムを見つけることができませんでした」と表示されます。エラーは、avast がアクティブなときに発生します。私がそれを使うとき、私はこれを手に入れます。

コードはこれを行うだけです：

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.

複雑ではないことがわかりますが、それは最悪です。

コードの何が問題なのか誰にも教えてもらえますか?

4

1 に答える 1

2

実行可能ファイルを IDE で実行できず、AV ソフトウェアをオフにすると問題が解決する場合は、AV ソフトウェアが作成されるとすぐにそれを削除している可能性があります。AV ソフトウェアで開発ディレクトリの例外 (除外) を作成します。

ただし、コードには重大な問題があります。probando_1または以外で呼び出された場合、何を返すと思いますaかb? 関数の結果を常に初期化するのは良い習慣です:

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;
于 2013-11-15T01:09:46.970 に答える