[НовичЁккк]

можите подсказать как сделать чтоб
if Edit1.Caption := 'Привет' then label1.Caption := 'Хай' ; ну чтоб если в едит1 написать привет то в лэбл1 будет хай??

[Kapitoshka438]

Щелкни два раза мышкой по своему Edit1 в режиме редактирования формы.

Код:

procedure Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'Привет' then
    Label1.Caption := 'Хай';
end;

[НовичЁккк]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'Привет' then Label1.Caption := 'Хай';

а как сделать чтоб если пишешь не привет он говорит я еще не умею говорить на эту тему?

[Kapitoshka438]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 'Привет' then
    Label1.Caption := 'Хай'
  else
    Label1.Caption := 'Я еще не умею говорить на эту тему';
end;

[НовичЁккк]

оно пишет такое

Код:

else
    [Error] Unit1.pas(38): ';' not allowed before 'ELSE'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[НовичЁккк]

сорри все получилось