[Anton93]

помогите корректно дописывать данные в файл, делаю так

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject);  var   Written: DWORD;   hFile: THandle;   str: string;  begin  str:= 'hello world';   hFile := CreateFile(PChar('my.txt'), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);   SetFilePointer(hFile, 0, nil, FILE_END);   WriteFile(hFile, str, Length(str), Written, nil);   CloseHandle(hFile); end;

Вроде бы все работает, файл создается, в файл все дописывается, но вместо моего текста 'hello world', пишется всякие иероглифы
вот такого типа

Других вариантов не предлагать, нужно помочь доделать этот код.

[lmikle]

Версия Дельфи какая? Может "налетел" на то, что в последних версиях String это Unicode?

[Bargest]

Или же записал значение указателя, а не данные. http://www.delphisources.ru/forum/sh...ad.php?t=12804

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var   hFile: THandle;   str: String;   NumberOfBytesWritten: DWORD; begin   str:='Привет, Siri'+sLineBreak;   hFile:=CreateFile('Unit1.txt', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);   if hFile<>INVALID_HANDLE_VALUE then   begin     SetFilePointer(hFile, 0, nil, FILE_END);     WriteFile(hFile, str[1], Length(str), NumberOfBytesWritten, nil);     CloseHandle(hFile);   end; end;