[РЕШЕНО] Функции в Delphi

[digitalis]

Был уверен, что результатом выполнения функции является скалярная переменная. Потом заинтересовало: а так ли это? В описании - результат любого типа, кроме файлового. Решил попробовать с record. Работает!
Но вот с элементом массива record. подружить мою функцию не получилось. Is it possible ? Не для практического применения, чисто по теории.
Среда - D7 .

type
  Tr = Record
    Name : string[20];
    Val : integer ;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TrMas: array[0..10] of Tr ;
  TrTr: Tr ;
implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
Function Tr_Fun (i:integer): Tr ;
begin
   Tr_Fun.Name := 'Name' ; Tr_Fun.Val := i
end;

Begin
  TrTr := Tr_Fun(5) ;
  Edit1.Text := (TrTr.Name + ' ' + IntToStr(TrTr.Val))
end;

end.

[Serge_Bliznykov]

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

Но вот с элементом массива record. подружить мою функцию не получилось.

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

для затравки

procedure TForm1.Button1Click(Sender: TObject);
  Function Tr_Fun (nm:string;i:integer): Tr ;
  begin
     Tr_Fun.Name := nm ; Tr_Fun.Val := i
  end;
var i:integer;
Begin
  TrMas[0] := Tr_Fun('name',5) ;
  TrMas[1] := Tr_Fun('second',2) ;

  Edit1.Text := '';
  for i := 0 to 1 do
    Edit1.Text := Edit1.Text + (TrMas[i].Name + ' ' + IntToStr(TrMas[i].Val)+' ')
end;

[digitalis]

Действительно, работает. Видимо, ошибся где-то со скобкой - ночь, жара...
Thanks.
Вопрос закрыт.

[northener]

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

Действительно, работает. Видимо, ошибся где-то со скобкой - ночь, жара...

Дело не в скобке. И не в ночи, жаре и т.п.
Скажите спасибо оптимизатору Дельфи, что выбросил вашу функцию на помойку проигнорировав её как функцию. Ибо ваша функция не возвращает никакого результата! Она лишь меняет значение некоей глобальной переменной.
И тут повторно вопрос

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

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

[digitalis]

Вот этот пост был совершенно лишним - во_первых, мы с Serge_Bliznykov все детально разобрали и вопрос закрыт, во-вторых, суждение в нем неверное.

лишь меняет значение некоей глобальной переменной

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

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

type
  Tr = Record
    Name : string[20];
    Val : integer ;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TrMas: array[0..10] of Tr ;
  TrTr: Tr ;
  st: string ;
implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var ii: integer ; s_s: string ;

Function Tr_Fun (st:string;i:integer): Tr ;
begin
   Tr_Fun.Name := st ; Tr_Fun.Val := i
end;

Begin
  s_s := Edit1.Text ;
  ii := StrToInt (Copy(s_s,1,1)) ;
  s_s := Copy(s_s,2,64) ;
  TrMas[ii] := Tr_Fun(s_s,ii) ;
  Form1.Caption := (TrMas[ii].Name + ' = ' + IntToStr(TrMas[ii].Val)) ;
end;

end.

Как видим, никто никого никуда не выбросил, функция жива и работает штатно. А причина не работы первичного примера - где-то описка.
Вопрос закрыт. Ещё раз.

[Человек_Борща]

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

Ибо ваша функция не возвращает никакого результата!

Не согласен в корне

function Foo: string;
begin
  Result := 'BAR';
end;

Тоже самое что и

function Foo: string;
begin
  Foo := 'BAR';
end;

[digitalis]

Ну невнимательно человек прочитал исходник. Не верится, чтоб человек с таким рейтингом был не осведомлен об синтаксисе функции.
http://www.delphibasics.ru/Function.php

[Serge_Bliznykov]

я за northener могу поручиться чем угодно!
Он просто невнимательно посмотрел на код.
Вот и всё.
А Вы сразу начали ему синтаксис Паскаля объяснять. Он его и так знает.

[digitalis]

Мы же не в суде, чтоб брать на поруки Просто обмен мнениями.
А вот конструкция вроде

   Result.Val := i

не работает. тоже работает, оказывается !
Если бы я сразу этот вариант проверил, и сыр-бор бы не разгорелся.
Но это все - пустяки. Только бы мой рыжий котик полностью выздоровел.

[northener]

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

Ну невнимательно человек прочитал исходник.

Это точно. Посыпаю голову.