Отладка программы или неуловимый глюк

← →
Dark © (2007-11-16 14:42) [0]

http://slil.ru/25110827
Вот программа моя, весит всего ничего, 407 кб, так что думаю никому не будет впадлу скачать и помочь. Проблема в следующем:
1) Запускаю программу
2) Ввожу значения от балды или загружаю файл
3) Если загрузил, то меняю какую-нибудь цифру на любую другую, если считал заново,то сохраняю и меняю цифру.
3) Выбираю в меню ВЫХОД, появляется форма выбора(делал сам), нажимаю на ДА - ошибка, нажимаю на ОТМЕНА всё ок, на НЕТ приходится нажать пачиму-то два раза...хотя если сразу после запуска посчитать или вообще выполнять другую комбинацию действий без Сохранить\Загрузить, то всё меню работает отлично...И ещё бывает, после нескольких других таких же действий Сохранить\Загрузить тоже вылетает, но со стандартным для всех приложений Windows"ким окошком про недопустимую ошибку и прочую лабуду.
Вот основной код:

type TForm1 = class(TForm) Edit1: TEdit; name: TLabel; Edit2: TEdit; Edit3: TEdit; disc: TLabel; x1: TLabel; Button4: TButton; x2: TLabel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; rez: TLabel; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure Edit3KeyPress(Sender: TObject; var Key: Char); procedure Button4Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure N6Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure N9Click(Sender: TObject); procedure N8Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a,b,c,d,x,z:real; f1: textfile; stroka:string; co:integer; implementation uses Kv_ur_ex, Kvadr_ur_help, Kvadr_ur_about; {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);//Поле ввода а begin if not(Key in ["0".."9",",","-"]) then key:=#0; end; procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);//Поле ввода б begin if not(Key in ["0".."9",",","-"]) then key:=#0; end; procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);//Поле ввода с begin if not(Key in ["0".."9",",","-"]) then key:=#0; end; procedure TForm1.Button4Click(Sender: TObject);//Посчитать begin //Тут считаем результат end; procedure TForm1.FormActivate(Sender: TObject); begin co:=1; form1.n2.Enabled:=false; //И ещё настройки переменных, не играющих роли end; procedure TForm1.N6Click(Sender: TObject);//Кнопочка выход begin If form1.n2.Enabled=false then begin form1.close end else begin exitform.showmodal; If co=0 then begin form1.close; end; end; end; procedure TForm1.N2Click(Sender: TObject);//Кнопочка сохранить begin saveDialog1 := TSaveDialog.Create(self); savedialog1.Filter := "Text file|*.txt"; saveDialog1.DefaultExt := "txt"; if SaveDialog1.Execute then begin AssignFile(F1, SaveDialog1.FileName); ReWrite(F1); Write(F1, Edit1.text); WriteLn(F1); Write(F1, Edit2.text); WriteLn(F1); Write(F1, Edit3.text); WriteLn(F1); Write(F1, disc.Caption); WriteLn(F1); Write(F1, x1.Caption); WriteLn(F1); Write(F1, x2.Caption); Closefile(f1); savedialog1.free; n2.Enabled:=false; end; end; procedure TForm1.N3Click(Sender: TObject);//Кнопочка загрузить begin OpenDialog1 := TOpenDialog.Create(self); OpenDialog1.Filter := "Text file|*.txt"; OpenDialog1.DefaultExt := "txt"; if OpenDialog1.Execute then begin AssignFile(F1, OpenDialog1.FileName); FileMode := fmOpenRead; Reset(F1); Read(F1, stroka); Edit1.Text:=stroka; readln(f1); Read(F1, stroka); Edit2.Text:=stroka; readln(f1); Read(F1, stroka); Edit3.Text:=stroka; readln(f1); Read(F1, stroka); disc.caption:=stroka; readln(f1); Read(F1, stroka); x1.caption:=stroka; readln(f1); Read(F1, stroka); x2.caption:=stroka; readln(f1); CloseFile(f1); opendialog1.Free; form1.n2.Enabled:=false; end; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin If form1.n2.Enabled=false then else ExitForm.ShowModal; end; procedure TForm1.Edit1Change(Sender: TObject);//Поле а begin n2.Enabled:=true; end; procedure TForm1.Edit2Change(Sender: TObject);//Поле б begin n2.Enabled:=true; end; procedure TForm1.Edit3Change(Sender: TObject);//Поле с begin n2.Enabled:=true; end; procedure TForm1.N9Click(Sender: TObject);.//О программе, тут всё работает хорошо begin AboutForm.ShowModal; end; procedure TForm1.N8Click(Sender: TObject);//Помощь, тут всё работает хорошо begin HelpForm.ShowModal; end; end.

И код дополнительного окошка с вопросом:
type TExitForm = class(TForm) ExitQuest: TLabel; ExitYes: TButton; ExitNo: TButton; ExitCanc: TButton; procedure ExitYesClick(Sender: TObject); procedure ExitNoClick(Sender: TObject); procedure ExitCancClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var ExitForm: TExitForm; f1: textfile; implementation uses Kvadr_Ur, Kvadr_ur_help; {$R *.dfm} procedure TExitForm.ExitYesClick(Sender: TObject); begin form1.savedialog1 := form1.savedialog1.Create(self); form1.savedialog1.Filter := "Text file|*.txt"; form1.saveDialog1.DefaultExt := "txt"; if form1.savedialog1.Execute then begin AssignFile(F1, form1.savedialog1.FileName); ReWrite(F1); Write(F1, form1.Edit1.text); WriteLn(F1); Write(F1, form1.Edit2.text); WriteLn(F1); Write(F1, form1.Edit3.text); WriteLn(F1); Write(F1, form1.disc.Caption); WriteLn(F1); Write(F1, form1.x1.Caption); WriteLn(F1); Write(F1, form1.x2.Caption); Closefile(f1); form1.savedialog1.free; form1.n2.Enabled:=false; end; exitform.Close; end; procedure TExitForm.ExitNoClick(Sender: TObject); begin co:=0; exitform.Close; end; procedure TExitForm.ExitCancClick(Sender: TObject); begin exitform.Close; end; end. //Думаю тут все кнопки из названий понятны.

