Code: Alles auswählen
var
fd, fw: integer;
const
s: string = 'Hello World';
begin
fd := FpOpen('test.txt', O_RDWR or O_CREAT);
repeat
fw := FpWrite(fd, s[1], Length(s));
until (fw <> -1) or (fpgeterrno <> ESysEINTR);
FpClose(fd);
end;
Nun zur Frage, für was ist die repeat-until-Schleife ?
Wen ich diese weg lasse, wird die Datei auch erzeugt.
Die Schleife habe ich aus der Unit sysutil kopiert, Zeile 535.
Bei FileCreate ist auch so eine Schleife vorhanden.