Почем Delphi 7 не произвести компиляцию.

← →
Masolin_gazin © (2010-03-30 22:37) [0]

При компиляции проекта выскакивает ошибка: Не возможно сохранить файл man.exe В текущей папке файлов с таким именем нет.

← →
TUser © (2010-03-30 22:58) [1]

1. Нет права на запись в текущую папку.
2. Переполнено место на диске.
3. Антивирус глючит.
4. Неверные сведения о том, какова текущая папка.

Это сходу в голову лезит. Особенно 3.

← →
TUser © (2010-03-30 23:03) [2]

Известно, что КАВ ругается на пустой проект (который по-умолчанию создается). И вот еще код, - закомментируй оба (но не один из) вызова RaiseForInvalidIndex, и AVG будет ругаться.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type
TMyClass = class
private
FArray: array [0..1] of integer;
function GetItem (Index: integer): integer;
procedure SetItem (Index: integer; Value: integer);
procedure RaiseForInvalidIndex (Index: integer);
public
property Items [Index: integer]: integer read GetItem write SetItem;
end;

function TMyClass.GetItem (Index: integer): integer;
begin
RaiseForInvalidIndex (Index);
result := FArray [Index];
end;

procedure TMyClass.SetItem (Index: integer; Value: integer);
begin
RaiseForInvalidIndex (Index);
FArray [Index] := Value;
end;

procedure TMyClass.RaiseForInvalidIndex (Index: integer);
begin
if (Index < Low (FArray)) or (Index > High (FArray)) then
raise Exception.Create ("Invalid index");
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
with TMyClass.Create do begin
for i := 1 to 5 do begin
Items[0] := i;
Label1.Caption := inttostr (Items[0]);
ShowMessage (inttostr (Items[0]));
end;
Free;
end;
end;

end.

← →
Германн © (2010-03-31 02:56) [3]

> Masolin_gazin © (30.03.10 22:37)
>
> При компиляции проекта выскакивает ошибка: Не возможно сохранить
> файл man.exe В текущей папке файлов с таким именем нет.
>

Что есть "текущая папка" в твоём понимании?

← →
Anatoly Podgoretsky © (2010-03-31 09:05) [4]

> Германн (31.03.2010 02:56:03) [3]

И какое отношение она имеет к проектам.

← →
boa_kaa © (2010-03-31 09:22) [5]

> Masolin_gazin © (30.03.10 22:37)

неправильно завершилась программа и висит в процессах

> Почем Delphi 7 не произвести компиляцию.

Ну заплати червонец, может не будет компилировать

Почем Delphi 7 не произвести компиляцию. Найти похожие ветки