Где ошибка (переменная-процедура)

[Kronos913]

procedure qqq(SL: TStrings);
  type
   TPr1 = Procedure(const s:string);
var
  Pr:TPr1;
begin
  Pr:=Sl.Add;
  {что-то там}
end;

Выдает ошибку на строке присвоения. В чем проблема?

[Kronos913]

Собственно мне нужно чтобы переменная-процедура могла принимать значения двух процедур:
1. Sl.Add
2. Внутренней под-процедуры

[Kronos913]

Ок, нашел что add - это функция, подправил в type значение, все равно выдает ошибку

[BDA]

type
   TPr1 = function(const s:string): Integer of object;

Но ваша функция тоже должна быть методом какого-нибудь класса.

[Kronos913]

А теперь внутренняя функция процедуры не хочет ей присваиваться

[BDA]

Потому что "Procedure pointer types are always incompatible with method pointer types." (Procedural Types).

[Kronos913]

Получается, нужно создавать процедуру, которая состоит из одного вызова функции add ?
Чтобы реализовать это таким способом

[BDA]

Или создать свой класс с нужным методом-функцией, тогда тип совпадет. А вообще Сага о X, Y и Z...

[Kronos913]

Или создать свой класс с нужным методом-функцией, тогда тип совпадет

И как тогда это сделать?

[BDA]

Вы прочли заметку о X, Y, Z?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TSimpleClass = class
    function some_work(const S: string): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TSimpleClass.some_work(const S: string): Integer;
begin
  ShowMessage('IN simpleclass:' + sLineBreak + S);
  Result := 0;
end;

procedure proc(sl: TStrings; sc: TSimpleClass);
type
   Tf = function(const s: string): Integer of object;
var
  f: Tf;
begin
  if Random(2) = 0 then
    f := sl.Add
  else
    f := sc.some_work;
  f('check');
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  sl: TStringList;
  sc: TSimpleClass;
begin
  sl := TStringList.Create;
  sc := TSimpleClass.Create;
  proc(sl, sc);
  ShowMessage('IN stringlist:' + sLineBreak + sl.Text);
  sl.Free;
  sc.Free;
end;

end.