Ir al contenido



Foto

Debug Print en Delphi?


  • Por favor identifícate para responder
2 respuestas en este tema

#1 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 mensajes
  • LocationLima-Peru

Escrito 30 junio 2011 - 12:02

Bueno estoy depurando una aplicacion y mi codigo esta mayormente en delphi asi que encontre unos ejemplos los cuales me sirven en mi caso, si estuviera en C pero lo que no ocurre nose si alguien tiene similares add log como estos:


[cpp]void __cdecl add_log (const char *fmt, ...)
{
    if(ofile != NULL)
    {
        if(!fmt) { return; }

        va_list va_alist;
        char logbuf[256] = {0};

        va_start (va_alist, fmt);
        _vsnprintf (logbuf+strlen(logbuf), sizeof(logbuf) - strlen(logbuf), fmt, va_alist);
        va_end (va_alist);

        ofile << logbuf << endl;
    }
}[/cpp]

[cpp]VOID DbgPrint(LPSTR form, ...){
  static char tmp[2048];va_list p;
  va_start(p,form);
  wvsprintf(tmp,form,p);
  OutputDebugString(tmp);
  va_end(p);
}[/cpp]


Se lo agradeceria mucho...

  • 0

#2 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.898 mensajes
  • LocationMadrid - España

Escrito 30 junio 2011 - 04:08

Para ello tienes la función Format.



delphi
  1. var
  2.   Str: String;
  3.  
  4. begin
  5.   Length(Str);
  6.   Str:= Format('Valor: %s',[Str]);
  7.   OutputDebugString(PChar(Str));
  8. end;



También te puede interesar esto.

Saludos.

  • 0

#3 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 mensajes
  • LocationLima-Peru

Escrito 30 junio 2011 - 11:29

Muchas gracias escafandra si ya entendi muy bien esto :D
  • 0