|
|
|
|
Читает список строк из указанного текстового файла. Каждая строка читается до
символа конца строки ('\n') или до конца файла. Строки не содержат символов
конца строки ('\n') и перевода каретки ('\r').
Синтаксис
| function ReadStrings(
| | Handle, | | Strings, | | Length
| | ): Number;
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| Handle
| Number
| дескриптор открытого файла
|
| Strings
| TStrings
| дескриптор списка строк
|
| Length
| Number
| максимальное количество читаемых строк (необязательный параметр)
|
|
Возвращаемое значение
Количество прочитанных строк.
// Главная форма
frm=new TForm();
frm.Caption="JS+ - функция JS+ ReadStrings";
frm.Width =450;
frm.Height=300;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример работы с файловыми функциями";
// Текстовое поле
mem=new TMemo(frm);
mem.BorderStyle=bsSingle;
mem.SetBounds(10,10,frm.ClientWidth-20,stb.Top-20);
str_lst=new TStrings();
f_name=JSPlus.HelpDir+"DATA\\TextFile.txt";
if ((f=FileOpen(f_name,fmOpenRead))>=0) {
n=ReadStrings(f,str_lst);
str_lst.Add("Всего строк: "+n);
mem.Lines.Assign(str_lst);
FileClose(f);
}
frm.ShowModal();
|
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
