这段delphi代码怎么了,想不通啊

在FormCreate中加入newstr:=showwhattext(idx);

出错的原因在于Timer2中newstr还没有任何东东，你却

inc(i);

laststr := laststr + newstr[i];//这边肯定出错

改进方法就是在timer2的代码执行前给newstr赋值

简单写了一下，基本满足功能需求，但楼主本人还得再在一些地方进行小的修改才行。经测试通过：

var

Form1: TForm1;

strlst: TStringList;

idx, txtIdx: integer;

str: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer2.Enabled := true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

idx := 0;

txtIdx := 0;

label1.Font.Color :=clred;

label1.Font.Size :=16;

label1.Font.Name :='隶书';

label1.Caption := '';

strlst := TStringList.Create;

strlst.Add('您好！');

strlst.Add('是不是安装的卡巴2009啊?');

strlst.Add('请教一下：');

strlst.Add('师兄我在问个问题：代码如下');

strlst.Add('可是没有connectionstring属性');

str := strlst.Strings[idx];

Timer1.Enabled := true;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

strlst.Free;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if idx

Inc(idx)

else

idx := 0;

if timer2.Enabled then

timer2.Enabled := false;

label1.Caption := '';

txtIdx := 0;

str := strlst.Strings[idx];

timer2.Enabled := true;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if txtIdx

begin

Inc(txtIdx);

label1.Caption := label1.Caption + str[txtIdx];

end

else

Timer2.Enabled := false;

end;

Java代码

public static void message(){

// String package_header_signature = "hello";

// int file_num=8;

//

// for(int i=0;i 8);

abyte[2] = (byte) ((0xff0000 & i) >> 16);

abyte[3] = (byte) ((0xff000000 & i) >> 24);

}

return abyte;

}

public static int bytesToInt(byte[] bytes) {

int addr=0;

if(bytes.length==1){

addr = bytes[0] & 0xFF;

}else{

addr = bytes[0] & 0xFF;

addr |= ((bytes[1]

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com