передача масива в функцию

[IliaIT]

но как ни странно на всём форуме не пользуется это var к входящим элементам. в функциях в особенности.!

[Serge_Bliznykov]

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

но как ни странно на всём форуме не пользуется это var к входящим элементам. в функциях в особенности.

IliaIT, или я вашу мысль не понимаю, или Вы ошибаетесь.

Модификатор var применяется не к "входящим" или "исходящим" параметрам.
Это всё навсего указание компилятору, что данный параметр передаётся в процедуру/функцию по ссылке (т.е. передаётся адрес), поэтому, если внутри процедуры/функции этот параметр изменяется, то изменяется и переменная, которая была передана.
сравните:

procedure Test1(k:integer);
begin
  k:=100
end;
var n : integer;
begin
  n := 1;
  Test1(n);
  WriteLn(n);
end.

procedure Test2(var k:integer);
begin
  k:=100
end;
var n : integer;
begin
  n := 1;
  Test2(n);
  WriteLn(n);
end.

И, например, в связи с этим, в качестве такого параметра нельзя передать константу.
т.е. Test1(33) можно вызвать, Test2(33) - нельзя - компилятор такое не пропустит.

[Аватар]

но как ни странно на всём форуме не пользуется это var к входящим элементам. в функциях в особенности

Не знали наверно, что так нельзя:

function FindNext(var F: TSearchRec): Integer;

[lichking]

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

unit Unit1;

interface

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

type
  TCompRec =record real, extend: Extended; end; // избавимся от массивов

   TComplex = class(TObject)
   private
   { private declarations }
   protected
   { protected declarations }
   public
     constructor Create(F: TForm;I:integer);
   { public declarations }
   published
     class function slojenie (S2,S3 :TCompRec): TCompRec; //будем получать нормальный результат
     { published declarations }
   end;


  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

//var  НИКАКИХ глобальных переменных
//IM:TComplex;
//i:integer;  ОСОБЕННО для переменных цикла.
//s,s2,s3,S4: array [0..1] of Extended;
 

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 s2, s3, s4: TcompRec;
begin
s2.real:=strtofloat(Edit1.Text);
s2.extend:=strtofloat(Edit2.Text);
s3.real:=strtofloat(Edit3.Text);
s3.extend:=strtofloat(Edit4.Text);
//for I := 0 to 1 do // нет массива нет и цикла
s4:=TComplex.slojenie(S2,S3);
StaticText1.Caption:='';
StaticText2.Caption:='';
StaticText3.Caption:='';
begin
StaticText1.Caption:=format('[%f;%f]', [s4.real, s4.extend]);
StaticText2.Caption:=format('[%f;%f]', [s4.real, s3.extend]);
StaticText3.Caption:=format('[%f;%f]', [s4.real, s2.extend]);
end;
end;

{ TComplex }

constructor TComplex.Create(F: TForm; I: integer);
begin

end;

class function TComplex.slojenie(S2, S3: TCompRec): TCompRec;
begin
  result.real:=s2.real +s3.real; 
  result.extend:=s2.extend +s3.extend;
end;

end.

P.S. если ОЧЕНЬ хочется вернуться к массиву, то

TCompRec =record real, extend: extended; end;array [0..1] of extended;

далее замена
xx.real --> xx[0]
xx.extend --> xx[1]

наверно это очень хороший и возможно даже рабочий но я не могу это проверить в Delphi 10.1 Berlin т.к. там нет функции
s2.real
s2.extend

[evg_m]

т.к. там нет функции
s2.real
s2.extend

их нет, есть полЯ объявленной НАМИ записи(record) с такими именами.

type
TCompRec = record real, extend: Extended; end; // избавимся от массивов

s2: TcompRec;

s2.real:=.......//задать (или получить если справа от:=) значение соответствующего поля указанной переменной.

Мы вместо использования массива array [0..1] of extended
для хранение ДВУХ чисел используем запись(record) с ДВУМЯ же полями.

не могу это проверить в Delphi 10.1 Berlin

то что там написано работает в Deplhi 7.

[lichking]

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

unit Unit1;

interface

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

type
  TCompRec =record real, extend: Extended; end; // избавимся от массивов

   TComplex = class(TObject)
   private
   { private declarations }
   protected
   { protected declarations }
   public
     constructor Create(F: TForm;I:integer);
   { public declarations }
   published
     class function slojenie (S2,S3 :TCompRec): TCompRec; //будем получать нормальный результат
     { published declarations }
   end;


  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

//var  НИКАКИХ глобальных переменных
//IM:TComplex;
//i:integer;  ОСОБЕННО для переменных цикла.
//s,s2,s3,S4: array [0..1] of Extended;
 

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 s2, s3, s4: TcompRec;
begin
s2.real:=strtofloat(Edit1.Text);
s2.extend:=strtofloat(Edit2.Text);
s3.real:=strtofloat(Edit3.Text);
s3.extend:=strtofloat(Edit4.Text);
//for I := 0 to 1 do // нет массива нет и цикла
s4:=TComplex.slojenie(S2,S3);
StaticText1.Caption:='';
StaticText2.Caption:='';
StaticText3.Caption:='';
begin
StaticText1.Caption:=format('[%f;%f]', [s4.real, s4.extend]);
StaticText2.Caption:=format('[%f;%f]', [s4.real, s3.extend]);
StaticText3.Caption:=format('[%f;%f]', [s4.real, s2.extend]);
end;
end;

{ TComplex }

constructor TComplex.Create(F: TForm; I: integer);
begin

end;

class function TComplex.slojenie(S2, S3: TCompRec): TCompRec;
begin
  result.real:=s2.real +s3.real; 
  result.extend:=s2.extend +s3.extend;
end;

end.

P.S. если ОЧЕНЬ хочется вернуться к массиву, то

TCompRec =record real, extend: extended; end;array [0..1] of extended;

далее замена
xx.real --> xx[0]
xx.extend --> xx[1]

спасибо помогло