Скачать: CL | DM;

Почем 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) 

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

---

← →
boa_kaa ©   (2010-03-31 09:23) [6]

> boa_kaa ©   (31.03.10 09:22) [5]

это + к

> TUser ©   (30.03.10 22:58) [1]

---

← →
Игорь Шевченко ©   (2010-03-31 10:56) [7]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.95 c