Чтение фалов как текстовых

[Gerzs]

Добрый день!
Как прочитать любой файл как текстовый?

[[MoNAMur]]

var a:textfile;
begin
assignfile(a,'xxx.xxx');
reset(a);

...

closefile(a);
end;

или я не так понял вопрос?

[Gerzs]

Спасибо, я это хотел узнать.

Еще такой вопрос, можно ли загрузить в TextFile не весть файл, а первые 6 байт?

[Ekzot1k]

Думаю тут проще всего просто почитать 6 байт в сиволах, и сделать цыкл до этого числа.

[Олвин]

В TextFile ничего не загружается. Эта переменная содержит идентификатор файла. А загрузить первые сколько_угодно байт можно в переменную. Для загрузки первых 6 байт проще всего объявить переменную типа string[6] и читать с помощью процедуры read. Вопросы?

[russian-stalker]

program Project1;
var
f:textfile;
s,r:string;
i:integer;
begin
assign(f,'C:\input.txt');
reset(f);
read(f,s);
for i:=1 to 6 do
r:=r+s[i];
writeln(r);
readln(s);
end.

[Олвин]

r:=copy(r, 1, 6);

[Gerzs]

Спасибо всем.
Вот есть

var
  SearchRec: TSearchRec;
  myFile: TextFile;
  Text:String;
begin
if FindFirst('D:\Новая папка\*', faAnyFile, SearchRec) = 0 then
  begin
   repeat
    AssignFile(myFile, 'D:\Новая папка\'+ SearchRec.Name);
    Reset(myFile);
    ReadLn(myFile, Text);
    closefile(myFile);
    if Copy(text, 1, 3)='ID3' then
    begin


     with ListView1.Items.Add do
     begin
      Caption:=SearchRec.Name;
      SubItems.Add(IntToStr(SearchRec.Size));
     end;

     //CopyFile(PWideChar('C:\Documents and Settings\zaj\Local Settings\Application Data\Google\Chrome\User Data\Default\Cache\'+ SearchRec.Name), PWideChar('D:\Новая папка\'+SearchRec.Name+'.mp3'), true);
    end;
   until FindNext(SearchRec) <> 0;
   FindClose(SearchRec);
   end;
end;

Прога компилируется, но при записке пишет: 'File access denied' и тыкает на строку Reset(myFile);
В чем проблема?

[Олвин]

Было бы неплохо написать в этом месте код, выводящий на экран SearchRec.Name. Наверняка FindFirst находит файл '.' или '..'. Не знаю что это, но это есть.

[Serge_Bliznykov]

в том, что вы как файл пытаетесь открыть папки (они же директории), а это недопустимо...

if (SearchRec.Attr and faDirectory)=0 then begin
// значит это файл, а не папка...
end;

и ещё. не с любым файлом получится прочитать первые 6 байт, если открывать его как TextFile
надо использовать или f : file; Reset(f,1); BlockRead(f, Buf, 6)
или TFileStream ...

А ещё лучше в if добавить условие, отфильтровывающее файлы с именами '.' и '..'!
Только что это такое я не знаю!

папка (директория) с именем '.' это специальный элемент файловой системы для ссылки на текущию папку.
папка (директория) с именем '..' это специальный элемент файловой системы для ссылки на вышестоящую папку...