Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
Re: как работать с тхт файлами?
код
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.
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
Re: как работать с тхт файлами?
Код рабочей, поэтому пара вопросов:
1.Файл имеет имя data.txt(должно быть как в коде) или например
Data.TXT?
2.После строки есть перевод на новую строку(должен быть)?
Файл должен выглядеть так:
b
line
//после line должна быть строка(хотябы пустая).