| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись в файл и его создание [D7, WinXP]

Dot ©   (2004-09-21 22:28:00) 

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

---

GuAV   (2004-09-21 23:00:00) [1]

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.

---

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

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

---

GuAV   (2004-09-21 22:31:00) [3]

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

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

---

Наверх