Delphi怎麼遍歷Groupbox中Checkbox哪個選中,並取得他們的Caption值

時間 2021-10-14 21:22:44

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...