Рик Гаско - Простой учебник программирования

GoHome;
var
path
dir
name
ext

}
}
j

j

:
:
:
:

PathStr;
DirStr;
NameStr;
ExtStr;

begin
path:=ParamStr(0);
F S p l i t ( p a t h , d i r , name, e x t ) ;
ChDir( path + d i r ) ;
end;
{

j

end.

А надо ли это вообще? Скорее всего, не надо. В предыдущих главах вам
встречалась милая пионерская программка, в которой половина
переменных была не инициализирована ­ а программа несмотря на это
работала, и хорошо работала. При запуске Паскаля память зачищается
нулями. Тем не менее, если вам за программирование платят деньги,
рассчитывать на такое везение я бы не стал. Так и здесь. Я бы не стал
рассчитывать что каталог, из которого программа запущена, является
рабочим. Одна манипуляция со свойствами ярлыка...
270

Один меткий выстрел... © Женитьба Фигаро.
Теперь пишем процедуру, удаляющую из нашей коллекции картинку.
Она будет заметно проще.
procedure D e l e t e P i c (
ind : integer);
var
i
: integer;
begin
i f ( i n d > = 1 ) a n d ( i n d < = n u m O f ) do b e g i n
FreeMem( P s [ i n d ] , S i z e s [ i n d ] ;
f o r i : = n u m O f downto i n d + 1 do b e g i n
Ps[i­1]:=Ps[i];
Names[i­1]:=Names[i];
Sizes[i­1]:=Sizes[i]
end;
numOf:=numOf­1;
end;
end;

Проверку на корректность номера удаляемого элемента добавлять надо,
не раздумывая, и не надеясь на порядочность пользователя. Со мной
работала чудесная девушка, в смысле ­ красавица просто неописуемая, а
ко всему ещё исключительно умная. Единственный её недостаток
заключался в том, что, встретив в программе диаметр чего­то, она
никогда не проверяла его на равенство нулю. «Но это же диаметр!» ­
объясняла она окружающим идиотам ­ «Диаметр всегда больше нуля!».
Жизнь над ней периодически грязно надругивалась.
Обратите внимание на заполнение дыры в массивах, образовавшейся
после удаления элемента. Делается это от конца массива к началу, в
обратном порядке. Почему и зачем, рассказано в первой книге, а сейчас
просто напоминаю. Почему­то все забывают.
Далее пишем элементарнейшие функции, возвращающие количество
картинок и их имена. Даже объяснять нечего.
{
f u n c t i o n NumOfPic : i n t e g e r ;
begin
NumOfPic:=numOf;
end;
{
procedure NameOfPic(
num

j

j
: integer;

271

var

fname

: string);

begin
(num>=1) a n d (num --">