Form1-Главное окно
Exitform-окно предупреждения входа.

Вот вопрос, как выловить глюк? Я так подозреваю проще использовать стандартное windows"кое окно YESNOCANCEL? И поможет ли это?

← →
homm © (2007-11-16 14:47) [1]

> [0] Dark © (16.11.07 14:42)
> Вот программа моя, весит всего ничего, 407 кб, так что думаю
> никому не будет впадлу скачать и помочь.

Нет, никого не обременит скачать полметра вирусов.

← →
homm © (2007-11-16 14:49) [2]

> [0] Dark © (16.11.07 14:42)
> появляется форма выбора(делал сам)

Малодец, максимка.

← →
Dark © (2007-11-16 14:54) [3]

> Нет, никого не обременит скачать полметра вирусов.

Чего сразу вирусы,вирусы...

← →
Dark © (2007-11-16 14:54) [4]

> homm ©

Лучше б помог

← →
homm © (2007-11-16 14:55) [5]

> [3] Dark © (16.11.07 14:54)

А что там еще может быть? Нечего было бы скрывать — выложил бы исходники.

← →
homm © (2007-11-16 14:55) [6]

> [4] Dark © (16.11.07 14:54)
> Лучше б помог

А я помогаю. Никто не станет твой вирустник качать, тем более 400 килов.

← →
Dark © (2007-11-16 15:02) [7]

Удалено модератором

← →
Reindeer Moss Eater © (2007-11-16 15:05) [8]

form1.savedialog1 := form1.savedialog1.Create(self);

Автор, пиши ещё!
:)

← →
homm © (2007-11-16 15:06) [9]

Удалено модератором

← →
Dark © (2007-11-16 15:10) [10]

Удалено модератором

← →
Сергей М. © (2007-11-16 15:14) [11]

> неуловимый глюк

Неуловимым имеет право быть только Джо Неуловимый)

> Отладка программы

Ты ей даже и не занимался, так что нефига здесь трындеть.

← →
Dark © (2007-11-16 15:14) [12]

>
> Reindeer Moss Eater © (16.11.07 15:05) [8]
> form1.savedialog1 := form1.savedialog1.Create(self);
>
> Автор, пиши ещё!
> :)

А что не так? 8)

← →
Dark © (2007-11-16 15:15) [13]

Удалено модератором

← →
Dark © (2007-11-16 15:16) [14]

Удалено модератором

← →
Alex' (2007-11-16 15:18) [15]

Нормальных полно, помоч не могут ;) . А грязи и небыло.

← →
clickmaker © (2007-11-16 15:20) [16]

> [14] Dark © (16.11.07 15:16)
> Здесь что, вообще нет НОРМАЛЬНЫХ людей

Лады. Наводящий вопрос. Что такое OpenDialog1?

← →
Игорь Шевченко © (2007-11-16 15:21) [17]

Бан неизбежен, как кризис империализма.

← →
Сергей М. © (2007-11-16 15:22) [18]

> ты то откуда знаешь?
>

От верблюда)

Ты сам же и изложил подробности своей "отладки" в сабже)

← →
Сергей М. © (2007-11-16 15:25) [19]

> про недопустимую ошибку и прочую лабуду

Запишись к Кетмарю на прием)

← →
Dark © (2007-11-16 15:25) [20]

> Лады. Наводящий вопрос. Что такое OpenDialog1?

Это с вкладочки Dialogs диалог OpenDialog типа TOpenDialog под своим порядковым номером.)

> Ты сам же и изложил подробности своей "отладки" в сабже)

Это прозрачный намёк на YESNOCANCEL?)

← →
Reindeer Moss Eater © (2007-11-16 15:26) [21]

Это с вкладочки Dialogs диалог OpenDialog типа TOpenDialog под своим порядковым номером.)

То есть это экземпляр положенный на форму в дизайне.
А конструктор зачем?
Мало одного диалога?

← →
Сергей М. © (2007-11-16 15:26) [22]

> Это прозрачный намёк на YESNOCANCEL?

Это, чудо, непрозрачный намек на то, что ты ни единого раза не трассировал свой код в поисках своих "неуловимых глюков".

← →
Dark © (2007-11-16 15:26) [23]

> Запишись к Кетмарю на прием)

Разъясни для новеньких кто ето?

← →
Сергей М. © (2007-11-16 15:27) [24]

> кто ето?

Это тот кто ничтоже сумняшеся прописывает пилюли от ламерства)

← →
Dark © (2007-11-16 15:28) [25]

> То есть это экземпляр положенный на форму в дизайне.
> А конструктор зачем?
> Мало одного диалога?

Т.е. достаточно вызывать его через Execute?

> Это, чудо, непрозрачный намек на то, что ты ни единого раза
> не трассировал свой код в поисках своих "неуловимых глюков".
>

Ну вот...опять новое слово...трассировал...

← →
clickmaker © (2007-11-16 15:29) [26]

> [20] Dark © (16.11.07 15:25)
>
> > Лады. Наводящий вопрос. Что такое OpenDialog1?
>
> Это с вкладочки Dialogs диалог OpenDialog типа TOpenDialog
> под своим порядковым номером

окей-оби.
Тогда это зачем?

OpenDialog1 := TOpenDialog.Create(self);

и, тем более, это

form1.savedialog1 := form1.savedialog1.Create(self);

второе - вообще смахивает на бред сивой кобылы в лунную ночь

← →
Dark © (2007-11-16 15:30) [27]

> Это тот кто ничтоже сумняшеся прописывает пилюли от ламерства)

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

← →
Dark © (2007-11-16 15:31) [28]

> > [20] Dark © (16.11.07 15:25)
> >
> > > Лады. Наводящий вопрос. Что такое OpenDialog1?
> >
> > Это с вкладочки Dialogs диалог OpenDialog типа TOpenDialog
>
> > под своим порядковым номером
>
> окей-оби.
> Тогда это зачем?
>
> OpenDialog1 := TOpenDialog.Create(self);
>
> и, тем более, это
>
> form1.savedialog1 := form1.savedialog1.Create(self);
>
> второе - вообще смахивает на бред сивой кобылы в лунную
> ночь

