Пустая функция

[Kronos913]

Существует ли какая-то "пустая фукция", которая возвращает введенную в нее переменную?
Или надо ее сооружать самому?

Зачем это нужно?

Чтобы была переменная типа функция, которая иногда принимает значение какой-то функции от переменной, а иногда напрямую возвращала переменную

[digitalis]

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

которая иногда принимает значение какой-то функции от переменной, а иногда напрямую возвращала переменную

... как когда ей на ум взбредёт.
Никакая функция переменную не возвращает, равно как и не отбирает. Функция возвращает значение, которое в операторе, вызвавшем эту функцию, присваивается переменной. Например: функция вычислила значение, положила его в стек и закончила работу. Управление передаётся оператору, вызвавшему эту функцию, который забирает из стека вычисленное значение и присваивает его переменной.

function afedron(arg,ivar:integer) : integer ;
begin
    if ivar <> 0 then Result := arg*3 + 1 else Result := arg
end;

[Desc]

От жаль прекращена поддержка одобрения постов.
Высказывание

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

функция вычислила значение, положила его в стек и закончила работу. Управление передаётся оператору, вызвавшему эту функцию, который забирает из стека вычисленное значение и присваивает его переменной.

многого стоит.
Плюсую.

[Kronos913]

Суть задачи такая:
Переменной типа функции в зависимости от параметров присвоить функцию

И в случаи одного из вариантов нужно чтобы функция была равна введенной переменной. И можно ли это сделать напрямую, не создавая самую функцию result:=a, чтобы не было двух перемещений одной и той же переменной? Или только так?

[Desc]

Похоже что после дополнительной вводной информации стало только хуже.
что значит

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

И в случаи одного из вариантов нужно чтобы функция была равна введенной переменной.

?

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

[BDA]

Первый вариант - напишите уж свою функцию, которая возвращает переменную как есть. Не экономьте на спичках:

function f1(const a: Integer): Integer;
begin
  Result := a;
end;

function f2(const a: Integer): Integer;
begin
  Result := -a;
end;

procedure TForm1.btn1Click(Sender: TObject);
type
  TFunc = function(const a: Integer): Integer;
var
  f: TFunc;
begin
  if Random(2) = 0 then
    f := f1
  else
    f := f2;
  ShowMessage(IntToStr(f(10)));
end;

Второй вариант - подход просто неверен, и можно сразу считать результат:

function f2(const a: Integer): Integer;
begin
  Result := -a;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  a, f: Integer;
begin
  a := 10;
  if Random(2) = 0 then
    f := a
  else
    f := f2(a);
  ShowMessage(IntToStr(f));
end;

[Kronos913]

Вот для чего это нужно

type
  string1=string[1];

Function ClipboardToLowerString(var s:string; const c:string1): boolean;
var
 ss:TStrings;
 i:word;
 j: byte;
begin
 ss:=TstringList.Create;
 ss.Text:=Clipboard.asText;
 {1}
 If ss.Count>0 then begin
  {2}
  s:=LowerCase(ss[0]);
  i:=1;
  while i<ss.Count do begin
   If length(s)+length(c)<256 then begin
    s:=s+c;
    If length(s)+length(ss[i])>255 then begin
     j:=0;
     while length(s)<255 do begin
      inc(j);
      s:=s+LowerCase(ss[i][j]);
     end;
     i:=ss.Count
    end else begin
     s:=s+LowerCase(ss[i]);
     inc(i);
    end;
   end else i:=ss.Count;
  end;
  {2}
  Result:=(length(s)>0);
 end else begin
  s:='';
  Result:=false;
 end;
 {1}
 ss.Free;
end;

Конкретно для этой программы нужно использовать функцию LowerCase
Однако чтобы сделать функцию универсальной, хотелось бы добавить возможность с помощью дополнительного булеана сделать возможным выбирать использовать LowerCase или напрямую использовать переменную

[BDA]

Само имя функции говорит, что результат будет "уменьшенной" строкой. Почему для "c" не использовать char? Очевидные изменения (вместо внешнего while - for; вместо внутреннего while - copy).

function ClipboardToLowerString(var s: string; const c: char): boolean;
var
  ss: TStringList;
  i: word;
begin
  ss := TStringList.Create;
  ss.Text := Clipboard.asText;
  {1}
  if ss.Count > 0 then
  begin
    {2}
    s := LowerCase(ss[0]);
    for i := 1 to ss.Count - 1 do
    begin
      if length(s) < 255 then
      begin
        s := s + c;
        if length(s) + length(ss[i]) > 255 then
        begin
          s := s + LowerCase(Copy(ss[i], 1, 255 - length(s)));
          Break;
        end
        else
          s := s + LowerCase(ss[i]);
      end
      else
        Break;
    end;
    {2}
    Result := (length(s) > 0);
  end
  else
  begin
    s := '';
    Result := false;
  end;
  {1}
  ss.Free;
end;

Если хочется универсальности. Можно по флагу применять LowerCase к Clipboard.asText (но там может быть много текста), а если есть гарантия, что значение "c" не восприимчиво к LowerCase, то после формирования строки "s" применить LowerCase к ней (там где в коде {2}). И последнее замечание: так ли необходим TStringList, может быть, самому анализировать строку будет "дешевле"?