Не записывает в переменную

[beemoto]

Hi, all people!
Подскажите плиз где ощибка, непонимаю =(
всё пашет, но не записывает в переменную s слово Seventy

var
  MyFile : file;
begin
  assignFile(MyFile, 'sex.dat');
  ReWrite(MyFile);
  {для записи}
  Blockwrite(MyFile,'Seventy',sizeof('Seventy'));
  {для чтения}
  reset(MyFile);
  BlockRead(MyFile, s,sizeof(s));
  CloseFile(MyFile);
  showmessage(s);

[goblinyara]

хмм... дэлфи под рукой нет, чтоб проверить, но всё же кажется, что sizeof('Seventy') и sizeof(s) дадут разные результаты, поэтому и происходит так....

[beemoto]

спасибо, но непомогает =(

[CyberOrcX]

assignfile(myfile, 'sex.dat');

добавь перед:

reset(myfile);

[Selestis]

попробуйте
Rewrite(MyFile,1);
и вместо SizeOf('...') : Length('...);

[beemoto]

CyberOrcX, непомогает =(
Selestis, тоже =(

[betirsolt]

Сообщение от beemoto

CyberOrcX, непомогает =(
Selestis, тоже =(

а чем тебе не подходит объект Tstringlist??

[beemoto]

мне нужен самый простой пример записи в батник(т.е. шифровать инфу)

[Utkin]

Будет только текст?

[beemoto]

да.....................