基础算法问题！
三个文本框
a b c
b/(a+b)=% 后面是显示百分比
procedure TForm1.edt21Change(Sender: TObject);
var
a,b,c:string
begin
a:=edt1.text
b:=edt2.text
c:=edt3.text
c%=b/(a+b)
end;
[解决办法]
应该这样：
var
a,b,c:single;
d: string;
begin
a:=StrToFloat(edt1.text);
b:=StrToFloat(edt2.text);
c:=StrToFloat(edt3.text);
d:=Format('%.2f%%', [(b/(a+b))*100]);
end;
[解决办法]
