Что не так? Выдает Access Violation на 0000 0000

← →
Экспериментатор (2006-04-17 12:49) [0]

TSpreadStruct = class(TObject)
LongName : string;
Nic : string;
ID : integer;
end;

implementation

uses rxStrUtils, IniFiles, SelVend;

{$R *.dfm}

procedure Tfrm_SpreadSheetOptions.sb_AddClick(Sender: TObject);
var
sNicName, sItemName, sTemp : string;
SpreadStruct : TSpreadStruct;
ClickedOK: Boolean;
begin
try
VendsDlg:= TVendsDlg.Create(Application);
VendsDlg.SetWideSize;
if VendsDlg.ShowModal=mrOk then
begin
SpreadStruct:=TSpreadStruct.Create;
SpreadStruct.LongName:=VendsDlg.SelectionName;
SpreadStruct.Nic:=VendsDlg.SelectionName;
SpreadStruct.ID:=VendsDlg.SelectedNo;
sNicName:=VendsDlg.SelectionName;
if InputQuery("Ввод краткого наименования","Краткое имя", sNicName) then SpreadStruct.Nic:=Copy(sNicName, 1, 15);
lb_ListOrg.AddItem(LeftStr(SpreadStruct.Nic, 15)+^I+SpreadStruct.LongName, TObject(SpreadStruct));
lb_ListOrg.ItemIndex:=lb_ListOrg.Items.Count-1;

end;
finally
VendsDlg.Free;
end;
end;

lb_ListOrg - это TListBox - отображает строки в два столбца (использую символ TAB - ^I и свойство TabWidth)
запись вставляется и отображается, но при этом выдается сообщение об ошибке.
Уже не знаю что и думать.

← →
Сергей М. © (2006-04-17 13:08) [1]

Какая конкретно строчка приводит к AV ?

p.s.

VendsDlg:= TVendsDlg.Create(Application);
try
....
finally
VendsDlg.Free;
end;

почувствуй разницу.

← →
Экспериментатор (2006-04-17 13:21) [2]

О блин,
где мои глаза.
Счас

Что не так? Выдает Access Violation на 0000 0000 Найти похожие ветки