Реферат Розробка зручною діалогової програми, що полегшує доступ до файлових даними

y"> begin.Init (Bounds, HS, VS);;: = gfGrowHiX + gfGrowHiY; (LLine, PS ^. Count);

{-------------} TInterior.Done; (PS, Done); Done;

{-------------} TInterior.ReadFile;

{Читає вміст файлу даних в масив LINES}

var: Integer;: String;: DataType;: text;: = New (PStringCollection, Init (100,10)); (DataFile, 0); not (EOF (DataFile) or LowMemory) do (DataFile, data); data do: = Name; Length (s) '' then PS ^. Insert (NewStr (s));: = 0;; {ReadFile}

{-------------} TInterior.Draw;

{Виводить дані у вікно перегляду}, {Поточний рядок екрана} k {Поточний рядок масиву}: Integer;

B: TDrawBuffer;: Byte;: PString; Delta.Y> Location then: = Delta.Y; Location> Delta.Y + pred (Size.Y) then: = Delta.Y + pred (Size.Y); n: = 0 to pred (Size.Y) do

{Size.Y - кількість рядків вікна}

begin: = Delta.Y + n; k = Location then: = GetColor (2): = GetColor (1); (B, '', Color, Size.X); k < pred (PS ^. Count) then: = PS ^. At (k); (B, Copy (p ^, Delta.X +1, Size.X), Color);; (0, N, Size.X, 1, B);;; {TInterior.Draw}

{-------------} Control: Word;

{Отримує команду з основного діалогового вікна}

const = 1; = 12; = 13;: array [0 .. 4] of String [13] = {Написи на кнопках}

('`1` Вихід', '`2` Прибрати', '`3` Шукати', '`4` Змінити', '`5` Додати');

Txt: array [0 .. 3] of String [52] = ({Довідковий текст}

'Прибрати - видалити запис, виділену кольором',

'Шукати - шукати запис, що починається потрібними літерами',

'Змінити - змінити поле (поля) виділеної записи',

'Додати - додати новий запис =)');

var: TRect;: PDlgWin;: Integer;. Assign (7,6,74,15);

D: = New (PDlgWin, Init (R, 'Виберіть продовження:'));

with D ^ dok: = 0 to 3 do {Вставляємо пояснювальний текст}. Assign (1,1 + k, 65,2 + k); (New (PStaticText, Init (R, # 3 + Txt [k])));; k: = 0 to 4 do {Вставляємо кнопки}. Assign (X + k * DX, 6, X + k * DX + L, 8); (New (PButton, Init ( R, But [k], cmCan + k, bfNormal))); (False); {Активізуємо першу кнопку};: = DeskTop ^. ExecView (D); {Виконуємо діалог}; {Control}

{-------------} TInterior.HandleEvent; DeleteItem;

{Видаляє вказаний в Location елемент даних}: Integer;: PString;: String;: DataType;: = PS ^. At (Location); {Отримуємо поточну запис}: = copy (PStr ^, 1, LName); (DataFile, 0);

D: = -1; {D...