Файлы

[Тутонхамон]

Наткнулся на такой код:

var
  myWord, myWord1, myWord2 : Word;
  myFile : File of Word;

begin
  // Попытка открыть файл Test.bin binary для записи
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);

  // Запись нескольких строк данных Word в файл
  myWord1 := 234;
  myWord2 := 567;
  Write(myFile, myWord1, myWord2);

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла в режиме только для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    ShowMessage(IntToStr(myWord));
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;

Все работает только если записывать цифры.
А при попытке записать строки вылетает ошибка не тот тип.

myWord1 := 'text';

[Error] Unit1.pas(45): Incompatible types: 'Word' and 'String'

Подскажите как записать строки в файл не TXT.

[p51x]

в цикле записывать коды символов строки

[Тутонхамон]

Спасибо ща попробую)

[Тутонхамон]

А записывать так надо

myWord1 := $41;

$41 = 'A'

А то в строку записывает почему то 65

[asmodey1]

$41=4*16+1=65

[856100]

myWord1 := 'text';

а вы изменили тип переменной, после того как решили записать в файл строку?

[Сtrl]

Сообщение от Тутонхамон

А записывать так надо

myWord1 := $41;

$41 = 'A'

А то в строку записывает почему то 65

Используйте стандартные функции chr() и ord().

[Тутонхамон]

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

Используйте стандартные функции chr() и ord().

Всем огромное спасибо теперь я понял.
Я сделал следующим образом и все получилось:

myWord1 := ord('A');
myWord2 := 1212;
Write(myFile, myWord1, myWord2);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    ShowMessage( chr(myWord) );
  end;

Действительно работает.