Текущий архив: 2006.05.28;
Скачать: CL | DM;
ВнизОбмен переменными между процедурами Найти похожие ветки
← →
BAngel (2006-05-11 22:38) [0]Подскажите плиз как перекинуть значение переменной из одного обработчика событий в другой
← →
TUser © (2006-05-11 22:40) [1]Передать его в качестве параметра при вызове или сохранить его значение в поле соотвествующего класса.
← →
BAngel (2006-05-11 22:43) [2]Я вобще пока чайник, так что поподробнее можно?
← →
Gydvin © (2006-05-11 22:59) [3]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
// или здесь обьяви переменную, но она будет действительна только ////для этой юниты. Например
s:string;
public
{ Public declarations }
//или здесь, для обмена том числе между формами
end;
var
Form1: TForm1;
//ну или здесь
implementation
{$R *.dfm}
end.
> Передать его в качестве параметраunit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
function test (a,b:string):string;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function tform1.test (a,b:string):string;
begin
result:=a+b;
end;
procedure tform1.FormCreate(Sender: TObject);
begin
showmessage(test("aaaaaaa","bbbbbbbb"));
end;
end.
Зы. Может пора уже чего либа почитать?
← →
Leonid Troyanovsky © (2006-05-11 23:06) [4]
> Gydvin © (11.05.06 22:59) [3]
> Зы. Может пора уже чего либа почитать?
Например, хорошая либа есть на сайте Анатолия Подгорецкого.
--
Regards, LVT.
Страницы: 1 вся ветка
Текущий архив: 2006.05.28;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.009 c