Кто-нибудь оптимизируйте действие при выборе radiobutton2

[Sibedir]

Это точно никак не связано с Default. Просто число 10000000000 > MaxInt=2147483647. В варианте 2 вы рассматриваете edit1 как строку (неограниченный массив символов (в вашем случае бит)), а в варианте 1 сразу делаете StrToInt(Edit1.text).
Вместо StrToInt(Edit1.text)=0 используйте not Correct(edit1.text)

function Correct (AStr: string): Boolean;
var
  i: Integer;
  f: Boolean;
begin
  Result := False;
  if AStr = '' then Exit;
  for i := 1 to Length(AStr) do begin
    if not (AStr[i] in ['0', '1']) then Exit;
    if AStr[i] = '1' then Result := True;
  end;
end;

[Алексей_2012]

а обязательно ли писать целую функцию для простой проверки на 0? я решил проблему проверив символы в цикле, если в строке нет 1, то выход, ну цикл тут не стал писать, но суть объяснил

[Алексей_2012]

Почему-то не получается отделить из общего кода, с конца, столько символов, сколько определилось выборкой case. В одну строковую переменную скопировать beater символов с конца, а то что осталось записать в edit1. Ругается на цикл, а именно на эту строчку: s[i]:=singular[i];

procedure TForm1.Button1Click(Sender: TObject);
var
  loadfrombit,singular,s: string;
  i: integer;
  beater:Byte;
begin
   case Length(Edit1.Text) of
           1:beater:=1;
        2..3:beater:=2;
        4..7:beater:=3;
       8..15:beater:=4;
      16..31:beater:=5;
      32..63:beater:=6;
     64..127:beater:=7;
    128..254:beater:=8;
   end;
   Loadfrombit:=Copy(Edit1.Text,Length(Edit1.Text)-beater+1,Length(Edit1.Text));
   singular:=Edit1.Text;
   for i:=1 to Length(singular)-length(loadfrombit) do
   s[i]:=singular[i];
   Edit1.Text:=s;
end;

[Алексей_2012]

я думаю тоже самое можно сделать и так(или я не прав?), но ругается на delete

procedure TForm1.Button1Click(Sender: TObject);
var
  loadfrombit: string;
  singular: string[254];
  s: string[254];
  i: integer;
  beater:Byte;
begin
   case Length(Edit1.Text) of
           1:beater:=1;
        2..3:beater:=2;
        4..7:beater:=3;
       8..15:beater:=4;
      16..31:beater:=5;
      32..63:beater:=6;
     64..127:beater:=7;
    128..254:beater:=8;
   end;
   Loadfrombit:=Copy(Edit1.Text,Length(Edit1.Text)-beater+1,Length(Edit1.Text));
   singular:=Edit1.Text;
  Edit1.Text:=Delete(singular,(Length(singular)-beater+1),beater);
end;

[Аватар]

Цикл зачем?

 Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-beater);

s[i]:=singular[i];

Правильно делает, что ругается. Что в s изначально было и какая длина того, что там было?

[Алексей_2012]

Спасибо, сам все сделал, delete-это же процедура а не функция, а в s было так записано s:=''; но у меня еще одна проблема (только разделываемся всем форумом с одной, так появляется другая), в общем case отработал правильно, но если внимательно посмотреть, то в первой радиокнопке вычисляется избыточность, а вторая ищет по найденной избыточности одну ошибку, дак вот в чем дело, дело в том, что case отделяет иногда на бит больше, а иногда правильно, а нужно сверяться с первой процедурой (процедурами буду называть радиокнопки), если она (радиокнопка1) вычислила избыточность 3 бита, то и вторая процедура должна отделить тоже три бита, а не 4 как это сделать? В общем свои модификации кину во вложения, наверное я всех достал уже со своей программой...^_^

[Алексей_2012]

Помогите, пожалуйста

[Алексей_2012]

Ладно, сам все сделал, оптимизируйте кнопку проверить, исходники здесь