Скачиваний:
7
Добавлен:
15.06.2014
Размер:
1.18 Кб
Скачать
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.
Соседние файлы в папке 7.8
  • #
    15.06.2014188 б7Project1.dpr
  • #
    15.06.2014876 б7Project1.res
  • #
    15.06.20145.26 Кб7Unit1.dcu
  • #
    15.06.201451 б7Unit1.ddp
  • #
    15.06.20141.86 Кб8Unit1.dfm
  • #
    15.06.20141.18 Кб7Unit1.pas