unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
pozdrs:Array[0..5] of string =('здоровья','успехов','долголетия','счастья','богатства',
'любви');
implementation
function GenerateRandomPordr(Imens:Array of String): String;
var
i:integer;
begin
randomize;
Result:=Imens[0];
if Length(imens)>1 then
for i:=1 to Length(imens)-1 do
Result:=Result+'е'+Imens[i];
Result:=Result+'Поздравляем Вас и желаем'+Pozdrs[Random(Length(Pozdrs))];
end;
{$R *.dfm}
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ME1.Clear;
memo1.Clear;
Me1.SetFocus;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
Imeninniki:Array of String;
begin
if ME1.Text[3]<>'.' then begin
ShowMessage('Введите дату, разделяя число и месяц точкой!');;
ME1.Clear;
ME1.SetFocus;
Exit;
end;
if (ME1.Text[1]>='3') and (ME1.Text[2]>'1') or (ME1.Text[1]='0') and (ME1.Text[2]='0')
or (ME1.Text[1]='') or (ME1.Text[2]='') then begin
ShowMessage('Ошибка! Дни месяца от 1 до 31!!!');
Exit;
end;
if (ME1.Text[4]>='1') and (ME1.Text[5]>'2') or (ME1.Text[4]='0') and (ME1.Text[5]='0')
or (ME1.Text[4]='') or (ME1.Text[5]='') then begin
ShowMessage('Ошибка! Месяц от 1 до 12!!!');
Exit;
end;
Memo1.Clear;
Memo2.Clear;
Memo2.Lines.LoadFromFile('dr.txt');
for i:=0 to Memo2.Lines.Count-1 do
begin
if Pos(ME1.Text,Memo2.Lines.Strings[i])<>0 then
Memo1.Lines.Add(Memo2.Lines.Strings[i]);
end;
if Memo1.Lines.Count=0
then
begin
ShowMessage('Именниников не обнаружено');
Exit;
end;
SetLength(Imeninniki,Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do
Imeninniki[i]:=Copy(Memo1.Lines.Strings[i],Pos('',Memo1.Lines.Strings[i]),
Length(Memo1.Lines.Add(GenerateRandomPordr(Imeninniki))
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Key in ['й','ц','у','к','е','н','г','ш','щ','з','х','ъ','ф','ы','в','а','п','р',
'о','л','д','ж','э','я','ч','с','м','и','т','ь','б','ю',#8,#13,#27,] then abort;
end;
end;
end.