Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Запись в файл и его создание   Найти похожие ветки 

← →
Dot   (2004-09-21 22:28) [0]

Народ помогите, как на Апи функциях создать текстовый файд и написать в него хоть что нить?

---

← →
GuAV ©   (2004-09-21 22:31) [1]

CreateFile создать или открыть файл
WriteFile писать в файл

текстовых файлов не бывает, они придуманы в Pascal.

---

← →
Dot   (2004-09-21 22:37) [2]

Ну можно код ? поподробней

---

← →
GuAV ©   (2004-09-21 23:00) [3]

program Project1;

{$APPTYPE CONSOLE}

uses
 Windows;

var
 h: THandle; w: DWORD;
 S: string = "Some text"+#$0D#$0A;
begin
 h:=CreateFile("LOG.DXT", GENERIC_WRITE, 0, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
 if h=INVALID_HANDLE_VALUE then
 begin
   WriteLn("cannot create error ", GetLastError);
 end
 else
 begin
   if not WriteFile(h, PChar(S)^, Length(S)*SizeOf(Char), w, nil) then
     WriteLn("cannot write error ", GetLastError);
   CloseHandle(h);
 end;
 ReadLn;
end.

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.053 c