Добавил:
inrad
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Button1: TButton;
XPManifest1: TXPManifest;
Label2: TLabel;
Label3: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function FWord(St: String): String;
Var
i,l,r: Integer;
s,s2:string;
begin
s2:='';
s:='';
l:=1;
r:=1;
for i:=1 to Length(st) do
if (st[i]=' ')or(i=Length(st)) then
begin
r:=i;
if (i=Length(st))and(st[i]<>' ') then r:=r+1;
s2:=copy(st,l,r-l);
if length(s2) mod 2 = 0 then
s:=s+' '+s2;
l:=i+1;
end;
FWord:=s;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Edit2.Text:=Fword(Edit1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Button1: TButton;
XPManifest1: TXPManifest;
Label2: TLabel;
Label3: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function FWord(St: String): String;
Var
i,l,r: Integer;
s,s2:string;
begin
s2:='';
s:='';
l:=1;
r:=1;
for i:=1 to Length(st) do
if (st[i]=' ')or(i=Length(st)) then
begin
r:=i;
if (i=Length(st))and(st[i]<>' ') then r:=r+1;
s2:=copy(st,l,r-l);
if length(s2) mod 2 = 0 then
s:=s+' '+s2;
l:=i+1;
end;
FWord:=s;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Edit2.Text:=Fword(Edit1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
end.
Соседние файлы в папке Контрольная работа по программированию№2(вариант 7)