перерасчет значений

[Nikik]

Добрый день)

при перерасчете , при вводе в 1 поле , 0,1 и т,д возникает ошибка

procedure TForm1.Edit1Change(Sender: TObject);
var a,s : integer;
begin
If Edit1.Text <> '' then
 begin
  a:=StrToInt(Edit1.Text);
  s:=1-a;
  If s mod 3 = 0 then
   begin
    Edit2.Text := IntToStr(s div 3);
    Edit3.Text := Edit2.Text;
    Edit4.Text := Edit2.Text;
   end
  else
   Begin
    Edit2.Text := IntToStr(s div 3);
    Edit3.Text := Edit2.Text;
    Edit4.Text := IntToStr((s div 3)+(s mod 3));
   end;

[Armorer]

1. Для кода есть теги
/CODE][/CODE]

2. Какая ошибка? И на какой строке? Лучше сразу писать всю информацию.

3. Вероятно ошибка здесь a:=StrToInt(Edit1.Text);
Если вы вводите в Edit1 строку "0,1", то её нельзя преобразовать в целое число (StrToInt), решения могут разными в зависти от задачи, например, использование вещественных чисел, или StrToIntDef.

[Nikik]

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

2. Какая ошибка? И на какой строке? Лучше сразу писать всю информацию.

3. Вероятно ошибка здесь a:=StrToInt(Edit1.Text);
Если вы вводите в Edit1 строку "0,1", то её нельзя преобразовать в целое число (StrToInt), решения могут разными в зависти от задачи, например, использование вещественных чисел, или StrToIntDef.

2)Ошибка "0,1" is not a valid integer value

[Nikik]

кусок кода

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  if ((Edit1.Text) <> '') and ((Edit2.Text) <> '') and ((Edit3.Text) <> '') and
    ((Edit4.Text) <> '') then
  begin
    if (strtofloat(Edit1.Text) + strtofloat(Edit2.Text) + strtofloat
        (Edit3.Text) + strtofloat(Edit4.Text)) = 1 then

[Serge_Bliznykov]

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

попробуйте писать не 0,1 и 0,25 а так: 0.1 и 0.25

ну, и чтобы не допустить таких ситуаций, я бы предложил функцию StrToFloat заменить на такую:

function StrToFloatProtected(s: string) : double;
var repl_char : char;
begin
  if DecimalSeparator = '.' then repl_char := ',' else repl_char := '.';
  StrReplace(S, repl_char , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]);
  StrReplace(S, ' ' , '', [rfIgnoreCase, rfReplaceAll]);
  try
    Result := StrToFloat(S)
  except
    Result := 0;
  end;
end;

[Nikik]

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

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

попробуйте писать не 0,1 и 0,25 а так: 0.1 и 0.25

исправил на точку, такая же ошибка

[Аватар]

Это называется исправил? Тупая копипаста только. Функцию Сержа подправил, не нашел StrReplace. И примерно так

function StrToFloatProtected(s: string) : double;
var repl_char : char;
begin
  if DecimalSeparator = '.' then repl_char := ',' else repl_char := '.';
  s:=StringReplace(S, repl_char , DecimalSeparator, [rfIgnoreCase, rfReplaceAll]);
  s:=StringReplace(S, ' ' , '', [rfIgnoreCase, rfReplaceAll]);
  try
    Result := StrToFloat(S);
  except
    Result := 0;
  end;
end;

procedure TForm5.Edit4Change(Sender: TObject);
var a,s : double;
begin
If Edit4.Text <> '' then
 begin
  a:=StrToFloatProtected(Edit4.Text);
  s:=RoundTo((1-a)/3,-2);
  Edit5.Text:=FloatToStrF(s,ffFixed,5,2);
  Edit6.Text:=Edit5.Text;
  Edit7.Text:=FloatToStrF(1-a-2*s,ffFixed,5,2);
 end;
end;

[Serge_Bliznykov]

Функцию Сержа подправил, не нашел StrReplace

приношу свои извинения.
Действительно, эта функция из JclStrings (Project JEDI Code Library (JCL)
Безусловно, лучше воспользоваться стандартной дельфийской!

[Nikik]

на RoundTo ругается

s:=RoundTo((1-a)/3,-2);

[Аватар]

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

на RoundTo ругается

Math в uses добавь