ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из функции передать несколько значений?
10 сообщений из 10, страница 1 из 1
Как из функции передать несколько значений?
    #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, 05:24
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #39924320
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
Fier,

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

А если не переходить: либо var параметры, либо возвращать record
...
Рейтинг: 0 / 0
09.02.2020, 06:40
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #39924321
Sinemurius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sinemurius
Участник
И никогда !!! Ни при каких обстоятельствах, не используйте глобальные переменные !!!
...
Рейтинг: 0 / 0
09.02.2020, 07:16
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #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, 15:54
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #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:10
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #39924407
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Прочитать хотя бы одну книжку или конспекты лекций (взять у кого они есть)
...
Рейтинг: 0 / 0
09.02.2020, 18:14
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #39924408
Fier
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fier
Гость
Белых негров не бывает.
...
Рейтинг: 0 / 0
09.02.2020, 18:17
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #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:10
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #39924413
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
09.02.2020, 19:34
| Ответить | Цитировать | Написать  
Как из функции передать несколько значений?
    #39924499
Fier
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fier
Гость
DimaBr, спасибо,разобрался.
...
Рейтинг: 0 / 0
10.02.2020, 05:28
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из функции передать несколько значений?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39924499&tid=2038619]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 140ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 216ms
total:  439ms
созд. / загр.: 439ms
x
x
Закрыть


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