Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #2  
Старый 04.12.2012, 00:39
Snake22 Snake22 вне форума
Активный
 
Регистрация: 20.02.2011
Сообщения: 374
Репутация: 744
По умолчанию

сделай абцд глобальными.
или сделай coef как не процедукру,а функцию и она будет возвращать значения (в виде массива например).
чтоб функция возвращала массив смотри пример:

Код:
type
  TForm1 = class(TForm)
    TntButton1: TTntButton;
    procedure TntButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
 massiv=array of integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function coef:massiv;
begin
SetLength(Result,4);
Result[1]:=1; //А
Result[2]:=2; //B
Result[3]:=5; //C
Result[4]:=100; //D
end;

procedure TForm1.TntButton1Click(Sender: TObject);
var x:massiv;
    a,b,c,d:Integer;
begin
x:=coef;
a:=x[1];
b:=x[2];
c:=x[3];
d:=x[4];
ShowMessage(IntToStr(a)+' '+IntToStr(b)+' '+IntToStr(c)+' '+IntToStr(d));
end;

Последний раз редактировалось Snake22, 04.12.2012 в 00:58.
Ответить с цитированием
Этот пользователь сказал Спасибо Snake22 за это полезное сообщение:
Басота (04.12.2012)
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:54.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025