LoginSignup
2

More than 1 year has passed since last update.

元ネタ: Javaで湯婆婆を実装してみる

Delphi婆婆

image.png

中身

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;

image.png

はしょり気味婆婆。

参考

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
What you can do with signing up
2