Вопрос по переменной

[egorzenit]

Здравствуйте. такой вопрос
я создаю глобальную переменную типа стринг на форме.
как мне её вызвать в обработчике (On Button Click)
если пытаюсь её вызвать пишет что не знает переменной...
подскажите пожалуйста,вопрос вроде банальный

[grom333]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string;  //Это глобальная переменная, будет использоваться по всей FORM1
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:='Ya globalnaya peremennaya';
showmessage(s);
end;

end.

[egorzenit]

еще такой вопрос,как мне сразу при создании переменной указать в ней значение?

[grom333]

Вроде никак, если это не константа.

[A-IX-2]

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

еще такой вопрос,как мне сразу при создании переменной указать в ней значение?

Переменная обязательно должна быть глобальная.

var x: real = 15;

[egorzenit]

Подскажите пожалуйста что не правильно вот тут

procedure TForm3.Button2Click(Sender: TObject);
begin
if Check := 0 then;
ShowMessage('íå ïðàâèëüíî')
else
ShowMessage('Ïðàâèëüíî')

end;

Ошибка:
[Error] Unit3.pas(32): Type of expression must be BOOLEAN

[Пепел Феникса]

почему присваивание у вас, а не сравнение?

[kta87]

Замени

if Check := 0 then;

на

if Check = 0 then