Второе, это просто...диалог вызывается из другой формы...А вообще кажется я потихоньку понимаю ситуацию...

← →
Alex' (2007-11-16 15:31) [29]

Ну вот, все налаживается...

← →
Сергей М. © (2007-11-16 15:32) [30]

> Путь избавления от ламерства-учеба

Учеба начинается с вопросов самому себе - "ЗАЧЕМ я сделал ЭТО".

ЭТО - это то что адресовано тебе ну хотя бы в [26])

← →
Dark © (2007-11-16 15:33) [31]

А вот у меня появился незамысловатый вопрос, кто-нить скачал exe?

← →
Dark © (2007-11-16 15:34) [32]

Сделал Build, пока без ошибок...иду проверять

← →
Dark © (2007-11-16 15:35) [33]

Появились первые ошибки...уже понятные...даже радостно как-то..

← →
Сергей М. © (2007-11-16 15:37) [34]

> кто-нить скачал exe?
>

ехе твой - это неуловимый Джо)

← →
Alex' (2007-11-16 15:41) [35]

Шли сюда свои труды http://www.kaspersky.com/, тут умеют проги анализировать, причем бесплатно

← →
Dark © (2007-11-16 15:42) [36]

> Alex" (16.11.07 15:41) [35]
> Шли сюда свои труды http://www.kaspersky.com/, тут умеют
> проги анализировать, причем бесплатно

Ых...опять английский... Кстати, уборка конструктора от ошибок не избавила. Я оставил только строку .Execute ......

← →
Игорь Шевченко © (2007-11-16 15:46) [37]

> Разъясни для новеньких

Все разъяснения для новеньких находятся тут:
http://www.delphimaster.ru/forums.shtml#rule

← →
Сергей М. © (2007-11-16 15:46) [38]

Удалено модератором

← →
Dark © (2007-11-16 15:47) [39]

Удалено модератором

← →
Сергей М. © (2007-11-16 15:48) [40]

Удалено модератором

← →
Dark © (2007-11-16 16:09) [41]

http://www.pichoard.com/images/Death/kvur.png
1) Вот скрин касперского, если кому не верится, что это не вирус.
2) Не могу по прежнему устранить ошибку...точнее найти её..

← →
clickmaker © (2007-11-16 16:14) [42]

> 2) Не могу по прежнему устранить ошибку

какую?

← →
Сергей М. © (2007-11-16 16:16) [43]

> точнее найти её

Ты ее и не искал, ибо сам сказал. что трассировка для тебя слово незнакомое)

← →
Dark © (2007-11-16 16:17) [44]

> > 2) Не могу по прежнему устранить ошибку
>
> какую?

Описана в самом первом посте.

>
> Ты ее и не искал, ибо сам сказал. что трассировка для тебя
> слово незнакомое)

Может обьяснишь что это?

← →
clickmaker © (2007-11-16 16:19) [45]

> [44] Dark © (16.11.07 16:17)
>
> Описана в самом первом посте

Там нету описания ошибки.
Там только что-то типа "у меня в подвале странный стук..."

← →
Dark © (2007-11-16 16:21) [46]

> Там нету описания ошибки.
> Там только что-то типа "у меня в подвале странный стук..
> ."

)) Вот текст ошибки получаемый после выполнения всех действий, порядок которых описан в первом посте:

← →
Dark © (2007-11-16 16:23) [47]

Access violation at address 004532D1 in module "Kv_ur.exe". Read of address 00000000

← →
Плохиш © (2007-11-16 16:31) [48]

> Dark © (16.11.07 14:42)

За код спасибо... стошнило..

← →
Сергей М. © (2007-11-16 16:31) [49]

> Dark © (16.11.07 16:23) [47]

Стоило ли плодить кучу бестолковых постов, вместо того чтобы сразу известить ув.общественность о дословном сообщении об ошибке ?

> Access violation at address 004532D1

То, что выделено жирным, вводишь при запросе адреса, который появится при вызове Делфи-меню "Search -> Find error .." - получаешь указатель на строку, приведшую к этой ошибке. Проект при этом д.б. собран со всеми надлежащими опциями отладки, а само приложение запущено под управлением Делфи-среды.

← →
clickmaker © (2007-11-16 16:31) [50]

> [47] Dark © (16.11.07 16:23)

под отладчиком на какой строке падает?
не забудь еще use debug dcu, да и все галки в debugging поставь в compliler options

← →
Johnmen © (2007-11-16 16:32) [51]

> Вот текст ошибки получаемый после выполнения всех действий,
> порядок которых описан в первом посте:

Э-э-э, не понял, действия ВСЕ выполнены или ПОЛУЧЕНА ошибка?
И если ошибка получается после выполнения действий, то м.б. не прекращать их выполнение?

← →
Плохиш © (2007-11-16 16:34) [52]

Вот к чему привела ветка http://delphimaster.net/view/15-1194730016/

:-))))))

← →
boriskb © (2007-11-16 16:35) [53]

А мне этот парень нравится :)
Ну ламер - так хоть сознает это.
Ну гнобят здесь его как могут - так реагирует адекватно :)

Dark © -
Твоя ситуация похожа на такую:
Первый раз сел за руль авто (видел только как другие ездят) и начинаешь спрашивать: "А чего она не едет? А чего она дергается? А чего это проезжающий мимо мужик у виска покрутил? А почему меня милиционер останавливат?"

То есть - сначала учатся, потом делают.
Ок?

← →
Dark © (2007-11-16 16:37) [54]

> Стоило ли плодить кучу бестолковых постов, вместо того чтобы
> сразу известить ув.общественность о дословном сообщении
> об ошибке ?
>
>
> > Access violation at address 004532D1
>
>
> То, что выделено жирным, вводишь при запросе адреса, который
> появится при вызове Делфи-меню "Search -> Find error .."
> - получаешь указатель на строку, приведшую к этой ошибке.
> Проект при этом д.б. собран со всеми надлежащими опциями
> отладки, а само приложение запущено под управлением Делфи-
> среды.

