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

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

WriteFile: Как записать текст в файл с новой строки ? [D7, WinXP]

SDK ©   (2005-10-04 20:35:00) 


var
 hFile: THandle;
 Buffer: PAnsiChar;
 BytesWritten: Cardinal;
begin
 // при просмотре Блокнотом после записи TEST строка не  
//переносится
 Buffer := 'TEST'#10#13;
 hFile := CreateFile('c:\Text.txt',GENERIC_WRITE,FILE_SHARE_READ,nil, OPEN_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0);
 if hFile <> INVALID_HANDLE_VALUE then
 begin
   SetFilePointer(hFile,0,nil,FILE_END);
   WriteFile(hFile,Buffer^,Length(Buffer),BytesWritten,nil);
   CloseHandle(hFile);
 end else
   MessageBox(0,PAnsiChar(SysErrorMessage(GetLastError)),'I/O   Error',MB_ICONERROR);
end;

Что нужно сделать, чтобы переносить каждую новую запись на следующую строку (как при Append) ?
Спасибо!

---

Германн   (2005-10-05 01:31:00) [1]

2 GanibalLector ©   (04.10.05 22:02) [3]
Появился в Д6.

---

GanibalLector   (2005-10-04 22:02:00) [2]

2 begin...end ©   (04.10.05 20:40) [1]
>sLineBreak
Только что посмотрел...оказывается его в D5 нету :( а в D7 есть ;)

---

SDK   (2005-10-04 20:42:00) [3]

>begin...end ©   (04.10.05 20:40) [1]

Спасибо! Сейчас попробую...

---

begin...end   (2005-10-04 20:40:00) [4]

> SDK   (04.10.05 20:35)

> Buffer := 'TEST'#10#13

Buffer := 'TEST'#13#10

или

Buffer := 'TEST' + sLineBreak

---

Наверх