delphiLeft side cannot be assigned to varpassword_2:String;password_3:String;beginpassword_2:= Password;Delete( Password_2,1,3);password_3:=Edit1.Text;Delete( Password_3,1,3 );password:= Password_2;
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 21:43:53
delphiLeft side cannot be assigned to varpassword_2:String;password_3:String;beginpassword_2:= Password;Delete( Password_2,1,3);password_3:=Edit1.Text;Delete( Password_3,1,3 );password:= Password_2;
delphiLeft side cannot be assigned to
var
password_2:String;
password_3:String;
begin
password_2:= Password;
Delete( Password_2,1,3);
password_3:=Edit1.Text;
Delete( Password_3,1,3 );
password:= Password_2;
delphiLeft side cannot be assigned to varpassword_2:String;password_3:String;beginpassword_2:= Password;Delete( Password_2,1,3);password_3:=Edit1.Text;Delete( Password_3,1,3 );password:= Password_2;
你的 password 一定是宣告成 const 变数
procedure func(const password: string);
改成 var 就行了
procedure func(var password: string);