Память при переменной процедуре/функции

[Kronos913]

Внутри процедуры есть такой код:

  type
   TFunc1 = function(const s:string): boolean;
  const
   DirectoryFileExists:array [false..true] of TFunc1 =(DirectoryExists, FileExists);

If DirectoryFileExists[b](s1) then begin {что-то там}

b - bollean, s1 - string

У меня вопрос такой: этот массив является просто ссылками на функции?
Или же этот массив еще раз дублирует код этих функций?

[Kronos913]

Может кому пригодится, вот полный код:

Function FindDirFilDisk(const s1:string; var s2:string; const a:boolean):boolean;
  type
   TFunc1 = function(const s:string): boolean;
  const
   DirectoryFileExists:array [false..true] of TFunc1 =(DirectoryExists, FileExists);
  var
   c:char;
begin
   FindDirFilDisk:=false;
   c:='C';
   repeat
    If DirectoryFileExists[a](c+s1) then begin
     s2:=c+s1;
     c:='Z';
     FindDirFilDisk:=true;
    end;
    inc(c);
   until c>'Z';
end;

Одна и та же флешка при разных подключениях может оказаться диском E, F, G, и т.д.
И функция ищет, на каком диске находится папка, или файл

[Kronos913]

Вообще, насколько такой "универсализм" замедляет работу функции?
Можно было сделать отдельную функцию для папок и файлов, а можно вот так одну универсальную

[evg_m]

а зачем все это?

Одна и та же флешка при разных подключениях может оказаться диском E, F, G, и т.д.

если программа на ЭТОЙ же флешке и требуется доступ к "соседним" файлам, то существуют...
1. относительные пути.
2. Application.ExeName
3. ParamStr(0)
4. ExtractFilePath и другие функции выделения(Extract....) нужных фрагментов файлового имени

[BDA]

Сообщение от Kronos913

этот массив является просто ссылками на функции?

Просто ссылки.
Очевидные исправления:

Function FindDirFilDisk(const s1: string; var s2: string; const a: boolean): boolean;
type
  TFunc1 = function(const s: string): boolean;
var
  c: char;
  checkExists: TFunc1;
begin
  Result := False;
  if a then
    checkExists := FileExists
  else
    checkExists := DirectoryExists;
  for c := 'C' to 'Z' do
    If checkExists(c + s1) then
    begin
      s2 := c + s1;
      Result := True;
      break;
    end;
end;

Использовать: Result (можно безболезненно переименовывать функцию и не думать о ее коде), break (а не подстраиваться под условие цикла), for (так как известны границы цикла), сразу брать адрес функции (во-первых, до цикла, так как функция одна и та же на всех итерациях; во-вторых, не из массива, чтобы не было косвенной адресации). Это если не поднимать вопрос целесообразности такого подхода, а только причесать текущий код.

Сообщение от Kronos913

Вообще, насколько такой "универсализм" замедляет работу функции?

Хороший вопрос. Замеряйте время работы универсальной и специализированной версий.