Разные действия при нажатии на кнопку

@Drems · Регистрация: 23.01.2013

Author24 — интернет-сервис помощи студентам

Как сделать что бы при нажатии разных чекбоксов выполнялись разные действия при нажатии на кнопку. Вот мой код

Delphi

procedure TForm1.sButton1Click(Sender: TObject);
 
begin
begin
if scheckbox1.Checked = true then
smemo1.Lines.Add('Отправка файла...');
idFTP1.Get('file', 'file.txt', True);
 
smemo1.Lines.Add('Файл получен!');
 
end;
begin
 if scheckbox2.Checked = true then
 
smemo1.Lines.Add('Отправка файла...');
idFTP1.Get('file.mysql', 'file.txt', True);
 
smemo1.Lines.Add('Файл получен!');
end
end;

Но он совсем не работает.

@avstantso · 14.01.2017, 21:06

= true писать не нужно.

Здесь 2 чекбокса, т.е. 4 варианта.

Delphi

if not scheckbox1.Checked and not scheckbox2.Checked then
begin
  
end
else
if not scheckbox1.Checked and scheckbox2.Checked then
begin
 
end
else
if scheckbox1.Checked and not scheckbox2.Checked then
begin
 
end
else
begin
 
end;

@YuryK · 14.01.2017, 21:27

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

begin
if scheckbox1.Checked = true then

begin должен стоять после then, а не перед if

а так у тебя по условию if выполняется только первый следующий после then оператор, а остальные выполняются в любом случае

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	14.01.2017, 21:27	3
	Сообщение от Drems begin if scheckbox1.Checked = true then begin должен стоять после then, а не перед if а так у тебя по условию if выполняется только первый следующий после then оператор, а остальные выполняются в любом случае 1