Checkboxen

[Klaus-B.Schmidt]

dann machst du so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 labelcpt:string;
begin
 if CheckBox1.checked then
 labelcpt:=CheckBox1.caption;

 if CheckBox2.checked then
 labelcpt:=labelcpt+CheckBox1.caption;
end;