Не отображается текст в Edit

[kta87]

if Edit1.Enabled = False then Edit1.Text:= '0';

,
Но если в Edit1 было ведено число, то именно оно отображается когда

Edit1.Enabled = False

, а по условию должно быть

dit1.Text:= '0'

Что я не так делаю?

[Marsel737]

kta87, по этому куску кода ничё не понять, выкладывай полный код.

Вот я проверил, у меня всё работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Enabled = False then Edit1.Text:= '0';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Enabled := Not Edit1.Enabled = true;
end;

[kta87]

Marsel737, я разобрался! Тут другой вопрос возник:

в edit вводится дробное число 1,5 либо 1.5 , но '1,5' это не корректно! Как заменять в таком случае ',' на '.' ?

[Marsel737]

Ограничь вводимые в едит символы, на KeyPres пропиши:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if  (Key in ['a'..'z']) or (Key in ['A'..'Z'])  or
     (Key in ['а'..'я']) or (Key in ['А'..'Я'])  or
     (Key in ['-', '/', '>', '<', '?', ']', '[', '{', '}', 
                '_', '=', '+', ')', '(', '*', '&', '^', ':', 
                '%', ';', '$', '#', '@', '"', '!', '~', '`', 
                '№', ' ', 'ё', 'Ё', ',']) then
  begin
    Key := #0;
  end;
end;

Т.е. если тебе нужно в едит вводить только цифры и точку, то запрети все посторонние символы, чтобы не было ошибки


Или вот код заменяет цапятую на точку:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
  FText: string; // Текст едита
  FOne: integer; // Число цапятых в тексте
begin
  FOne := 0;
  // Проверяем чтоб запятая не была на первом месте
  if Edit1.Text[1] =',' then
  begin
    ShowMessage('Число задано неверно');
    Edit1.Clear;
    Exit;
  end;
  for I := 1 to Length(Edit1.Text) do
  begin
    if Edit1.Text[I] = ',' then
    begin
      FText := FText + '.';
      FOne := FOne + 1; // Увеличиваем число запятых
    end;
    if Edit1.Text[I] <> ',' then
      FText := FText + Edit1.Text[I]
  end;
  // Если в тексте больше одной запятой то ошибка
  if FOne > 1 then
  begin
    ShowMessage('Число задано неверно');
    Edit1.Clear;
    Exit;
  end;
  // Если всё нормально меняем текст в эдите
  Edit1.Text := FText;
end;