как работать с тхт файлами?

[uairat]

делаю пример из хэлпа но он не раьотает.
чтение из тхт файла байта и строки первой

[IGR]

делаю пример из хэлпа но он не раьотает.
чтение из тхт файла байта и строки первой

покажи код !!

[uairat]

код

program TEMP;
VAR byte,i,j,k:integer; c:resource;line:string;
begin 
c:= OpenResource('/data.txt'); 
    
      if (resourceAvailable(c)) then 
      begin 
          byte := ReadByte(c); 
          line := ReadLine(c); 
       
          CloseResource(c); 
      end; 
       
      ShowForm; 
      i := FormAddString('Byte is: ' + chr(byte)); 
      i := FormAddString('Line is: ' + line); 
      Delay(1000); 

end.

[IGR]

это код точно как в хелпе ??
если да то проверь правильность имени файла !!

[ViNT]

Код рабочей, поэтому пара вопросов:
1.Файл имеет имя data.txt(должно быть как в коде) или например
Data.TXT?
2.После строки есть перевод на новую строку(должен быть)?

Файл должен выглядеть так:

b
line
//после line должна быть строка(хотябы пустая).

[IGR]

1.Файл имеет имя data.txt(должно быть как в коде) или например
Data.TXT?

тож должно быть data.txt тока он(файл) должен быть в папке с кодом програмы !!

После строки есть перевод на новую строку(должен быть)

если ReadLine то вроде нет !!

[uairat]

ааааа всё!
не было перевода на новую строку
большое спасибо!

[dimanche13]

пока печатал, он уже разобрался))))))

[uairat]

dimanche13 спасибо)

[uairat]

у меня теперь возник ещё впросик.
как сделать чтобы читалась кириллица?
сохранял в юникод,анси ничего правильно не читается

[ViNT]

Вообще должна быть кодировка UTF-8 по сути Юникод. Попробуй набирать текст в редакторе MP.

[uairat]

ни один вариант не работает....
кодировки попробовал,в редакторе попробовал написать...
не читается

[ViNT]

А проверял как, на эмуляторе или на мобиле?
Ато на некоторых эмуляторах бывает проблема с кирилицей, а на мобиле все нормально.

[Piligrim]

Эмулятор чаще всего читает win1251, а телефон берет utf8

[uairat]

все пробовал на эмуле.
почти все на телефоне.
попробую win1251