|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Binäre Datei erstellen
15. Aug 2007, 10:18
Delphi-Quellcode:
var fs: TFileStream;
b: Byte;
begin
fs:=TFileStream.Create('Dateiname', fmOpenWrite, fmShareDenyWrite);
try
b:=$38;
fs.Write(b, 1);
finally
fs.Free;
end;
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|