Как из функции передать несколько значений?

[Rendw]

На форме кнопка Button и Label1 Label2:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function d (a, b:integer):integer;

  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var i,i2,a,b:integer; 
begin
a:=5;
b:=5;
i:=d(a,b); //ссумируем
Label1.Caption:=IntToStr(i);//выводим    d1

i2:=d(a,b);
//Label2.Caption:=IntToStr(i2);//выводим    d2
end;

function TForm2.d(a, b: integer): integer;
var d1,d2: integer;
begin
d1:=a+b*a; //Присваиваем функции сумму переменных 1
Result:=d1;

//d2:=a*2+b*a; //Присваиваем функции сумму переменных 2
//Result:=d2;

end;
end.

В label2 не получается вывести d2.

[Shouldercannon]

Функция: возвращение нескольких значений
Как сделать, чтобы функция возвращала 2 и более значений?

[Rendw]

Эти страницы видел.

[digitalis]

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

Эти страницы видел.

И не понравились ?

[Алексей_2012]

Вариант1;

function d(a, b: integer): string;
var d1,d2: integer;
begin
   d1:=a+b*a; 
   d2:=a*2+b*a; 
   Result:='d1 = '+IntToStr(d1)+', d2 = '+inttostr(d2);
end;

procedure TForm2.Button1Click(Sender: TObject);
var a,b:integer;
    s,s1:string;
begin
  a:=5;
  b:=5;
  s:=d(a,b);
  s1:=Copy(s,1,Pos(',',s)-1);
  Delete(s,1,Length(s1)+1);
  Label1.Caption:=s1;
  Label2.Caption:=s;
end;

Вариант2;

type
  DynArr = array of Integer;



function d(a, b,count: integer): DynArr;
var d_:DynArr;
    i:Integer;
begin
  SetLength(d_,count);   //инициализируем количесвто элементов массива count , нумерация начинается с 0

  for i:=0 to count-1 do
  if i=0 then       //если первый элемент с 0 адресацией, то формула 1 иначе формула 2
  d_[i]:=a+b*a else
  if i=1 then d_[i]:=a*2+b*a else
  d[i]:=a+b;
  Result:=d_;

end;



procedure TForm1.Button1Click(Sender: TObject);
var a,b,count:integer;
    d_:DynArr;

begin
a:=5;
b:=5;
count:=2;
d_:=d(a,b,count);
Label1.Caption:=IntToStr(d_[0]);
label2.Caption:=IntToStr(d_[1]);
d_:=nil;
end;

[Heneken]

Вариант 3;

type
    TResultArray = record
    private
       FOlolo1: Integer;
       FOlolo2: String;
       FOlolo3: TObject;
       FOlolo4: TForm;
       ......
       FOlolo9999999: TEdit;
   public
      property Ololo1: Integer read FOlolo1 write FOlolo1;
      property  Ololo2: String read FOlolo2 write FOlolo2;
      property  Ololo3: TObject read FOlolo3 write FOlolo3;
      property   Ololo4: TForm read FOlol4 write SetOlolo4;
       ......
      property  Ololo9999999: TEdit read FOlolo9999999 write FOlolo9999999 ;
   end;

  { TResultArray }

   procedure TResultArray.SetOlolo4(const Value: TForm );
   begin
       FOlolo4 := Value;
       FOlolo4 .Caption := 'Ололошная форма 4';
   end
  implementation
   
и где нибудь с  другого места рисуем вот такой чудесный метод.... хоть 2 значения с результата, хоть миллион....

   function TДругоеМесто.ResultMyOlolo(AParam: Integer): TResultArray 
   begin
      Result.FOlolo1 := AParam;
      Result.FOlolo2 := 'АДЫН';
      Result.Ololo3 := TMyClassSuperClass.Create;
      Result.Ololo4 := TForm.Create(Screen);
      ....
      Result.Ololo9999999 := TEdit.Create(Result.Ololo4);
      Result.Ololo9999999.Parent :=  Result.Ololo4;
   end

P.S: Я немножко перестарался, но это из ООП...вы можете функцией(методом!) возвращать хоть целый набор классов,объектов..А не только простые переменные(ПОЛЯ!)

[newerow1989]

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

В label2 не получается вывести d2.

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

//Label2.Caption:=IntToStr(i2);//выводим d2

Убрать косые черты в начале строки