Изменить Caption

[Joystik]

Скажие пожалуйста как изменить Caption лейбла при нажатии на Button какой код нужен я пробовал так
label1.Caption:=' '; но нечё не происходит

[Terran]

label1.Caption:='Текст';

[artemavd]

я пробовал так
label1.Caption:=' '; но нечё не происходит

Естессвено)). Вы же не текст присваиваете, а очищаете Caption у Lable-a. Делайте как Вам подсказал Terran

[Maksik]

Какой должен быть тип переменной, чтобы в неё забить данные из свойства caption компонента label? Делаю string, он выдаёт ошибку.
P.S. Тычок носом в тру учебник по этой теме не впоспротивится

[Человек_Борща]

вообще-то caption это и есть string..

можете показать что вы делали, и что за ошибка?

[Alex2009]

Вот тебе пример.

procedure TForm1.Button1Click(Sender: TObject);
var
  text:string;
begin
  text:='Hello';
  Label1.Caption:=text;
end;

[Maksik]

Надо чтобы по нажатию кнопок на метке label вырисовывались символы. Это всё работает. Далее нужно, чтобы по нажатию другой кнопки (с этим проблем нет) эти символы вбить в текстовую переменную, для дальнейших операций.

var
a:string;
...
begin
...
procedure TForm1.PuskClick(Sender: TObject);
begin
a:= vvod.caption;
end;
...

Выдаёт ошибку компиляции, мол unit1 не может быть откомпилирован, и указывает на конец строки a:= vvod.caption; (метка label имеет имя vvod).
Может тогда по другому сделать, символы вбивать не напрямую в label, а сначала в переменную, и потом просто её отображать на метке?

[MaxNik2009]

а переменные объявлять кто будет?

var
a:string;
...
begin
...
procedure TForm1.PuskClick(Sender: TObject);
var
  a: string;
begin
a:= vvod.caption;
end;

[Maksik]

А что я в начале объявляю, это разве не глобальные переменные? Подобно делаю, объявляя в начале, всё нормально идёт.

[MaxNik2009]

извиняюсь...не заметил...
у тебя должно быть примерно так (сравни):

unit Unit5;

interface

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

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

var
  Form5: TForm5;
  a: string;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
  a:= vvod.Caption;
  Showmessage(a);
end;

end.