Delphi

[fedot_sterlec]

дали задание : 1)в текстовом редакторе сделать кнопку которая будет переводить выделенный текст в верхний регистр 2)в колькуляторе добавить функцию вычисления факториала
Delphi(10)

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

[_-Re@l-_]

Для перевода текста в верхний регистр пользуйте функцию UpperCase, но лучше пользовать AnsiUpperCase.
А факториал - вычисляйте рекурсией:

Function Fact(X: Integer):Integer;
Begin
        If X = 1 Then Result:=1
        Else Result:=X*Fact(X-1);
End;

[fedot_sterlec]

огромное спасибо

а подскажите ещё одну вещь как прекрепить ф-ию UpperCase т.к уже пробовал,но при нажатии на кнопку небыло никакой реакции

[_-Re@l-_]

Ну, например:

procedure TForm1.Button1Click(Sender : TObject);
begin
        Edit1.Text:=AnsiUpperCase(Edit1.Text);
end;