Scroll+Tlistbox

[IvaniuS]

Сообщение от Аватар

Посмотри свойство Capacity

нет такого свойства, работаю в Д7.

[northener]

Сообщение от IvaniuS

TValueListEditor - очень классная, универсальная, быстрая штука, НО вот столкнулся и решил уже проблему, но все-таки я не понимаю в чем загвоздка..

зависает и все - ноль реакциии, если дождаться - то OutOfMemory Exception - файл в 1.1мб....

Больше всего это зависание вкупе с последующим ЕOutOfMemory похоже на возникновение бесконечной рекурсии. Видеть бы в каком месте кода находится (находился) вызов

lsttyps.Strings.LoadFromFile(path+'\bases\koatuu.txt');

и посмотреть не задействованы (и если да, то как) какие-либо обработчики событий TValueListEditor.

[IvaniuS]

да пожалуйста:

procedure TYGD.btnkoatuuClick(Sender: TObject);
var
  str:TStringList;
begin
  try
    str:=TStringList.Create;
    str.LoadFromFile(path+'\bases\koatuu.txt');
    MDW.lstkved.Strings:=str;
  finally
    str.free;
  end;
  try
    MDW.lstkved.TitleCaptions.Clear;
    MDW.Caption:='Âèá³ð êîäó ÊÎÀÒÓÓ';
    MDW.lstkved.TitleCaptions.Add('ÊÎÄ');
    MDW.lstkved.TitleCaptions.Add('Íàçâà');
    MDW.lstkved.TopRow:=1;
    MDW.lstkved.Selection := TGridRect( Rect(0, 1, 1, 1) );
  if MDW.ShowModal = mrOk then
  begin
    //edtmfo.Text:=MDW.lstkved.Cells[1,MDW.lstkved.Selection.Top];
    edtkoatuu.Text:=MDW.lstkved.Cells[0,MDW.lstkved.Selection.Top]
  end;
  except
    Application.MessageBox(PChar('Îøèáêà ÷òåíèÿ áàçû ÊÎÀÒÓÓ'), 'Îøèáêà', MB_ICONERROR+
          MB_OK+MB_DEFBUTTON2);
  end;
procedure TYGD.btnkvdClick(Sender: TObject);
begin
  try
  MDW.lstkved.Strings.LoadFromFile(path+'\bases\kved.txt');
  MDW.lstkved.TitleCaptions.Clear;
  MDW.Caption:='Âèá³ð ÊÂÅÄó ï³äïðèºìñòâà';
  MDW.lstkved.TitleCaptions.Add('ÊÎÄ');
  MDW.lstkved.TitleCaptions.Add('ÊÂÅÄ');
  MDW.lstkved.TopRow:=1;
  MDW.lstkved.Selection := TGridRect( Rect(0, 1, 1, 1) );
  if MDW.ShowModal = mrOk then
  begin
    edtkved.Text:=MDW.lstkved.Cells[0,MDW.lstkved.Selection.Top];
    edtkvedname.Text:=MDW.lstkved.Cells[1,MDW.lstkved.Selection.Top]
  end;
  except
    Application.MessageBox(PChar('Îøèáêà ÷òåíèÿ áàçû Êâåäîâ'), 'Îøèáêà', MB_ICONERROR+
          MB_OK+MB_DEFBUTTON2);
  end;
end;

только вот почему в коротких файлах до 1мб нора, а выше нет?

[northener]

Косяк подтверждаю. На Д6 второй вариант действительно виснет и в конце концов вылетает с EOutOfMemory.