| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

AV в Add у потомка TObjectList — откуда?

Kolan ©   (2007-06-15 21:09:00) 

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

TUnitList = class(TObjectList);

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

---

Плохиш   (2007-06-16 02:50:00) [1]

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

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

---

oxffff   (2007-06-15 21:26:00) [2]

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

---

Kolan   (2007-06-15 21:24:00) [3]

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

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

---

Kolan   (2007-06-15 21:24:00) [4]

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

Те я забыл просто…

---

oxffff   (2007-06-15 21:23:00) [5]

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

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

---

Kolan   (2007-06-15 21:22:00) [6]

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

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

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

---

Kolan   (2007-06-15 21:20:00) [7]

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:00) [8]

FUnitsFileNames создается?

---

oxffff   (2007-06-15 21:19:00) [9]

FUnitList создается?

---

Kolan   (2007-06-15 21:18:00) [10]

А где остальной код?
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:16:00) [11]

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

---

Наверх