Понятно. пошел делать. спасибо

> За код спасибо... стошнило..

Могу ещё подкинуть)

> под отладчиком на какой строке падает?
> не забудь еще use debug dcu, да и все галки в debugging
> поставь в compliler options

Сколько новых определений...пока всё что я могу сказать, жто то что, я ещё ни разу не делал того, что вы предлагаете..щас будем набирать опыт

← →
Dark © (2007-11-16 16:39) [55]

> А мне этот парень нравится :)
> Ну ламер - так хоть сознает это.
> Ну гнобят здесь его как могут - так реагирует адекватно
> :)
>
> Dark © -
> Твоя ситуация похожа на такую:
> Первый раз сел за руль авто (видел только как другие ездят)
> и начинаешь спрашивать: "А чего она не едет? А чего она
> дергается? А чего это проезжающий мимо мужик у виска покрутил?
> А почему меня милиционер останавливат?"
>
> То есть - сначала учатся, потом делают.
> Ок?

Большое спасибо) Эх...у меня есть библия делфи в pdf...10 глав прочел...реализую...все результаты в этой теме

← →
Dark © (2007-11-16 16:42) [56]

> -э-э, не понял, действия ВСЕ выполнены или ПОЛУЧЕНА ошибка?
>
> И если ошибка получается после выполнения действий, то м.
> б. не прекращать их выполнение?

Ошибка появляется после нажатия кнопки ДА

← →
Johnmen © (2007-11-16 16:44) [57]

> Ошибка появляется после нажатия кнопки ДА

Нажми кнопку НЕТ

← →
sniknik © (2007-11-16 16:52) [58]

> у меня есть библия делфи в pdf
Фленов? сотри немедленно! пока не стало еще хуже...

← →
Игорь Шевченко © (2007-11-16 16:52) [59]

> у меня есть библия делфи в pdf

Четвероевангелие делфи. От Марка, Матфея, Луки и Иоанна.

← →
Dark © (2007-11-16 16:55) [60]

А почему всем не нравится Фленов? Конечно в примерах кое-чего непонятного остается но всё же...

← →
Dark © (2007-11-16 16:59) [61]

Люди..вы не поверите...не нашел у Фленова как запускать отладчик...помогите...

← →
Сергей М. © (2007-11-16 17:02) [62]

Жмакай F8

← →
Джо © (2007-11-16 17:04) [63]

> [61] Dark © (16.11.07 16:59)
> Люди..вы не поверите...не нашел у Фленова как запускать
> отладчик...помогите...

Он уже и так запущен вместе со средой.
Точки останова — расставляются тыканием мыши на поле слева от строки (красная пипа).
Выполнить строку (без захода в подпрограмму) — F8.
Выполнить строку (с заходом в подпрограмму) — F7.
Посмотреть значение переменной — навести на нее мышь и чуть подождать. Также полезно Ctrl-Click на имени идентификатора.
Это минимум, которого часто может хватить. И не забывать, что главное орудие отладки — мощный аналитический ум :)

← →
Сергей М. © (2007-11-16 17:05) [64]

> не поверите...не нашел у Фленова

Отчего ж не поверить ?
Верим)

Фленов еще тот диверсант)

← →
Dark © (2007-11-16 17:05) [65]

Спасибо

← →
Сергей М. © (2007-11-16 17:06) [66]

> Джо © (16.11.07 17:04) [63]

> с захода в подпрограмму

> с заходом в подпрограмму

Если у Фленова найдется определение термина "подпрограмма", мир перевернется)

← →
Джо © (2007-11-16 17:08) [67]

> [66] Сергей М. © (16.11.07 17:06)
> Если у Фленова найдется определение термина "подпрограмма",
> мир перевернется)

Пускай юная поросль черпает знания не только из Фленова :)

← →
Dark © (2007-11-16 17:10) [68]

smallTab := LocalAlloc(LMEM_FIXED, sizeof(smallTab^));
if smallTab <> nil then begin
for i:= low(smallTab^) to high(smallTab^) do
smallTab[i] := nil;

Не падает, но образуется бесконечный цикл в этих строках... GETMEM.INC, т.е. при зажатии F7 бесконечно перескакивает с for i на следующую и назад....что дальше?

← →
clickmaker © (2007-11-16 17:13) [69]

> [61] Dark © (16.11.07 16:59)
> Люди..вы не поверите...не нашел у Фленова как запускать
> отладчик

теперь понятно, почему всем не нравится Фленов? )

← →
Dark © (2007-11-16 17:16) [70]

> теперь понятно, почему всем не нравится Фленов? )

Уж понятно стало...

← →
@!!ex © (2007-11-16 17:24) [71]

Авось через пяток лет получиться крутой востребованный прогер...
А может через месяц забьет... или раньше..

← →
Dark © (2007-11-16 17:26) [72]

function InitAllocator: Boolean; // Initialize. No other calls legal before that. var i: Integer; a: PFree; begin try InitializeCriticalSection(heapLock); if IsMultiThread then EnterCriticalSection(heapLock); MakeEmpty(@spaceRoot); MakeEmpty(@decommittedRoot); MakeEmpty(@committedRoot); smallTab := LocalAlloc(LMEM_FIXED, sizeof(smallTab^)); if smallTab <> nil then begin for i:= low(smallTab^) to high(smallTab^) do smallTab[i] := nil; a := @avail; a.next := a; a.prev := a; rover := a; initialized := True; end; finally if IsMultiThread then LeaveCriticalSection(heapLock); end; result := initialized; end;

Так...это код функции, в которой происходит зависание..всё это я вижу в первый раз...так что понятия не имею, что делать и какие из этого выводы....
for i:= low(smallTab^) to high(smallTab^) do smallTab[i] := nilВот тут и зависает...туда-сюда-обратно...

← →
Dark © (2007-11-16 17:26) [73]

> Авось через пяток лет получиться крутой востребованный прогер.
> ..
> А может через месяц забьет... или раньше..

