Opendialog завис

[DimOn4Ik]

Писал программу,не раз тестировал opendialog всё работало и тут при открытии окна всё зависает и делфи и программа..и это только при компилировании..если открывать exe файл тогда всё нормально..

Delphi7+Windows7

Помогите пожалуйста..такого ещё небыло...в гугле ничего не нашел(

[mihali4]

Перезапуск Дельфи.
А вообще-то, нужно иметь хоть пару экземпляров проектов.
Бывают глюки - тогда без предыдущей копии - "вешалка". Причина объяснению зачастую не поддается.
Хотя есть и кардинальный (но нудный) способ - создание нового проекта и поочередный перенос туда всех ваших "изысков"...

[DimOn4Ik]

Заново переносил,не помогло..

вот какая ошибка вылазит :

"External exception EEFFACE"

---
может у меня код не правельный?

if opendialog1.Execute then
synedit1.Lines.LoadFromFile(opendialog1.FileName);

[mihali4]

Похоже, Дельфи "сломаналась".
Или еще хуже - вирус в системе.
Для начала переустановите Дельфи на старые места.

З.Ы. Это при условии, что вы уверены в правильности формата файла. Хотя...

[DimOn4Ik]

переустановил..не помогло...

вот полный код программы..может код не правельный?

procedure TForm1.N3Click(Sender: TObject);
var
 frm:tsynedit;
 ts: TTabSheet;
 i:integer;

begin
  with PageControl1 do
  for i:=1 to 100 do
 ts:=TTabSheet.Create(Self);
 ts.PageControl := PageControl1;
 {ts.Caption := 'New: ' +IntToStr(ts.PageIndex) ; }
  frm:=TSynEdit.Create(ts);
 frm.Parent:=ts;

 if opendialog1.Execute then begin
 frm.Lines.LoadFromFile(opendialog1.FileName);
 ts.Caption := Format('%s - Ыыыы', [ExtractFileName(OpenDialog1.FileName)]);
 frm.Show;
       {настройка synedit}
 frm.Align:=alClient;
 frm.Gutter.ShowLineNumbers:=true;
 frm.Gutter.AutoSize:=true;
 frm.Gutter.GradientEndColor:=clBtnFace;
 frm.Gutter.GradientStartColor:=clWindow;
 frm.Gutter.Color:=cl3DLight;
 frm.Gutter.BorderColor:=clScrollBar;
 frm.Gutter.DigitCount:=3;



 end

end;

[mihali4]

tsynedit

Похоже, что тут и "собака зарыта". Я не ручаюсь, этой библиотекой не пользовался.
Все остальное вроде бы нареканий не вызывает.
Разве что

 ts.Caption := Format('%s - Ыыыы'

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

[DimOn4Ik]

мне ещё каежется что это из-за windows 7 вить D7 и Windows 7 не совместимы как бы но почему раньше работало сейчас самые простые действия с opendialog зависают(

[Kotofff]

Автор, а расскажи зачем вот эта строка :

frm.Show;

Может быть нужно

ts.Show;

[DimOn4Ik]

Kotofff,да спасибо эх...не разобрался.Delphi 2010 работает...а 7 opendialog не работает(

ещё такой интересный факт...когда открываю любой другой исходник с opendialog он работает О_о

[V.OX]

а может просто случайно удалил с формы обьект opendialog?
у меня такое было, долго не мог понять в чём ошибка))