请问下var str:array[0..80] of string然后str[0]:='...'str[1]:='...'
可以这样做吗?为什么我的会出现说[Error] Unit1.pas(59): Left side cannot be assigned to
可以这样做吗?为什么我的会出现说[Error] Unit1.pas(59): Left side cannot be assigned to
解决方案 »
- ocx控件问题,只有30分了
- 熟悉写数据库应用软件的朋友请帮忙。。 (关于数据存取与更新机制)
- 哪里有好一点的工作,开发或管理mes系统的!
- 请问如何放出一个动画来?
- 请赐教,谁会编倒计时
- D6和D7有什么区别么?D6的sp1中好像有bug, 各位的D7用着怎么样,特别是数据库方面
- 一个非常刺手的问题,如何在利用数据库的数据,通过编写代码处理数据,然后再以网格的形式输出最好能够控制数据的输出量,请多多帮忙,谢
- 急、急、急
- 怎樣取得WINDOWS中正在運行的進程和殺死某個進程, 謝謝
- 关于串口通讯控件(Mscomm)
- 不管多少分,求videocap6的列子。。。。。。。。。。。。。。。
- mediaplayer的播放问题。点击play按钮,为什么不播放?急!!!
var
str:array[0..10] of string;
begin
str[0]:='alksdjfa';
str[1]:='asdklfjasd';
end;
绝对没问题。
设成的是全局变量,然后在下面这里用
procedure TForm1.btnCClick(Sender: TObject);
var
it,i: Integer;
s:string;
begin
it := TButton(Sender).Tag;
i:=it;
Tbutton(sender).Caption:=edit1.Text ;
s:=edit1.Text ;
name[i]:=s;
end;
Form1: TForm1;
name:array[1..80] of string;implementation{$R *.dfm}
procedure TForm1.btnCClick(Sender: TObject);
var
it,i: Integer;
s:string;
begin
it := TButton(Sender).Tag;
i:=it;
Tbutton(sender).Caption:=edit1.Text ;
s:=edit1.Text ;
name[i]:=s;
end;