Конечно...проще глумиться чем помочь..

← →
Johnmen © (2007-11-16 17:27) [74]

> Авось через пяток лет получиться крутой востребованный прогер...

Даже и не думай (с)

← →
Dark © (2007-11-16 17:29) [75]

>
> > Авось через пяток лет получиться крутой востребованный
> прогер...
>
> Даже и не думай (с)

Ещё один глумливый...

← →
turbouser © (2007-11-16 17:33) [76]

> Dark © (16.11.07 17:29) [75]

Выучить наизусть:
http://www.linuxrsp.ru/artic/smart-questions-ru.html

← →
clickmaker © (2007-11-16 17:39) [77]

> InitializeCriticalSection(heapLock);
> if IsMultiThread then EnterCriticalSection(heapLock);

откуда такие клёвые примеры?

← →
Dark © (2007-11-16 17:43) [78]

> откуда такие клёвые примеры?

Спроси у моего Delphi....файл GETMEM.INC

← →
Romkin © (2007-11-16 17:46) [79]

Dark © (16.11.07 17:29) [75] Да ладно, не обижайся. Действительно, исходники откуда черпаешь такие занятные?
Инициализируем критическую секцию и заходим в нее. Типа, защитились. Второй поток инициализирует критическую секцию (она уже другая будет) - и тоже заходит в нее...
А с таким циклом еще и не так зависнуть может, тебе еще повезло :)
Что ты хоть сделать хочешь?

← →
clickmaker © (2007-11-16 17:48) [80]

> [79] Romkin © (16.11.07 17:46)

там видимо перед вызовом проверяется initialized
Иначе и правда чушь получится

← →
Romkin © (2007-11-16 17:49) [81]

Тьфу. Мой пост 79 не читай. Спутал все. Нормально это, ибо положено инициализировать для входа.
Ты эда, в этот файл не лезь, ни к чему :)

← →
Romkin © (2007-11-16 17:50) [82]

> Иначе и правда чушь получится

Э, батенька!
The threads of a single process can use a critical section object for mutual-exclusion synchronization. The process is responsible for allocating the memory used by a critical section object, which it can do by declaring a variable of type CRITICAL_SECTION. Before using a critical section, some thread of the process must call the InitializeCriticalSection function to initialize the object.

← →
@!!ex © (2007-11-16 17:53) [83]

> [73] Dark © (16.11.07 17:26)

Даже и не думал глумиться.
Абсолютно серьезно писал это.
А насчет помочь...
Тебе сейчас только нормальная книга поможет, или препод.

← →
Romkin © (2007-11-16 17:54) [84]

А начать нужно с форматирования кода.

← →
Johnmen © (2007-11-16 17:55) [85]

>All except Dark
Господа, да вы что???!!!
Человек ВООБЩЕ не в теме, знаний и понятий НОЛЬ!
А вы ему с умным видом про потоки втираете!

← →
Dark © (2007-11-16 17:56) [86]

Во-во...

← →
@!!ex © (2007-11-16 17:57) [87]

> [86] Dark © (16.11.07 17:56)

Книжку покупаешь. читаешь. вникаешь.

← →
Dark © (2007-11-16 18:00) [88]

> Книжку покупаешь. читаешь. вникаешь.

Лагычно...
Вы все описали принцип работы...но почему виснет так и не было

← →
clickmaker © (2007-11-16 18:01) [89]

> [82] Romkin © (16.11.07 17:50)

это ты к чему?
я на то намекаю, что вызов initialize должен быть один раз

← →
Германн © (2007-11-16 18:07) [90]

> Вы все описали принцип работы...но почему виснет так и
> не было
>

> for i:= low(smallTab^) to high(smallTab^) do
> smallTab[i] := nilВот тут и зависает...туда-сюда-
> обратно...
>

"туда-сюда-обратно... - это не зависание. Это нормальная работа цикла. Как все значения переберет тогда и дальше пойдет.

← →
Любопытный:) (2007-11-16 18:08) [91]

>Dark © (16.11.07 14:42)
Подскажи как можно скачать твою прогу с http://slil.ru/25110827 ? У меня не получилось:(

← →
Dark © (2007-11-16 18:09) [92]

пароль delphimaster

← →
Dark © (2007-11-16 18:10) [93]

Я уже писал в тебе ссылку на сжатый файл, но модеры удалили.

← →
Ketmar © (2007-11-16 18:10) [94]

> Сергей М. © (16.11.07 15:25) [19]
> Запишись к Кетмарю на прием)
пул дураков переполнен, пока брать некуда. пусть уж или поумнеет, или с разгона апстену своими силами как нибудь…

← →
Dark © (2007-11-16 18:12) [95]

> "туда-сюда-обратно... - это не зависание. Это нормальная
> работа цикла. Как все значения переберет тогда и дальше
> пойдет.

Я понимаю, что как работает цикл, но я не понимаю, почему просидев 10 минут с зажатым F7 он не перебрал все значения? high(smallTab^) xnj tcnm "nj pyfxtybt&

← →
Dark © (2007-11-16 18:13) [96]

high(smallTab^) что из себя это представляет? переменная-понятно...а значение?

← →
Dark © (2007-11-16 18:13) [97]

> Ketmar ©

Доктор пилюлькин пришел! жаль, что мест нету...

← →
Джо © (2007-11-16 18:14) [98]

> [96] Dark © (16.11.07 18:13)
> high(smallTab^) что из себя это представляет? переменная-
> понятно...а значение?

Посмотри значение в отладчике.

← →
Ketmar © (2007-11-16 18:15) [99]

> Johnmen © (16.11.07 17:55) [85]
> Господа, да вы что???!!!Человек ВООБЩЕ не
> в теме, знаний и понятий НОЛЬ!А вы ему с умным видом про
> потоки втираете!
а кто ему виноват, что он не учился, а батоны кидал? что накидал, то и получил.

и — нет, учатся не так. совсем не так.

← →
Ketmar © (2007-11-16 18:16) [100]

