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

Вниз

WriteFile: Как записать текст в файл с новой строки ?   Найти похожие ветки 

← →
SDK   (2005-10-04 20:35) [0]


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) ?
Спасибо!

---

← →
begin...end ©   (2005-10-04 20:40) [1]

> SDK   (04.10.05 20:35)

> Buffer := "TEST"#10#13

Buffer := "TEST"#13#10

или

Buffer := "TEST" + sLineBreak

---

← →
SDK   (2005-10-04 20:42) [2]

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

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

---

← →
GanibalLector ©   (2005-10-04 22:02) [3]

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

---

← →
Германн ©   (2005-10-05 01:31) [4]

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

---

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

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

Наверх

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