Как объединить процедуры с одинаковым кодом в Delphi?

Question

[smigles]

Есть две процедуры в Delphi:

procedure procInt(var arr: array of integer);
var
  p: integer;

begin
  ...
end;

procedure procStr(var arr: array of string);
var
  p: string;

begin
  ...
end;

Процедуры имеют абсолютно одинаковый код внутри блока begin ... end;. Различаются они только типом данных у параметра-массива arr и у объявляемой переменной p.

Можно ли как-то объединить эти две процедуры, чтобы не писать один и тот же код?

Comments

[smigles]

Сергей, перегрузка же позволяет только использовать одно и то же имя процедуры или функции. Всё равно придётся дублировать код.

Answer 1

[kalapanga]

Например так:

type
  TArrayHelper<T> = class
    class procedure CoolProc(var arr: TArray<T>); // Ваша процедура
  end;

…

implementation

class procedure TArrayHelper<T>.CoolProc(var arr: TArray<T>); // Реализация Вашей процедуры
var
  Tmp: T;
begin
    Tmp := arr[0];
    arr[0] := arr[4];
    arr[4] := Tmp;
end;

procedure TForm1.Button1Click(Sender: TObject); // Проверка работы
var
  i: integer;
  iarr: TArray<Integer>;
  sarr: TArray<String>;
begin
  iarr := TArray<Integer>.Create(1, 2, 3, 4, 5);
  sarr := TArray<String>.Create('one', 'two', 'three', 'four', 'five');
  TArrayHelper<Integer>.CoolProc(iarr); // Вызов для целых чисел
  TArrayHelper<String>.CoolProc(sarr); // Вызов для строк
  for I := 0 to 4 do
  begin
    memo1.Lines.Add(IntToStr(iarr[i]));
    memo2.Lines.Add(sarr[i]);
  end;
end;

Comments

[smigles]

Из-за скудных познаний в ООП разобраться сложно, но будем пробовать. Спасибо!

[zed]

smigles Это называется Generics. Таким образом действительно можно писать код, не зависящий от типа переменных, но, если не ошибаюсь, этот код будет работать немного медленнее, чем исходный вариант с дублированием кода.

Answer 2

[Андрей Скоржинский]

procedure procIntOrStr(var arr: array of integer); overload;
procedure procIntOrStr(var arr: array of string); overload;

Comments

[smigles]

Всё равно придётся дублировать код внутри блока begin...end.

[Андрей Скоржинский]

Псевдокод:

procedure procIntOrStr(var arr: array of string); overload;
begin
bla bla...
end;
procedure procIntOrStr(var arr: array of integer); overload;
var arrInternal: array of string;
begin
arrInternal := convert(arr);
procIntOrStr(arrInternal);
end;

Answer 3

[xDimus]

Как вариант можно оставить одну процедуру например str, а перед вызовом преобразовывать массив int в массив str.
А что у вас делает

абсолютно одинаковый код внутри блока

?

Comments

[smigles]

Сортирует строки и целые числа. Как оказалось, чуть-чуть код будет различаться: по заданию в одном из случаев массив содержит не сами значения, а указатели на них, соответственно различается обращение к значениям. Возможно, и этот момент можно как-то учесть в единой процедуре.

[Freeman]

Чтобы написать такой код, сначала надо принять индуизм.

Answer 4

[microfrog]

procedure procVar(var arr: array of Variant);

Внутри определять конкретный тип переменных в массиве и производить над ними нужные действия.