akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору djdtyfhu а вот со строками может и не получится... если будешь упорствовать, то совет: переходи на "нуль-терминатед стрингс" , на С-строки то есть... Цитата: набор функций для чтения этих файлов. | Код: subroutine CALL_READ_STRING(pa_string,N_File,Name_REC) pointer(pa_string,string) OPEN(8,FILE=N_File,ACCESS='DIRECT',status='old',RECL=4000) CALL FREADC(8,Name_REC,string) end subroutine CALL_READ_STRING | если это -- одна из таких функций, то в чём проблема? назначение этой функции -- прочитать из файла блок данных, единственный вызов FREADC() (Лахей что ли?) ну так и пиши: Код: type TMyType = array[1..16, 1..250] of char; //здесь определяй тот тип, который нужен // TMyType = array[1..4, 1..250] of widechar; //или что там тебе надо? const RECLEN = 4000; // вообще лучше sizeof(TMyType) var f: file of TMyType; mybuf: TMyType; begin assign(f, filename); reset(f);//, RECLEN read(f, mybuf); //читаем _одну_ запись размера RECLEN closefile(f); end. | и всё, переписана одна фор-функция CALL_READ_STRING() | Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 15:52 23-08-2007 | Исправлено: akaGM, 15:55 23-08-2007 |
|