> Dark © (16.11.07 18:13) [97]
неко, твоё дело сейчас — сидеть и молча читать, что умные дяди пишут. а не постить чушь. вместо написания очередного глупого поста лучше спроси, за что именно по голове получаешь.

зыж проверим: хватит моска воспользоваться подсказкой?

← →
Dark © (2007-11-16 18:32) [101]

Если ты про учебу в каких-то высших заведениях-то я там не учусь. И никто меня не учил. Всё что у меня есть это pdf Фленова, по которому и занимаюсь. Но все настойчиво просят его выкинуть куда подальше...чтож...поищу в инете ещё туторов.

← →
Amoeba © (2007-11-16 18:41) [102]

> поищу в инете ещё туторов.
>

Тогда прямиком сюда:
http://www.podgoretsky.com/ddp.html

← →
Ketmar © (2007-11-16 18:51) [103]

> Dark © (16.11.07 18:32) [101]
первая часть (выкинуть макулатуру ф.) — верная.

вторая (искать туторы) — неверная. искать надо учебники. и не «по дельфи», а по программированию вообще. а Delphi желательно снести. или оставить в варианте «dcc32.exe и чистая консоль».

зыж хороший ВУЗ ещё никому не мешал. впрочем, Кэтмар ВУЗы тоже ниасилил.

← →
Dark © (2007-11-16 18:59) [104]

Не дорос я ещё до ВУЗа...
А на остальном-спасибо

← →
Сергей С. (2007-11-16 20:18) [105]

Похоже что тебе только слабительное поможет.

← →
Dark © (2007-11-16 20:28) [106]

> Сергей С.

Очень остроумно. Иди нажрись этого слабительного и оттянись по полной.

← →
@!!ex © (2007-11-16 20:37) [107]

> [106] Dark © (16.11.07 20:28)

Ты зря ссоришься со всеми самыми уважаемыми людьми этого форума.
Тебе стараются помочь, когда это не получается, говорят тебе об этом в жесткой форме.
Ты огрзыаешься. Вместо того, чтобы заняться делом.
Пойми простую вещь, за две недели прогером не станешь.
Максимум - батонокидателем.

← →
Сергей С. (2007-11-16 20:40) [108]

> Dark © (16.11.07 20:28) [106]

Ты про трассировку вник, дитятко ?)

← →
Dark © (2007-11-16 20:43) [109]

> > [106] Dark © (16.11.07 20:28)
>
> Ты зря ссоришься со всеми самыми уважаемыми людьми этого
> форума.
> Тебе стараются помочь, когда это не получается, говорят
> тебе об этом в жесткой форме.
> Ты огрзыаешься. Вместо того, чтобы заняться делом.
> Пойми простую вещь, за две недели прогером не станешь.
> Максимум - батонокидателем.

А по-твоему слабительное это то,что исправит ошибку в программе?

← →
Dark © (2007-11-16 20:45) [110]

> @!!ex ©

Я не хочу ни с кем ссориться, но когда тебя просто опускают, надо терпеть, отмалчиваться? Ну уж нет. Давайте общаться на равных, а не делать деление на классы Мастеров, Уважаемых, Прогеров и Батонокидателей

← →
boriskb © (2007-11-16 20:49) [111]

> Dark ©

Так и будешь на все имеющиеся педали нажимать, все рычаги, кнопки и переключатели щелкать?
Так далеко не уедешь даже если и тронешься с места.

Или все же поучишься и вождению и правилам?

← →
@!!ex © (2007-11-16 20:52) [112]

> Давайте общаться на равных, а не делать деление на классы
> Мастеров, Уважаемых, Прогеров и Батонокидателей

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

← →
Сергей С. (2007-11-16 20:54) [113]

> Dark © (16.11.07 20:43) [109]

Дружок, ты пыжиться за обиженного будешь или таки вникнешь про необходимость пошагового контроля результатов работы твоей программы ?)

← →
Dark © (2007-11-16 21:10) [114]

> Сергей С. (16.11.07 20:54) [113]
>
> > Dark © (16.11.07 20:43) [109]
>
>
> Дружок, ты пыжиться за обиженного будешь или таки вникнешь
> про необходимость пошагового контроля результатов работы
> твоей программы ?)

Пока занят поиском подходящего теоретического материала

← →
homm © (2007-11-16 21:12) [115]

> [107] @!!ex © (16.11.07 20:37)
> Ты зря ссоришься со всеми самыми уважаемыми людьми этого
> форума.

Да ну? Сергей С. — это что вообще такое?

← →
@!!ex © (2007-11-16 21:13) [116]

> [115] homm © (16.11.07 21:12)

Согласен. Не прав

← →
Сергей С. (2007-11-16 21:20) [117]

> homm © (16.11.07 21:12) [115]

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

← →
Сергей С. (2007-11-16 21:29) [118]

> Dark © (16.11.07 21:10) [114]

> занят поиском подходящего теоретического материала

Ты далеко-то не ходи-ищи - он, "материал", прямо перед носом твоим, в стандартной справке Среды)..

"Нажми на кнопку - получишь результат, и твоя мечта осуществится !" (С)

Это я о F1)

← →
Александр Павлов (2007-11-16 21:47) [119]

> Dark © (16.11.07 21:10) [114]

> Пока занят поиском подходящего теоретического материала

Классная книга по OP - это 2х томник от К. Пачеко и С. Тексейра, наз. "Руководство разработчика". Написана сия книга оч. доходчивым языком. Погугли и будет тебе щастье.

> Dark (16.11.2007 16:09:41) [41]

Ты чего идиотом нас считаешь, тут даже с исходниками дурят людей, прикладывая ехе чтобы не компилировать, а проверить, что нет вирусов предлагают по исходникам, и что странно - срабатывает :-)

> Ты чего идиотом нас считаешь, тут даже с исходниками дурят
> людей, прикладывая ехе чтобы не компилировать, а проверить,
> что нет вирусов предлагают по исходникам, и что странно
> - срабатывает :-)

Опять я вирусы выкладываю...ну что за недоверчивые...достаточно прочитать тему и уже можно понять,что это НЕ вирус! Блин...я в шоке..Даже скрин с Касперского есть!

