[Anton93]

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

Код:

 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]

Код:

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;