Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.05.2013, 18:04
winsman winsman вне форума
Прохожий
 
Регистрация: 09.10.2012
Сообщения: 5
Репутация: 10
Вопрос Вывод отладочной информации

Всем привет. В процессе разработки приложений на Делфи иногда возникает необходимость в отладке некоторых функций либо участков кода, для этого иногда приходится специально добавлять компоненты для вывода отладочной информации (такие, как Memo, Label и тп). Когда все начинает работать как надо эти компоненты уже не нужны и их приходится удалять. Я подумал, что для вывода такой информации можно написать специальный модуль с консолью. Но консоль в Делфи рассматривается скорее как отдельное приложение. И я не понимаю, можно ли использовать консоль вместе со стандартной формой Делфи? Или, как можно реализовать модуль для отладки приложений с консолью либо без неё?
Ответить с цитированием
  #2  
Старый 19.05.2013, 18:08
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Эм.. Понимаю, если бы писал операционку или еще что-то в таком духе. Но в делфи существует дебаг, с просмотром всех переменных и пошаговым исполнением. Отладочный вывод требуется крайне редко, а если и требуется - то достаточно вывода в файл или какой-нибудь ShowMessage.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 19.05.2013 в 18:11.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
winsman (19.05.2013)
  #3  
Старый 19.05.2013, 18:18
winsman winsman вне форума
Прохожий
 
Регистрация: 09.10.2012
Сообщения: 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от Bargest
достаточно вывода в файл или какой-нибудь ShowMessage.
Но это не всегда удобно. Файл занимает место на диске и его нужно постоянно открывать, а потом еще удалять. ShowMessage при многократном вызове создает много окон, которые нужно закрыть.
Ответить с цитированием
  #4  
Старый 19.05.2013, 18:24
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

Ну так закрой) жми enter
Имхо showmessage - самое удобное
А если в цикле и много вызовов - посмотрел с десяток, понял, что переменные правильно/неправильно крутятся, нажал reset
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
Этот пользователь сказал Спасибо Mrak за это полезное сообщение:
winsman (19.05.2013)
  #5  
Старый 19.05.2013, 18:28
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Файл занимает место на диске
В этом вся соль. Можно хранить лог всех дебагов. А если не надо - первой строкой программы удаляем этот файл.
Цитата:
ShowMessage при многократном вызове создает много окон,
Если меньше 10 - это ерунда. Никаких проблем. А если больше - стоит выводить в файл, чтобы потом не спеша анализировать.
И еще раз, самое удобное на мой взгляд - это трассировка и Watch. Можно, конечно, сделать консоль, слать туда данные, но пользы будет минимум.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
winsman (19.05.2013)
  #6  
Старый 19.05.2013, 18:36
winsman winsman вне форума
Прохожий
 
Регистрация: 09.10.2012
Сообщения: 5
Репутация: 10
По умолчанию

Иногда делать трассировку очень долго, тем более если код работает нормально и нужно просто проверить данные, которые сообщает тот или другой процесс при постоянно меняющихся входных данных этого процесса. В консоль, например, можно вывести входные данные и результат их обработки, не прибегая к трассировке кода и тп (в таком случае консоль может заменить TMemo, но его нужно добавить в окно приложения а затем удалить, что на мой взгляд не совсем удобно)
Ответить с цитированием
  #7  
Старый 19.05.2013, 18:46
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Все равно не понимаю, что мешает поставить брейк-пойнт, если надо - можно с условием на срабатывание после N-ного прохода. Запись в файл равносильна консоли, только данные сохраняются навсегда.
Если все еще собираешься делать - искать по теме что-нибудь вроде AllocConsole.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
winsman (19.05.2013)
  #8  
Старый 19.05.2013, 19:27
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

создай процедуру WriteLog(s: String). когда отлаживаешь пиши в ней в файл лог. после заглуши ее Exit'ом.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
winsman (19.05.2013)
  #9  
Старый 19.05.2013, 20:14
winsman winsman вне форума
Прохожий
 
Регистрация: 09.10.2012
Сообщения: 5
Репутация: 10
По умолчанию

AllocConsole решило проблему http://www.delphisources.ru/pages/fa...n_noncons.html. Правда код пришлось адаптировать под модуль и написать функцию для перевода из ANSI в ASCII. Теперь достаточно подключить модуль и данные можно выводить в консоль.

Спасибо!
Ответить с цитированием
  #10  
Старый 20.05.2013, 02:13
Snake22 Snake22 вне форума
Активный
 
Регистрация: 20.02.2011
Сообщения: 374
Репутация: 744
По умолчанию

в виндовc.pas есть процедура
OutputDebugString( str );
правда принимает тока строки. но можно написать процедурку такую
Код:
Procedure Debug(OutText:Variant);
var text:string;
begin
case TVarData(OutText).VType of
    varSmallInt,
    varInteger   : text := IntToStr(OutText);
    varSingle,
    varDouble,
    varCurrency  : text := FloatToStr(OutText);
    varDate      : text := FormatDateTime('dd/mm/yyyy', OutText);
    varBoolean   : if OutText then text := 'T' else text := 'F';
    varString    : text := OutText;
    else            text := '';
    end;
OutputDebugString(PChar(text));

end;
и всё что выводится смотреть в окне на вкладке view-debug - event log (ctrl+alt+v)
Ответить с цитированием
  #11  
Старый 20.05.2013, 08:39
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от winsman
AllocConsole решило проблему
т.е. по всему коду теперь Writeln стоят?
после отладки удали консоль (AllocConsole) и посмотри что будет.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter