I try to a create a workbook for my requirement. The first sheet include a cell which type is ‘Text’ and it is for DATE value.
I add Workbook_Open method for set today date when open the workbook as shown below.
Private Sub Workbook_Open()
Sheet1.Range("F6") = Date
End Sub
And I also add Worksheet_Change method for sheet of that cell. That is for validation check as below.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
'Getting insertion date.
insertionDate = Sheet1.Range("F6")
'If date field is not empty
If insertionDate <> "" Then
Call MsgBox("Insertion Date must be inserted.")
End If
End If
End Sub
After that, I tested my code. When open the work book, I got the following error.
Run-time error '28':
Out of stack space
When click ‘Debug’ button, the cursor shown at the first line of Worksheet_Change method.
I has tried everything what I thought. But nothing is going on. Help me. Thank You.
Проблема: После запуска Delphi, идет загрузка среды, после чего она зависает и появляется сообщение:
displayNotification: Недостаточно места в стеке.
Инструментарий: Delphi
Решение: Скорее всего у Вас нет места на винчестере, в том разделе где расположена папка TEMP (эта папка предназначена для временных файлов).
Если свободного места достаточно, а среда зависает после запуска и появляется сообщение: displayNotification: Недостаточно места в стеке, тогда можно отключить Welcome page.
«…binbds.exe» -np
Более подробная информация на оф. сайте Embarcadero
Также можно отключить в IDE пакет, который реализует Welcome Page. Он называется StartPageIDEXXX.bpl, где XXX — версия Delphi.
PS: У меня была другая ситуация, я настроил временный каталог на другой винчестер, и он не был доступен в данный момент.
Ошибка запуска 28 В некоторых версиях Windows, особенно в Vista, Windows 7 и XP, возникает ошибка. Эта ошибка является результатом интенсивного использования подвызовов и других функций Visual Basic, которые занимают огромный объем памяти на диске вашего компьютера, что в конечном итоге приводит к сбою системы. Ваша система просто не предназначена для работы с таким бешеным и быстрым темпом использования памяти. Вообще говоря, ошибка времени выполнения 28 является результатом неспособности вашего компьютера эффективно управлять выделением памяти из-за высоких требований к обработке Visual Basic.
Это сообщение об ошибке обычно появляется на экране в следующем формате:
Ошибка выполнения 28 — нет места в стеке
Когда программа загружается на ваш компьютер, вашей системной памяти необходимо использовать энергию для работы оперативной памяти. Однако, когда программа — в данном случае Visual Basic — использует пространство памяти, превышающее выделенное вашей системой пространство, часто происходит «переполнение стека», вызывающее зависание компьютера.
Существует множество причин, по которым возникает такая проблема. Один сценарий заключается в том, что когда вы пытаетесь использовать зараженное приложение, которое занимает много места в памяти, ваша система не может предоставить достаточно оперативной памяти, потому что ей просто не хватает места на диске. Другой причиной может быть фоновое приложение, которое монополизирует пространство памяти и выделяет память другим приложениям. Часто возникает сценарий при использовании устаревшей операционной системы. Если это причина, вы можете исправить это, удалив текущую ОС и установив обновленную версию.
Как исправить ошибки Runtime 28 на вашем ПК
Первое, что вы должны сделать, если у вас есть эта ошибка на вашем компьютере Переустановите программу, которая, как вы подозреваете, вызывает проблему. Первый шаг к этому — нажать «Пуск» на панели Windows. Затем перейдите в «Панель управления» и выберите «Установка и удаление программ». После этого выберите подозрительное приложение из появившегося списка. После этого выберите вкладку «Удалить» рядом с программой, которую вы пытаетесь удалить из своей системы. Наконец, перезагрузите компьютер и установите последнюю версию пакета приложения в вашей системе.
Реестр — это еще один сектор на вашем компьютере Где коренятся многие раздражающие ошибки, такие как Runtime Error 28. Реестр функционирует как репозиторий для приложений, файлов и программ, которые Windows использует для запуска. Таким образом, он играет решающую роль в вашей системе. Без него вы вообще не сможете пользоваться Windows. К сожалению, реестр часто дает сбой из-за недостатков дизайна. Когда это происходит, вы можете столкнуться с низкой скоростью ПК, и многие приложения могут не загружаться должным образом. В результате этих проблем также могут появляться такие ошибки, как Runtime Error 28. Чтобы исправить проблемы с реестром, вы должны использовать инструмент, известный как очиститель реестра. Этот тип приложений, которые вы можете купить в Интернете или в компьютерном магазине, может сканировать и устранять любые проблемы в вашей базе данных реестра, восстанавливая эффективность вашего компьютера.
Программа выдает ошибку «Run-time error «28» Недостаточно места в стеке» в выделенном в коде месте. Когда пропускаю ошибку выдает неправильный результат. Подскажите, что не так?
Код:
_______________________________________________
Dim mask()
Dim I
Private Sub Picture1_Click()
Dim x As Integer, y As Integer
Dim w, h
w = Picture1.ScaleWidth — 1
h = Picture1.ScaleHeight — 1
ReDim mask(w, h)
For y = 1 To h — 1
For x = 1 To w — 1
If mask(x, y) = 0 And Picture1.Point(x, y) = vbBlack Then
Mk x, y
I = I + 1
End If
Next x
Next y
Picture1.Refresh
Caption = I
End Sub
Function Mk(x0, y0)
‘On Error Resume Next
Dim x, y
If Picture1.Point(x0, y0) = vbWhite Then Exit Function
mask(x0, y0) = I + 1
Picture1.PSet (x0, y0), vbWhite
For y = y0 — 1 To y0 + 1
For x = x0 — 1 To x0 + 1
If Picture1.Point(x, y) = vbBlack Then
Mk x, y
End If
Next x
Next y
End Function
|
-8 / 1 / 0 Регистрация: 11.12.2011 Сообщений: 364 |
|
|
1 |
|
Ошибка: Недостаточно места в стеке26.01.2012, 17:14. Показов 3537. Ответов 6
при запуске делфи тормозит а еще выскакивает ошибка Недостаточно места в стекеО_о
0 |
Что это еще за фигня
|
Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782 |
26.01.2012, 17:14 |
|
6 |
|
58 / 86 / 24 Регистрация: 27.02.2010 Сообщений: 397 |
|
|
26.01.2012, 18:29 |
2 |
|
Если Вы действительно хотите решить проблему, а не просто поругаться,
0 |
|
0 / 0 / 0 Регистрация: 18.07.2017 Сообщений: 2 |
|
|
18.07.2017, 10:03 |
3 |
|
Была такая ошибка с Делфи 2010. Решил ее с помощью установки CCleaner и чистки компьютера, как приложений так и реестров. Ошибка исчезла… Пробуйте у себя, может поможет…
0 |
|
1069 / 482 / 314 Регистрация: 05.04.2013 Сообщений: 2,116 |
|
|
18.07.2017, 10:05 |
4 |
|
ага и посмотри сначала сколько свободного места на диске Ц (если дельф установлена на этот диск)
0 |
|
D1973 |
|
18.07.2017, 10:18
|
|
Не по теме: PrinceZmeiy, AHBAR, а ничего, что за 5 с половиной лет для ТС-а (который тут столько же не был) эта проблема уже ни разу не актуальна…
0 |
|
0 / 0 / 0 Регистрация: 18.07.2017 Сообщений: 2 |
|
|
18.07.2017, 10:40 |
6 |
|
Не по теме: PrinceZmeiy, AHBAR, а ничего, что за 5 с половиной лет для ТС-а (который тут столько же не был) эта проблема уже ни разу не актуальна… Возможно… Я вчера с ней столкнулся, сегодня решил. Решил поделиться…
0 |
|
AHBAR |
|
18.07.2017, 13:46
|
|
Не по теме: D1973, все банально просто — я не посмотрел на дату первого поста
0 |
