判断某一项的值，再插入listbox怎么弄啊，头都大了

[alsamsung]

RT

if N>0 then
                begin
                L1:=X2L(N,f);
                Form1.ListBox1.Items [3]:='电感 = '+FloatToStr(L1)+' 微亨';
                end
              else
                begin
                L1:=X2C(-N,f);
                Form1.ListBox1.Items [3] :='电容 = '+FloatToStr(L1)+' 皮法';
                end
with Form1.ListBox1.Items do
            begin
              Add('AAAA');
              Add('BBBB');
              Add('CCCC');
             end

[cnaya]

楼主的题不明确呀

[alsamsung]

listbox中已经文字说明有很多行，其中一行运算后写入，老是报错。

[alsamsung]

我貌似有点灵感了，把
if
...
end；
语句写在后面，明天再试

[alsamsung]

噢yeah，成功了，正式改为送分贴。哈哈哈哈

[hswhjq]

一样的道理啊
var
ii,jj : Integer;
begin
for ii := 0 to Form1.ControlCount - 1 do
begin
if Form1.Controls[ii] is TPanel then
begin
ShowMessage(TPanel(Form1.Controls[ii]).Name);
for jj := 0 to TPanel(Form1.Controls[ii]).ControlCount - 1 do
begin
if TPanel(Form1.Controls[ii]).Controls[jj] is TEdit then
begin
TEdit(TPanel(Form1.Controls[ii]).Controls[jj]).Text := '';
end;
end;
end;
end;
end;

[alsamsung]

我是楼主，我要散分，一人五分，先到先得。

[渔舟唱晚，]

[Quote=引用 4 楼 alsamsung 的回复:]

噢yeah，成功了，正式改为送分贴。哈哈哈哈
[/Quote]

[alsamsung]

上面的问题是我自己解决了。只是这个..

var 
    I:   Integer; 
begin 
    for   I   :=   0   to   Panel1.ControlCount   -   1   do 
        if   Panel1.Controls[I]   is   TEdit   then 
            TEdit(Panel1.Controls[I]).Text   :=   ' '; 
end; 

这段代码可以清空Panel1上的edit，怎么写函数清空多个panel上的edit？

[wgxis]

不错，这么晚还在研究。

[alsamsung]

谢谢，结贴散分。