弱智的对话(一本正经瞎扯的段子)


先上效果图

弱智的对话(一本正经瞎扯的段子)

自动对话

再上源码

就一行

源码开始


unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

btn1: TButton;

edt1: TEdit;

mmo1: TMemo;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function MyFunction(name,s:string): Integer;

begin


end;

procedure TForm1.btn1Click(Sender: TObject);

begin

if edt1.Text=\'你好\' then

mmo1.Lines.Add(\'你也好啊\') else mmo1.Lines.add(\'你说的什么,我不懂!\')

end;

end.

源码结束


界面 Form

object Form1: TForm1

Left = 0

Top = 0

Caption = \'Form1\'

ClientHeight = 441

ClientWidth = 787

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = \'Tahoma\'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object btn1: TButton

Left = 440

Top = 358

Width = 75

Height = 25

Caption = \'btn1\'

TabOrder = 0

OnClick = btn1Click

end

object edt1: TEdit

Left = 72

Top = 360

Width = 329

Height = 21

TabOrder = 1

Text = \'edt1\'

end

object mmo1: TMemo

Left = 72

Top = 40

Width = 353

Height = 249

Lines.Strings = (

\'mmo1\')

TabOrder = 2

end

end


就这样,结束


免责声明
    以上文章转载自互联网,文章内容仅供参考,不构成建议,也不代表百科学社赞同其观点。如有侵权请联系755934052@qq.com,提供原文链接地址以及资料原创证明,本站将会立即删除

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请通知我们,一经查实,本站将立刻删除。