Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: 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 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.109 c
2-1268987208
Den
2010-03-19 11:26
2010.08.27
Какое событие происходит?


15-1263936627
Юрий
2010-01-20 00:30
2010.08.27
С днем рождения ! 20 января 2010 среда


15-1269273636
Правильный$Вася
2010-03-22 19:00
2010.08.27
многосессионный диск - копирование образа


2-1271157207
Sergey2
2010-04-13 15:13
2010.08.27
экспорт в excel


15-1268838645
Дмитрий
2010-03-17 18:10
2010.08.27
IbExpert