Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Ивт-20 / САОД и др / ОЗО_2010-САОД_2 / Демо_Проекты / Данные / Unit4
.pas 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.
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.
Соседние файлы в папке Данные