Ивт-20 / САОД и др / ОЗО_2010-САОД_1 / Демо_Проекты / Данные / Unit4

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox2: TGroupBox;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    Label8: TLabel;
    Edit16: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Edit17: TEdit;
    Edit18: TEdit;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton15: TRadioButton;
    Edit19: TEdit;
    Label11: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure RadioButton12Click(Sender: TObject);
    procedure RadioButton15Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  i:integer;
   r:string;
   e,C,j:real;
v:string;
implementation

uses Unit1;

{$R *.dfm}



procedure TForm4.Button2Click(Sender: TObject);
var
s1,p1,p2:string;
i,e:integer;
c:real;
s:char;
begin
e:=length(r);

p1:='';
for i:=1 to e do
        begin
        s:=s1[i];
        c:=i/2;
        if Frac(c)=0 then
        begin
        p2:=FloatToStr(Ord(s)-e+i);
        p1:=p1+Char(StrToint(p2));
        end
        else
        begin
        p2:=FloatToStr(Ord(s)+e+i);
        p1:=p1+Char(StrToint(p2));
        end;

 end;



end;

procedure TForm4.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm4.RadioButton6Click(Sender: TObject);
begin
Edit14.Text:=IntToStr(Low(ShortString));
Edit15.Text:=IntToStr(High(ShortString));
Edit16.Text:=IntToStr(SizeOf(ShortString));
end;

procedure TForm4.RadioButton7Click(Sender: TObject);
begin
//Edit14.Text:=IntToStr(Low(LongString));
//Edit15.Text:=IntToStr(High(LongString));
//Edit16.Text:=IntToStr(SizeOf(LongString));

end;

procedure TForm4.RadioButton8Click(Sender: TObject);
begin
{Edit14.Text:=IntToStr(Low(WideString));
Edit15.Text:=IntToStr(High(WideString));
Edit16.Text:=IntToStr(SizeOf(WideString));   }
end;

procedure TForm4.RadioButton9Click(Sender: TObject);
var
q:string;
begin
{Edit14.Text:=IntToStr(Low(q));
Edit15.Text:=IntToStr(High(q));
Edit16.Text:=IntToStr(SizeOf(q));  }
end;

procedure TForm4.RadioButton10Click(Sender: TObject);
var
S1,S2:string;
begin
S1:=Edit17.Text;
S2:=Edit18.Text;
Edit19.Text:=ConCat(S1,S2);
end;

procedure TForm4.RadioButton11Click(Sender: TObject);
begin
Edit19.Text:=IntToStr(Length(Edit17.Text));
end;

procedure TForm4.RadioButton12Click(Sender: TObject);
var
St,St1:String;
Ch:Char;
j,k:integer;
begin
k:=length(Edit17.Text);
St:=edit17.Text;
for i:=1 to k do
  begin
   St1[i]:=St[k-i+1];
  end;
Edit19.Text:=St1[5];
end;

procedure TForm4.RadioButton15Click(Sender: TObject);
var
Str:string;
begin
Str:=Edit17.Text;
Edit19.Text:=UpperCase(Str);
end;

procedure TForm4.RadioButton13Click(Sender: TObject);
var
N:integer;
E,E1,D:string;
begin
N:=StrToInt(InputBox('Замена символа','Введите номер символа',''));
E:=Edit17.Text;
D:= InputBox('Замена символа','Введите символ, на который требуется заменить','');
E1:=E;
E1[N]:=D[1];
Edit19.Text:=E1;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
end;

end.