Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2009, 00:44   #1
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию Opendialog завис

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

Delphi7+Windows7

Помогите пожалуйста..такого ещё небыло...в гугле ничего не нашел(
DimOn4Ik вне форума Ответить с цитированием
Старый 19.12.2009, 00:49   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Перезапуск Дельфи.
А вообще-то, нужно иметь хоть пару экземпляров проектов.
Бывают глюки - тогда без предыдущей копии - "вешалка". Причина объяснению зачастую не поддается.
Хотя есть и кардинальный (но нудный) способ - создание нового проекта и поочередный перенос туда всех ваших "изысков"...
mihali4 вне форума Ответить с цитированием
Старый 19.12.2009, 00:59   #3
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию

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

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

"External exception EEFFACE"

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

Код:
if opendialog1.Execute then
synedit1.Lines.LoadFromFile(opendialog1.FileName);

Последний раз редактировалось DimOn4Ik; 19.12.2009 в 01:10.
DimOn4Ik вне форума Ответить с цитированием
Старый 19.12.2009, 01:12   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

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

З.Ы. Это при условии, что вы уверены в правильности формата файла. Хотя...
mihali4 вне форума Ответить с цитированием
Старый 19.12.2009, 01:57   #5
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию

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

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


Код:
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;
DimOn4Ik вне форума Ответить с цитированием
Старый 19.12.2009, 02:52   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
tsynedit
Похоже, что тут и "собака зарыта". Я не ручаюсь, этой библиотекой не пользовался.
Все остальное вроде бы нареканий не вызывает.
Разве что
Код:
 ts.Caption := Format('%s - Ыыыы'
Но это, судя по всему, просто неверное копирование (в очередной раз - не забывайте переключать программу, из которой вы собираетесь копировать текст, на русский язык - тогда все комменты и прочее будет доступно и нам тоже ).

Последний раз редактировалось mihali4; 19.12.2009 в 03:14.
mihali4 вне форума Ответить с цитированием
Старый 19.12.2009, 11:53   #7
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию

мне ещё каежется что это из-за windows 7 вить D7 и Windows 7 не совместимы как бы но почему раньше работало сейчас самые простые действия с opendialog зависают(
DimOn4Ik вне форума Ответить с цитированием
Старый 19.12.2009, 16:14   #8
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Автор, а расскажи зачем вот эта строка :
Код:
frm.Show;
Может быть нужно
Код:
ts.Show;
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 19.12.2009, 22:38   #9
DimOn4Ik
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 206
По умолчанию

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

ещё такой интересный факт...когда открываю любой другой исходник с opendialog он работает О_о
DimOn4Ik вне форума Ответить с цитированием
Старый 20.12.2009, 23:40   #10
V.OX
Пользователь
 
Регистрация: 15.12.2009
Сообщений: 10
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа сигнализации если завис сайт на с++ билдер seeker78 Помощь студентам 2 14.04.2009 08:05
OpenDialog Cabyrc БД в Delphi 4 05.04.2009 11:56
opendialog blackstersl Общие вопросы Delphi 4 18.09.2008 15:21
opendialog blackstersl Общие вопросы Delphi 1 11.09.2008 18:23
OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect]; necky Компоненты Delphi 2 11.08.2007 12:53