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

Вниз

AV в Add у потомка TObjectList — откуда?   Найти похожие ветки 

← →
Kolan ©   (2007-06-15 21:09) [0]

Как тут возможно AV?
function TUnitList.Add(TheUnit: TUnit): Integer;
begin
 Result := inherited Add(TheUnit);
end;

TUnitList = class(TObjectList);

А оно происходит. :(

---

← →
oxffff ©   (2007-06-15 21:16) [1]

А где остальной код?
TUnit?

---

← →
Kolan ©   (2007-06-15 21:18) [2]

А где остальной код?
TUnit?
У меня на компе :) (Что еще показать?)

Вот так добавление вызывается:
procedure TProject.Load;
var
 I: Integer;
begin
 for I := 0 to FUnitsFileNames.Count — 1 do
 begin
   FUnitList.Add(TUnit.Create(FUnitsFileNames[I]));
 end;
end;

---

← →
oxffff ©   (2007-06-15 21:19) [3]

FUnitList создается?

---

← →
Kolan ©   (2007-06-15 21:20) [4]

TUnit?

TUnit = class
 strict private
   FFileName: string;
   FUnitText: TStringList;
   FResourceStringList: TResourceStringList;
   FChanged: Boolean;
 strict protected
   function CreateResourceString(LineNumber: Integer; Value: string): TResourceString;
   procedure ResourceStringChange(TheString: TResourceString);
   procedure LoadStringsFromLine(S: string; LineNumber: Integer;
     ResourceStringList: TResourceStringList);
 public
   constructor Create(FileName: string);
   destructor Destroy; override;
   property Changed: Boolean read FChanged;
   procedure LoadUnit;
   procedure SaveUnit;
 end;

---

← →
oxffff ©   (2007-06-15 21:20) [5]

FUnitsFileNames создается?

---

← →
Kolan ©   (2007-06-15 21:22) [6]

> FUnitList создается?

Блин все перерыл. Ну думаю не может такого быть&#133 На новый D2007 грешил. Скомпилил в BDS&#133

Есссно не создается, благодарю, пошел спать. :)

---

← →
oxffff ©   (2007-06-15 21:23) [7]

Бряк ставил. Где AV?

Если создаешь FUnitList и FUnitsFileNames, то ошибка
Ошибка в constructor TUnit.Create(FileName: string);

---

← →
Kolan ©   (2007-06-15 21:24) [8]

> Если создаешь FUnitList и FUnitsFileNames, то ошибка

Все, все — все нормально, нашел. Вопрос закрыт.  FUnitList НЕ создовался&#133

---

← →
Kolan ©   (2007-06-15 21:24) [9]

> FUnitList НЕ создовался

Те я забыл просто&#133

---

← →
oxffff ©   (2007-06-15 21:26) [10]

Вот и чудненько.

---

← →
Плохиш ©   (2007-06-16 02:50) [11]

> На новый D2007 грешил. Скомпилил в BDS…

Одно радует, что Билла Гейтса не обвинил...

---

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

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

Наверх

Память: 0.49 MB
Время: 0.021 c