| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Function 2 значения

Страницы:   < 1 2 >

Stepan4ik ©   (2014-09-21 00:41:00) 

Как вернуть 2 значения с функции ?
1-ое Result, а 2-е ?
И можно пример, пжл )

---

Stepan4ik   (2014-09-21 01:51:00) [21]

function TForm1.GetSum(a, b : Integer) : Integer;
begin
 Result.sum:=a+b;
Result.raz:=a-b;
end;

Ошибка лезет :

[DCC Error] Unit1.pas(36): E2018 Record, object or class type required
[DCC Error] Unit1.pas(37): E2018 Record, object or class type required

---

Ega23   (2014-09-21 01:40:00) [22]

> Вот крч что мне надо. Я хз как получить и sum и raz.


Вариант 2.

---

Stepan4ik   (2014-09-21 01:26:00) [23]

Function GetSum(a, b : Integer) : Integer;
var
sum,raz:integer;
begin
 sum:=a+b;
 raz:=a-b;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetSum (3,3);
end;

Вот крч что мне надо. Я хз как получить и sum и raz.

---

Ega23   (2014-09-21 00:53:00) [24]

1. procedure Bar(var Prarm1: Type1; var Param2: Type2; .....);

2.
 type
    TFoo = record
      Field1: Type1;
      Field2: Type2;
      ........
    end;
function Bar: TFoo;

3.
function Bar: Pointer;

---

Inovet   (2014-09-21 00:47:00) [25]

Также смотри модификатор Var. Ещё указатели есть. Смотря что удобнее из 3-х.

---

Stepan4ik   (2014-09-21 00:44:00) [26]

Я не понимаю что вы написали. Можете пример кинуть ?)

---

junglecat   (2014-09-21 00:43:00) [27]

> а 2-е ?

Result2
Шутка.
Заведи record с 2 полями и возвращай

---

Страницы:   < 1 2 >

Наверх