как в делфи запомнить число из процедуры?

[gylayko]

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

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   Label4: TLabel;
   Label3: TLabel;
   Label5: TLabel;
   Label6: TLabel;
   Edit4: TEdit;
   Label7: TLabel;
   Edit5: TEdit;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1; r10:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i,p,p1:integer;
 z : byte;
 s : string;
begin
 s:=Edit1.Text;
 p:=StrToInt(Edit2.Text);

 r10:=0;
 for i:=1 To Length(s) do
 begin
    z:=Ord(s[i]);
    if (s[i] In ['0'..'9']) then z:=z-Ord('0') else
    if (s[i] In ['a'..'f']) then z:=z-Ord('a')+10 else
    z:=z-Ord('A')+10;
    if Not (s[i] In ['0'..'9','a'..'f','A'..'F']) Then
    begin
      ShowMessage('символ не принадлежит к систему исчисления');
      Exit;
    end;
    r10:=r10*p+z;
 End;
p1:=StrToInt(Edit3.Text);
  s:='';
  while r10<>0 do
  begin
     z:=(r10 Mod p1);
     if z<10 then s:=Chr(z+Ord('0'))+s else
     s:=Chr(z-10+Ord('A'))+s;
     r10:=r10 Div p1;
  end;
  if Length(s)=0 then s:='0';
  Edit4.Text:=s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit5.Text:=IntToStr(r10);
end;

end.

пытался r10:Integer; перенести в процедуру и добавить другую глобальную переменную gr10:Integer; и перед while r10<>0 do добавить строку gr10 := r10; и далее заменить Edit5.Text:=IntToStr(r10); на Edit5.Text:=IntToStr(gr10);
в результате все равно 0!

[Poma][a]

в объявлении процедурки напишите

procedure Example ( ...; var r10 : Integer);

[gylayko]

Сообщение от Poma][a

в объявлении процедурки напишите

procedure Example ( ...; var r10 : Integer);

не работает! и куча ошибок выскакивает.

[GetMax]

не работает! и куча ошибок выскакивает.

Покажите код процедуры с var-параметром! Какие ошибки выскакивают!?

[gylayko]

вот

procedure TForm1.Button1Click(Sender: TObject; var r10:Integer);

ошибки такие: declaration of 'Button1Click' differs from previous declaration, Undeclared indefender 'Edit1', Midding operator of semiclon и другие, но к строке объявления процедуры относится только первая. но остальные возникают только при таком варианте объявления.

[GetMax]

Нельзя, насколько мне известно, в Button1Clicl и ему подобных передавать дополнительные параметры. Сделайте пользовательскую подпрограмму и в ней передавайте сколько вам нужно параметров, а уж это подпрограмму вызывайте в Button1Click

Procedure Something(var r10:Integer);
Begin
....
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
  local_r10:Integer;
Begin
  local_r10:=0;
  Something(local_r10;)
end

как то так

[gylayko]

теперь на всех эдитах Undeclared indefender и Missing operator of semiclon

[Sciv]

Объявите r10 в public-разделе класса TForm

[Sciv]

Сообщение от gylayko

теперь на всех эдитах Undeclared indefender и Missing operator of semiclon

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

И, кстати, там в коде очепятка, если Вы его дословно скопировали - отсюда и вторая ошибка. Должно быть так:

Something(local_r10);