Реферат Програми для роботи з великим обсягом інформації, записаної в файлах

дачник/О.Ф. Ускова [та ін]; під ред. О.Ф. Ускової - СПб.: Питер, 2002. - 336 с.

Програми

Додаток 1. Модуль HelpUtils

Unit HelpUtils;// допоміжні процедури

interface SysUtils, Windows;

const

Yes = ['Y', 'y', 'Н', 'н']; = ['N', 'n', 'Т', 'т']; = Yes + No;

// виведення повідомлення

procedure ShowMessage (txt: string);

// висновок питання

function InputQuery (txt: string): Boolean;

// введення імені файлу

function InputFileName (txt: string; var FileName: string;: boolean): Boolean;

implementation

// виведення повідомлення

procedure ShowMessage (txt: string);

begin

Writeln (txt);;

end;

// висновок питання

function InputQuery (txt: string): Boolean;

var ch: Char;

begin

Writeln (txt);

repeat

Readln (ch);

until ch in YesOrNo;: = ch in Yes;

end;

// перевірка на коректність імені файлу

function CheckFileName (FileName: string): Boolean;

const Banned = ['', '/', ':', '*', '? ',' "',' <','> ',' | '];

var i: Integer;

begin

Result: = True;: = 1;

while Result and (i <= Length (FileName)) do

begin

Result: = not (FileName [i] in <...