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

Что не так? Выдает 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]

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

---

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

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



Память: 0.45 MB
Время: 0.039 c