Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3825785 Mon, 16 Mar 2020 12:30:31 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3825785 Например, деление нацело и остаток от деления вычисляются одной инструкцией процессора, потому код

x := a div b;

y := a mod b;

это глупость с точки зрения производительности если оно не будет оптимизировано компилятором.
Так же и в функциях. Выше был правильный ответ, использовать record. Нафига тут объект и ООП я не знаю, простейший вариант следующий:

type TRec = record x,y:integer; end;

function test(a,b:integer):TRec;

begin

result.x=1;

result.y=2;

end;

]]> Виталь Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3821312 Tue, 18 Feb 2020 07:09:44 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3821312 Цитата Breind10 @ 09.02.20, 02:01

На форме кнопка 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.

создать две функции :D]]> Cfon Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820763 Sun, 09 Feb 2020 14:50:47 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820763 Gonarh, спасибо большое.]]> Breind10 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820745 Sun, 09 Feb 2020 09:35:18 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820745

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

ololo = record

d1:integer;

d2:integer;

end;

type

TForm2 = class(TForm)

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

function d (a:ololo):ololo;

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var a:ololo;

begin

a.d1:=5;

a.d2:=5;

a:=d(a); //ссумируем

Label1.Caption:=IntToStr(a.d1);//выводим d1

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

end;

function TForm2.d(a:ololo):ololo;

begin

Result.d1:=a.d1+a.d2*a.d1;

Result.d2:=a.d1*2+a.d2*a.d1;

end;

end.

]]> Gonarh Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820743 Sun, 09 Feb 2020 09:26:14 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820743

type

TComplex = record

Re, Im: Double;

function Create(ARe, AIm: Double): TComplex;

end;

function TComplex.Create(ARe, AIm: Double): TComplex;

begin

Result.Re:= ARe;

Result.Im:= AIm;

end;

]]> Breind10 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820737 Sun, 09 Feb 2020 07:16:39 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820737 Как правильно прописать?

type
rec = record
d1,d2:integer;
end;]]> Breind10 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820732 Sun, 09 Feb 2020 03:31:02 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820732 Кроме того, можно добавить var-параметр.

А приведённый пример вообще намекает, что результат должен зависеть от количества вызовов, в этом случае нужно где-то хранить состояние.]]> MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820731 Sun, 09 Feb 2020 02:01:11 +0000 Как из функции передать несколько значений? https://forum.sources.ru/index.php?showtopic=416804&view=findpost&p=3820731

Скрытый текст

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.

]]> Breind10 Delphi: Общие вопросы