[Anton93]

Почему используя следующий код записывается только первый символ строки в файл:

Код:

hFile := CreateFile(PChar(Path+'\my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
 SetFilePointer(hFile, 0, nil, FILE_BEGIN);
 WriteFile(hFile, str, Length(str), Written, nil);
 CloseHandle(hFile);