Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Архив всех лаб (delphi) / 7.8 / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s,sr,smax:string;
k:word;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
memo1.Clear;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var a:array[1..100] of string;
n,i:integer;
begin
memo1.Clear;
if key=#13 then
begin
s:=edit1.Text;
sr:=s;
smax:=s;
s:=s+' ';
repeat
k:=Pos(' ',s);
if k<>0 then Delete(s,k,1);
until k=0;
if s[1]=' ' then Delete(s,1,1);
k:=pos(' ',s);
n:=0;
repeat
inc(n);
a[n]:=copy(s,1,k-1);
delete(s,1,k);
k:=pos(' ',s);
until k=0;
for i:=1 to n do
if not odd(length(a[i])) then
memo1.Lines.Add(a[i]);
end;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s,sr,smax:string;
k:word;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
memo1.Clear;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var a:array[1..100] of string;
n,i:integer;
begin
memo1.Clear;
if key=#13 then
begin
s:=edit1.Text;
sr:=s;
smax:=s;
s:=s+' ';
repeat
k:=Pos(' ',s);
if k<>0 then Delete(s,k,1);
until k=0;
if s[1]=' ' then Delete(s,1,1);
k:=pos(' ',s);
n:=0;
repeat
inc(n);
a[n]:=copy(s,1,k-1);
delete(s,1,k);
k:=pos(' ',s);
until k=0;
for i:=1 to n do
if not odd(length(a[i])) then
memo1.Lines.Add(a[i]);
end;
end;
end.