1樓:匿名使用者
用一個string 變數 接收 遍歷下checkbox 選中就加上 不選就跳過
2樓:匿名使用者
用 raize控制元件好了 rzcheckgroup控制元件
vari:integer;
str:string;
begin
str:='';
for i:=0 to rzcheckgroup1.items.count-1 do
begin
if rzcheckgroup1.itemchecked[i] then
str:=str+rzcheckgroup1.items.strings[i];
end;
showmessage(str);
end;
如果不用raize
那就定義checkbox的名字 依次為 checkbox1 checkbox2 checkbox3 checkbox4
vari:integer;
str:string;
begin
str:='';
for i:=1 to 4 do
begin
if tcheckbox(findcomponent('checkbox'+inttostr(i))).checked then
str:=str+tcheckbox(findcomponent('checkbox'+inttostr(i))).caption;
end;
showmessage(str);
end;
3樓:veket的小號
參考了dodolon的** 符合 動畫 了
procedure tform1.button1click(sender: tobject);
vari:integer;
s:string;
begin
s := '';
for i:=0 to groupbox1.controlcount-1 do
begin
if groupbox1.controls[i] is tcheckbox then
begin
if tcheckbox(groupbox1.controls[i]).checked then
begin
s := s + tcheckbox(groupbox1.controls[i]).caption
end;
end;
end;
showmessage(s);
end;
delphi發展怎麼樣,delphi 這幾年發展的怎麼樣了
什麼樣的公司,還在用delphi,主要是來維護的吧 要不就是和工控類相關的,不可否認delphi 工控 不適為一個ok組合。delphi入門容易,成為高手難,需要深入研究vcl,具有真正oop的程式設計思想 學會抽象 但不論學哪門語言,uml都是需要補充的一門工具。感覺本身不矛盾,可以用自己的時間學...
c怎麼遍歷讀取一行一行的文字,C 怎麼遍歷讀取一行一行的TXT文字?
foreach string str in system.io.file.readalllines d 123.txt encoding.default c 如何一行一行的讀取txt文字 每讀取一行內容 就把這一行的內容寫入一個字串陣列 插!答得好?答得好,你壓根就看不懂,有啥用?自個慢慢找資料解決...
delphi2007怎麼破解或註冊
你在那個tweaks 中有幾個可以選擇的,全部打上上對勾,然後點ok,我也不懂什麼意思,反正全選上就可以用。試試。為什麼 delphi 2007 再次安裝 無法註冊 1 用虛擬光碟機daemon tools載入檔案。2 執行開始安裝,安裝過程中保持聯網狀態。3 安裝完成後,啟動一次delphi 20...