File writing

[Altera]

Привет всем!
У меня такая проблема:
Не могу нормально прочитать,записать значения в файл:

procedure TEXE_FORM2.Button1Click(Sender: TObject);
var
v: integer;
begin
   v := left;
   fileWrite(f, v, 4);
   v := top;
   fileWrite(f, v, 4);
end;

procedure TEXE_FORM2.Button2Click(Sender: TObject);
var
v: integer;
begin
   fileRead(f, v, 4);
   left := v;
   fileRead(f, v, 4);
   top := v;
end;

procedure TEXE_FORM2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   closeHandle(f);
end;

procedure TEXE_FORM2.FormCreate(Sender: TObject);
begin
   f := createFile(pCHar(paramStr(0)+'atomikTempTestFile.tmp'), GENERIC_READ or GENERIC_WRITE,
      0, 0, OPEN_ALWAYS, 0, 0);

   if f = 0 then
   begin
      showMessage('Функция не может открыть файл!');
      halt;
   end; 
end;

Что не так?

[_Engine_]

f надо проверять не на 0, а на INVALID_HANDLE_VALUE и смотреть результат в GetLastError.
Ну и путь к файлу неверно задается
PChar(ExtractFilePath(ParamStr(0)) + 'Твойфайл')

[Altera]

Тут дело не в этом.... Мне не нравятся fileWrite и fileRead. Третий параметр должен быть размером записываемой структуры или количеством её записи?

[_Engine_]

Третий параметр - количество байт, которое требуется записать.
Четвертый параметр - количество байт, которое удалось записать.

[Altera]

Ну, а что в коде не так?

[ViktorXP]

Ну, а что в коде не так?

да все остальное так.
просто если ты будеш пытатся считать файлы после записи но до переоткрытия файла то нужно спозицыонировать чтение на начало
FileSeek(f, 0, 0); // первый - хендл файла, второй позицыя, а вот третий там константы но имен я не помню. помню что ноль это от начала файла. их три есть вот я тремя цыфрами и пользуюсь
а все остальное работает. толко что проверил

[Altera]

Аааа, точно.... Вот я дура, такую вещь не заметил. Спасибо!