Einzelnen Beitrag anzeigen

Benutzerbild von coollupo
coollupo

Registriert seit: 25. Nov 2005
Ort: Seligenstadt
7 Beiträge
 
Delphi 2007 Architect
 
#3

Re: PAnsiChar mit write in Datei schreiben

  Alt 17. Nov 2008, 11:04
Hi, such mal hier im Forum nach "BlockWrite". Da bekommst Du schon jede Menge Hinweise.

var
WrittenBytes : integer;
DestFile : file;


..
{$I-}
BlockWrite(DestFile,buf^[0],10000,WrittenBytes);
{$I+}

if (IOResult<>0) then exit;

if (WrittenBytes<>10000) then exit;
..
Tipp: Dreckiges Geschirr schimmelt nicht, wenn man es einfriert.
  Mit Zitat antworten Zitat