元ネタ: Javaで湯婆婆を実装してみる
Delphi婆婆
中身
yubaba.pas
procedure TForm1.Button1Click(Sender: TObject);
var
len, pos :Integer;
str, org :WideString;
begin
org := Edit1.Text;
len := Length(org);
if MessageDlg('ふん。' + org +'というのかい。', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
pos := random(len);
str := Copy(org, pos, 1);
MessageDlg('贅沢な名だね。今日からお前の名前は ' + str +' だよ。', mtWarning, [mbYes], 0)
end;
end;
はしょり気味婆婆。