Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#7

Re: C nach Delphi übersetzen

  Alt 11. Jun 2006, 22:28
Hi,

...ich nochmal. Ich grübele gerade über diese Codestelle:

Code:
DWORD GetDefaultPrinterName(LPTSTR PrinterName, DWORD BufferSize)
{
 /* ... */
  char* p;

/* ... */

{
      if (GetProfileString("windows","device","",PrinterName,BufferSize) == BufferSize-1)
        return ERROR_INSUFFICIENT_BUFFER;

      p = PrinterName;
      while (*p != '0' && *p != ',')
        ++p;
      *p = '0';

      rc = ERROR_SUCCESS;
    }
  }

  return rc;
}
Die macht für mich keinen Sinn, da mit der Variable p (PChar bzw. Pointer of Char) nichts weiter angefangen wird. Ist das richtig ?
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat