Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из функции передать несколько значений? / 10 сообщений из 10, страница 1 из 1
09.02.2020, 05:24
    #39924319
Fier
Fier
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
На форме кнопка Button и Label1 Label2:
 

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
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.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 06:40
    #39924320
x1ca4064
x1ca4064
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
Fier,

перейти на питон :)

А если не переходить: либо var параметры, либо возвращать record
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 07:16
    #39924321
Sinemurius
Sinemurius
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
И никогда !!! Ни при каких обстоятельствах, не используйте глобальные переменные !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 15:54
    #39924386
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
1.
Код: pascal
1.
2.
3.
4.
5.
TMyRecord = record
  Res1: integer;
  Res2: double;
end;
function d(a,b: integer): TMyRecord;



2.
Код: pascal
1.
function d(a,b: integer; var Res1,Res2: integer): boolean;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 18:10
    #39924406
Fier
Fier
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
DimaBr, ошибку показывает:
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
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;

type
  TMyRecord = record
  Res1: integer;
  Res2: double;
end;
 function d(a,b: integer): TMyRecord;

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 d(a,b: integer; var Res1,Res2: integer): boolean;
var d1,d2: integer;
begin
d1:=a+b*a; //Присваиваем функции сумму переменных 1
Res1:=d1;

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

end;

end.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 18:14
    #39924407
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
Прочитать хотя бы одну книжку или конспекты лекций (взять у кого они есть)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 18:17
    #39924408
Fier
Fier
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
Белых негров не бывает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 19:10
    #39924411
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
Я вам показал 2 варианта. Первый через запись, второй через параметры. Вы, в своём коде их объединили

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
var
  Form2: TForm2;

type
  TMyRecord = record
  Res1: integer;
  Res2: double;
end;
 function d(a,b: integer): TMyRecord; // тут объявлено одно

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var i,i2,a,b:integer; 
begin
a:=5;
b:=5;
i:=d(a,b); // тут обращаемся к методу, которого нет ни в первой ни во втором случае
// в первом случае возвращается Запись, и тогда переменная i и i2 должны иметь тип TMyRecord
// во втором случае в функцию нужно передавать 4 параметра
Label1.Caption:=IntToStr(i);//выводим    d1

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

end;



function d(a,b: integer; var Res1,Res2: integer): boolean; // а тут другое
var d1,d2: integer;
begin
d1:=a+b*a; //Присваиваем функции сумму переменных 1
Res1:=d1;

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

end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2020, 19:34
    #39924413
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2020, 05:28
    #39924499
Fier
Fier
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из функции передать несколько значений?
DimaBr, спасибо,разобрался.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из функции передать несколько значений? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 435ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2038619]:
 0ms
get settings:
 4ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 147ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 211ms
total:  435ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]