не работает написанная функция через Tbutton

[pimple2006]

здравствуйте,собственно вопрос:при нажатии кнопки Button1 не идет выполнение функции ReturnTrueFloat,не могу понять почему,если создать отдельный компонент Tedit,не участвующий в формуле в процедуре Main_conside,то функция выполняется,а так нет,вылетает ошибка о том,что '' не является Float значением,это понятно,не понятно почему не выполняется функция? Form1.Edit4 содержится в groupbox.

функция

function ReturnTrueFloat(var Edit:Tedit):string;
  begin
    if (Edit.Text = '') or (edit.Text = ' ') then
      begin
        Result:='0,01';
      end;
   { else if StrToFloat(Edit.Text) = 0 then
      begin
        Edit.Text:='0,01';
      end; }
  end;

кнопка Выполнить:

procedure TForm1.Button1Click(Sender: TObject);
  begin
    Form1.Edit4.Text:=ReturnTrueFloat(Form1.Edit4);
    Main_conside();
    Form1.Edit3.Text:=FloatToStrF(resistance,ffGeneral,5,7);
    if English1.Checked=true then
      begin
        Form1.Edit6.Text:=FloatToStrF(Presistance,ffGeneral,3,2)+W;
        Form1.Edit8.Text:=Power+W;
      end
    else
      begin
        Form1.Edit6.Text:=FloatToStrF(Presistance,ffGeneral,3,2)+Wt;
        Form1.Edit8.Text:=Power+Wt;
      end;

  end;

Поясняю. Edit4.text содержит Ампераж для расчета в процедуре

Procedure Main_conside();
  begin

    volume:=StrToInt(Form1.Edit7.Text);
    voltage:=StrToFloat(Form1.Edit1.Text);
    voltage_diod:=StrToFloat(Form1.Edit2.Text);
    amperage:=StrToFloat(Form1.Edit4.Text);
    k:=StrToFloat(Form1.Edit5.Text);
    resistance:=(voltage-volume*voltage_diod)/(amperage*k);
    Presistance:=amperage*(voltage-volume*voltage_diod);
    g2(Presistance);
  end;

[Пепел Феникса]

потому что у вас вылетает ошибка и соответственно код выходит из процедуры.

[pimple2006]

Сообщение от Пепел Феникса

потому что у вас вылетает ошибка и соответственно код выходит из процедуры.

вот эту ошибку я хочу исключить "на лету"
для этого и была написана функция,которая подменяет значение '' пока что только на 0,01
я уже 2 недели сижу,не могу сделать ,перепробывал все,писать условия в кнопке выполнить,процедуру создавал,в процедуре мэйн консид делать ...ничего

[chertovich]

Если обработать исключение, то выполнение кода будет продолжаться.
Или так:

  if not TryStrToFloat(Edit1.Text, Result) then
    Result := 0.01;

[phomm]

Ошибка в том, что Вы указываете строку '0,01' в то время как правильная float-запись значения будет '0.01' , поэтому и есть ошибка перевода, лучше сделайте как предложил Chertovich или же везде поменяйте запятые на точки в подобных строках. Также гляньте в справке DecimalSeparator - тогда сможете сделать универсальное решение.

[pimple2006]

Procedure ReturnTrueFloat(var Edit:Tedit);
  begin
    {while Result <> '0,01' do
      begin
        Edit.Text:='0,01'
        {(Edit.Text = '') or (edit.Text = ' ') or (StrToFloat(Edit.Text)=0) }
      {end; }
    if (Edit.Text = '') or (edit.Text = ' ') or (StrToFloat(Edit.Text)=0) then
      begin
        Edit.Text:='0,01';
      end;

  end;

работает!!!! :-) осталось проверочку на правильность введеных данных,кстати,Phom,почему-то в Tedit правильно вводить 0,01 это если через делфи то через точку.

ошибку нашел прочитав на другом сайте про function

Определяет функцию, которой передаётся один или более параметров, и возвращает определённный тип данных. Из функции может быть возвращено только одно значение.

извините,мб это флудом будет,но я могу задать вопрос по своей программе, только по другому аспекту?

[Пепел Феникса]

одна тема - один вопрос.