> Классная книга по OP - это 2х томник от К. Пачеко и С. Тексейра,
> наз. "Руководство разработчика". Написана сия книга оч.
> доходчивым языком. Погугли и будет тебе щастье.

Спаисбо, поищу её.

> Даже скрин с Касперского есть!

Хочешь я и не такое нарисую! ;)

> Dark © (16.11.07 22:33) [121]

Это я не про вирус, а про твой аргумент про Касперского, я тебе элементарно обеспечу это. Вот это и означает, что ты нас за идиотов считаешь. Кроме того ни один антивирус не обнаружит не распространеный вирус, особенно троян.

> @!!ex © (16.11.07 22:38) [123]
> > Даже скрин с Касперского есть!
>
> Хочешь я и не такое нарисую! ;)

Я тоже могу много чего нарисовать ;-)

> Это я не про вирус, а про твой аргумент про Касперского,
> я тебе элементарно обеспечу это. Вот это и означает, что
> ты нас за идиотов считаешь. Кроме того ни один антивирус
> не обнаружит не распространеный вирус, особенно троян.

Допустим, я не приводил в качестве защиты скрина, ты как считаешь, моя прога.exe-вирус?

> @!!ex (16.11.2007 22:38:03) [123]

Рисовать не требуется, достаточно просканировать не зараженный, а выложить зараженный - и это без учета неизвестности для Касперского. Для тех кто сомневается рядом положить исходники, что бы сомнений не было :-)

> Dark (16.11.2007 22:43:05) [125]

> Допустим, я не приводил в качестве защиты скрина, ты как считаешь, моя прога.exe-вирус?

Зачем что то считать, кроме того некоторые еще помнят историю с Ганевым, там тоже мамой клялись и зуб давали.
Есть просто правило - соблюдай санитарию.
Все твои аргументы выглядят детскими.

> homm (16.11.2007 22:56:09) [129]

И ведет себя подозрительно, утверждает что все чисто, недавно был тут один, то же так себя вел, а антивирус ругался.

>
> И ведет себя подозрительно, утверждает что все чисто, недавно
> был тут один, то же так себя вел, а антивирус ругался.

А кто такой этот Ганев(извиняюсь если неправильно)?
> априорно — да. Я тебя в первый раз здесь вижу.

У меня правда графа пока лучше получается...PhotoShop CS3 и 3Ds Max 8...На неплохом уровне...а вот программирование....как видите. Я недавно зарегестрировался, так что немудрено, что в первый.

> Dark © (16.11.07 22:34) [122]
>
>
> > Классная книга по OP - это 2х томник от К. Пачеко и С.
> Тексейра,
> > наз. "Руководство разработчика". Написана сия книга оч.
>
> > доходчивым языком. Погугли и будет тебе щастье.
>
> Спаисбо, поищу её.

И я и easy уже давли в чате тебе ссылки на эту книгу. Ты что же, не скачал?

Вам исходники выложить? Для чистоты? Или поверили?)

> [133] Dark © (16.11.07 23:08)
> Вам исходники выложить? Для чистоты? Или поверили?)

Не.
Выкладывай свои произведений в «PhotoShop CS3 и 3Ds Max 8».
Надо доказывать свое умение «На неплохом уровне...» фактами.
Хоть картинки посмотрим, хотя скрин уже видели.

> Dark (16.11.2007 23:08:13) [133]

Кому предлагаешь? Я уже писал про исходники и заботливо положеный рядом экзешник и ведь покупаются же.

> Джо © (16.11.07 23:12) [135]
> > [133] Dark © (16.11.07 23:08)
> > Вам исходники выложить? Для чистоты? Или поверили?)
>
> Не.
> Выкладывай свои произведений в «PhotoShop CS3 и 3Ds Max
> 8».
> Надо доказывать свое умение «На неплохом уровне...» фактами.
>
> Хоть картинки посмотрим, хотя скрин уже видели.

Скрин реальный междупрочим. Я не занимаюсь созданием полных сцен...но могу просто выложить скрины некоторых моделей...опыты над физическим движком) Щас дам ссылки

> Dark (16.11.2007 23:17:17) [137]

Опять мамой клянешься?

> Опять мамой клянешься?

Я такими "вещами" не клянусь. Гружу картинки на сервер...уже 9 штук..

Чего-то недаёт всё сразу выложить...буду по частям

Делал проект своей кухни:
http://www.pichoard.com/images/Death/3k.jpg
http://www.pichoard.com/images/Death/5k.jpg

Модель вертолета Black Sharp для одной игрушки. Я помогал ему сдавать диплом) Он писал программу, я делал модельки, текстурки:
http://www.pichoard.com/images/Death/blacksharkmin.jpg
Модель города Багз-Сити из онлайн-игры zhuki.mail.ru, отпала необходимость создания, так что проект заморожен на половине...
http://www.pichoard.com/images/Death/bg1.jpg

Это одна из самых первых моих полных сцен:
http://www.pichoard.com/images/Death/kitchengoldvrayideal.jpg
Основа видеоролика ля всё той-же игры.
http://www.pichoard.com/images/Death/pr.jpg

Велосипед. Делал со своего на конкурс рисунков:
http://www.pichoard.com/images/Death/bike01.png
http://www.pichoard.com/images/Death/bike01w.png
http://www.pichoard.com/images/Death/bike02.png
http://www.pichoard.com/images/Death/bike02w.png

Одна тарелочка с салфеткой...проверял в Максе свойства тканей...
http://www.pichoard.com/images/Death/platemin.jpg
Ещё есть кучка хорошо детализированных моделек столовых приборов, а так же есть лоу поли модели для игры...но скринов нету, хотите отрендрю-завтра выложу.

Всё. Жду оценок и "пинков под зад"...

> Лови первый пинок

Чего так? Я не говорил, что владею на отличном или очень хорошем уровне.....я владею на не плохом...

По скриншотам сложно сказать о профессионализме в моделлинге в приципе.
Но на велосипеде видно много лишних поликов.
например на педалях.
К тому же серьезным показателем профессионализма является текстурная развертка.
ЕЕ тут вообще не видно.
Ну и конечно LowPoly модели. Чем выше качество и меньше поликов - тем профессиональнее.
Здесь же Low Poly нету совсем.

