Версия для печати темы

Автор: 18192123 4.12.2006 17:48

объясните пожалуйста, как сделать, чтобы из процедуры множество передавалось в основную программу.

Автор: klem4 4.12.2006 18:28

type
  TSet = set of byte;

procedure GetSet(var s: TSet); // передаем параметр по адресу
begin
// работаетм со можеством/изменяем его
  s := [3, 2];
end;

// в основной части программы

var
  MySet: TSet;

begin
  MySet := [];
  GetSet(MySet); //  теперь MySet == [3, 2]
end.

Это имела в виду ?

Автор: 18192123 4.12.2006 18:59

да! спасибо!!!