Ошибка и не понимаю где она

[cargo29]

Где ошибка может быть не вижу может вы покажете

TForm4.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (edit2.Text='') then
Showmessage('Введите данные')
else
begin
edit4.Text:=FloatToStr(1/(2*Pi*strtofloat(edit1.Text)*strtofloat(edit2.Text)));
edit4.Enabled:=true;
end;
end;

это делфи код это вот человек написал в страничку вставить

<P>
<H2>Реактивное сопротивление конденсатора</H2>

<P><STRONG>Формула: Реактивное сопр. = 1 / (2 * Pi * F * C)</STRONG></P>
<P>
<FORM name=CREACT>
<CENTER>
<TABLE bgColor=#5fffff border=1 cellPadding=5>
<TBODY>
<TR>
<TD>Частота (Hz) [F]<BR><INPUT name=F1></TD>
<TD>Емкость (pF) [C]<BR><INPUT name=C1></TD></TR>
<TR>

<TD>Реактивность<BR><INPUT name=Freq1></TD>
<TD vAlign=bottom HALIGN="right"><INPUT onclick="CREACT.Freq1.value=1000000000000
 /(6.28318530718
 *parseInt(CREACT.F1.value,10)
 *parseInt(CREACT.C1.value,10))" type=button value=Реактивность TD <> 
</TD></TR></TBODY></TABLE></CENTER></FORM>
<P></P>
<HR width="80%">

вот формула Реактивное сопр. = 1 / (2 * Pi * F * C)

но где у меня то ошибка?

[MaxNik2009]

судя по этой строке

<TD vAlign=bottom HALIGN="right"><INPUT onclick="CREACT.Freq1.value=1000000 000000
/(6.28318530718
*parseInt(CREACT.F1.value,10)
*parseInt(CREACT.C1.value,10))" type=button value=Реактивность TD <>

получам:

procedure TForm2.Button1Click(Sender: TObject);
var
  F, C: integer;
  R: Extended;
begin
  F:= StrToInt(Edit1.Text);
  C:= StrToInt(Edit2.Text);
  R:= 1000000000000 / (2 * Pi * F * C);
  Edit3.Text:= FloatToStr(R);
end;

P.S.Учись пользоваться знаками препинания...Это очень полезно.

[cargo29]

Сообщение от MaxNik2009

судя по этой строке

получам:

procedure TForm2.Button1Click(Sender: TObject);
var
  F, C: integer;
  R: Extended;
begin
  F:= StrToInt(Edit1.Text);
  C:= StrToInt(Edit2.Text);
  R:= 1000000000000 / (2 * Pi * F * C);
  Edit3.Text:= FloatToStr(R);
end;

P.S.Учись пользоваться знаками препинания...Это очень полезно.

Хм спасибо учту, но понять не могу откуда этот человек взял 1000000000000

[Sibedir]

Видимо все зависит от выбранной размерности физической величины. Можно ввести значение F в герцах, а можо и в терагерцах.

[cargo29]

Сообщение от Sibedir

Видимо все зависит от выбранной размерности физической величины. Можно ввести значение F в герцах, а можо и в терагерцах.

да вот какая раз я на этом и подловился.... какие данные брать небыло ничего сказано