FileWrite
Adam Boduch
FileWrite
Moduł: SysUtils
program Foo;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
FileHandle : Integer;
S : array[0..128] of Char;
begin
FileHandle := FileCreate('C:\foo.txt');
try
S := 'To jest test: Hello World!';
FileWrite(FileHandle, S, Length(S));
finally
FileClose(FileHandle);
end;
end.
Funkcja zwraca -1 w przypadku, gdy dane nie zostaną prawidłowo zapisane lub ilość faktycznie zapisanych danych jeżeli operacja się powiedzie.
Zobacz też: