program xe2_str_2xFree;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils, StrUtils, IOUtils;

var
  rFile, Simulated_Call: string;

procedure Test(const EventKind: Byte; const FileName: string);
var
  data, TestTest: string;
begin
  // TestTest := FileName; // Fix bug
  case EventKind of
    2:
      begin
        Test(1, Simulated_Call);
        exit;
      end;
    1:
      begin
        Simulated_Call := '';

        if EndsText('.dproj', FileName) then
          Simulated_Call := ChangeFileExt(FileName, '.dpr');

        data := TFile.ReadAllText(FileName);
      end;
  end;
end;

begin
  try
    try
      rFile := ChangeFileExt(ParamStr(0), '.DProj');
      Test(1, rFile);
      Test(2, rFile);

      Writeln('Finished w/o Illegal Pointer Operation');

    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Writeln;
    Writeln('Read the output. Press ENTER to terminate the program.');
    Readln;
  end;

end.

procedure Test(const EventKind: Byte; const FileName: string);
var
  data, TestTest: string;
begin
  // TestTest := FileName; // Fix bug
  case EventKind of
    2:
      Test(1, Simulated_Call);
    1:
      begin
        Simulated_Call := '';

        if EndsText('.dproj', FileName) then
          Simulated_Call := ChangeFileExt(FileName, '.dpr');

        data := TFile.ReadAllText(FileName);
      end;
  end;
end;

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils, StrUtils, IOUtils;

var
  rFile, Simulated_Call: string;

procedure ReadStr(const FileName: string);
begin
  Writeln(FileName);
  TFile.ReadAllText(FileName); // Bug
end;

procedure Test(const EventKind: Byte; const FileName: string);
var
  TestTest: string;
begin
  // TestTest := FileName; // Fix bug
  case EventKind of
    2:
      Test(1, Simulated_Call);
    1:
      begin
        Simulated_Call := '';

        if EndsText('.exe', FileName) then
          Simulated_Call := ChangeFileExt(FileName, '.dpr');

        ReadStr(FileName);
      end;
  end;
end;

begin
  try
    try
      rFile := ParamStr(0);
      Test(1, rFile);
      Test(2, rFile);

      Writeln('Finished w/o Illegal Pointer Operation');

    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Writeln;
    Writeln('Read the output. Press ENTER to terminate the program.');
    Readln;
  end;

end.

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils, StrUtils, IOUtils;

var
  rFile: string;

function TestBUG(const S: string): string;
begin
  Exit(S);
end;

procedure Test(const EventKind: Byte; const FileName: string);
begin
  rFile := '';

  if EndsText('.exe', FileName) then
    rFile := ChangeFileExt(FileName, '.dpr');

  if TestBUG(FileName) <> '' then
  begin
  end;
end;

begin
  try
    try
      rFile := ParamStr(0);
      Test(1, rFile);

    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Writeln;
    Writeln('Read the output. Press ENTER to terminate the program.');
    Readln;
  end;

end.

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils;

var
  rFile: string;

function TestBUG(const S: string): string;
begin
  Result := S;
end;

procedure Test(const EventKind: Byte; const FileName: string);
begin
  rFile := FileName.SubString(0, Length(FileName)); // Получим новую строку 

  TestBUG(FileName); // Попробуем обратится к старому указателю 
 
end; // Фаталити 

begin
  try
    try
      rFile := ParamStr(0);
      Test(1, rFile);

    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Writeln;
    Writeln('Read the output. Press ENTER to terminate the program.');
    Readln;
  end;

end.