Да, я зыбал итог подвести...
Вобщем видно что Максом пользоваться умеешь, но насколько хорошо - нельзя сказать. Не плохо. :)
ПРавда наши моделлеры за велосипед основательно попинали, т.к. слишком много поликов ненужных.

> [151] @!!ex © (17.11.07 11:11)
> ПРавда наши моделлеры за велосипед основательно попинали,
> т.к. слишком много поликов ненужных.

Есть на свете моделирование и не только для игр. Для концепт — артов количество полигонов не имеет никакого значения.

> [152] homm © (17.11.07 11:25)

Конечно не имеет.
ОДнако лишнии полики нигде не нужны, тем более, если на качество они не влияют НИКАК.
Скорость рендера Макса тоже от количества поликов нехило зависит.

От души посмеялся. Спасибо.

Ну...текстурная развертки негде и нету если честно, не буду врать...разве что на кухнях. Просто смысла не было её делать. А насчет поликов..ну да...я сам знаю что грешки есть...но мне некогда было упрощать...надо было уложиться в сроки. А скорость рендера у меня приличная, со всеми картами отражения, а там практически на всем есть, велик рендрится 1280x1024 пол-минуты. Согласитесь для 200000 полигонов, такого разрешения и карт отражений неплохо. Ну а насчет вертолета...я делал по чертежам, если смотреть снизу, сверху, сзади, слева и т.п. То все правильно...а вот детали, которые в чертеже отобрпзить нельзя...напрочь отсутствуют.., корпус латал исходя из количества полигонов...но игра остановлена...хотите почитайте вот тут про неё:
http://forum.igromania.ru/showthread.php?s=d83bc7f4a7bb8e42bd7c3c04a45f496b&t=23913&page=1
Создатель - Pokibor
Я - 3D Designer
Эт чтоб посты знали от кого)
Но вот уже 2 дня у них сервак лагает...жаль..

Гланый сайт igromania.ru фурычит, а форум в ауте..

Так, наконец есть свободное время..падает в окошке о вопросе сохранения:
procedure TExitForm.ExitYesClick(Sender: TObject); begin if form1.savedialog1.Execute then //Вот тут begin AssignFile(F1, form1.savedialog1.FileName); ReWrite(F1); Write(F1, form1.Edit1.text); WriteLn(F1); Write(F1, form1.Edit2.text); WriteLn(F1); Write(F1, form1.Edit3.text); WriteLn(F1); Write(F1, form1.disc.Caption); WriteLn(F1); Write(F1, form1.x1.Caption); WriteLn(F1); Write(F1, form1.x2.Caption); Closefile(f1); form1.savedialog1.free; form1.n2.Enabled:=false; end; exitform.Close; end;
Ещё одна ошибка появляется, если сразу после команды сохранить выбрать загрузить. Ошибка таже самая, но другой адрес...строка в главном окне:
procedure TForm1.N3Click(Sender: TObject);
begin
if OpenDialog1.Execute then //Вот тут.
begin
AssignFile(F1, OpenDialog1.FileName);
FileMode := fmOpenRead;
Reset(F1);
Read(F1, stroka);
Edit1.Text:=stroka;
readln(f1);
Read(F1, stroka);
Edit2.Text:=stroka;
readln(f1);
Read(F1, stroka);
Edit3.Text:=stroka;
readln(f1);
Read(F1, stroka);
disc.caption:=stroka;
readln(f1);
Read(F1, stroka);
x1.caption:=stroka;
readln(f1);
Read(F1, stroka);
x2.caption:=stroka;
readln(f1);
CloseFile(f1);
opendialog1.Free;
form1.n2.Enabled:=false;
end;
end;
Из этого видно, что ошибки аналогичные...а значит я что-то простое не понимаю...

> form1.savedialog1.free;

> opendialog1.Free;

ППЦ! Жесть! Нет слов!

> [157] Dark © (17.11.07 21:17)

ЗАЧЕМ ТЫ FREE ДЛЯ КОМПОНЕНТОВ РАССТАВЛЕННЫХ В ДИЗАЙН ТАЙМЕ ВЫЗЫВАЕШЬ???
УДАЛЕНИЕ И СОЗДАНИЕ ТАКИХ КОМПОНЕНТОВ АВТОМАТИЗИРОВАНО.

То есть, мы сохраняем или открываем что-то там первый раз, затем
в извращенной форме уничтожаем T...Dialog и при следующей
попытке сохранить/загрузить пытаемся обратиться к nil с надеждой
что там, в бездне, осталось еще что-то от T...Dialog
Красота...

Ппц...Фленова в топку...пошел править

Сорри, ссылки нету, мне друг принес его на флешке...
Так, основные глюки исчезли, за что всем огромное спасибо.

Остался другой, уже менее значительный глюк...который то и глюком назвать сложно.. для срабатывания кнопочки нет её приходится нажимать два раза....а не один...:
procedure TForm1.N6Click(Sender: TObject); begin If form1.n2.Enabled=false then form1.close else begin exitform.showmodal; If co=0 then form1.close; end; end;//Это код кнопки Выход в меню.
А это код кнопки НЕТ окна exitform:
procedure TExitForm.ExitNoClick(Sender: TObject); begin co:=0; exitform.Close; end;
Всё же чисто...никаких повторов быть не должно..

Всем, кто помогал низко кланяюсь, разобрался.

Если ты не последний жлоб, то шли деньгу. Всем участникам ветки.
Т.е. выбор прост - либо умный, либо бабки.

> Johnmen (17.11.2007 22:20:46) [166]

Если умный, хрен вам бабки.

> Если умный, хрен вам бабки.

Я выбираю Умный)
Вот если кому интересно, на данный момент безглючный вариант программы, зажатый в zip для удобства вместо 400 кб с копейками - 205.
http://slil.ru/25115970
Пароль стандартный, delphimaster

Отладка программы или неуловимый глюк Найти похожие ветки