ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Как можно обьявит переменную которую могут исползовать все формы приложения??

Сверху какой либо формы (я в качестве примера взял form1)...

Код:

type
  TForm1 = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
    i:integer;
  end;

В другой форме объявляешь первую форму (или же ту в которой вписана переменная) и потом пишешь код
К примеру:

Form2

Код:

unit Unit2;

interface

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

Form2.Create

Код:

Form1.I:=10;
Showmessage(inttostr(Form1.I));

Form1

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
.........
  private
    { Private declarations }
  public
    { Public declarations }
    i:integer;
  end;
.........