我又来提问啦，最近在编一款无聊的文字RPG，有众多技术难题需要攻克，就一这个贴为平台吧，众大神助我一臂之力Y(^_^)Y

@Fallen_Breath 大神你的坦克大战的安装程序是怎么做到的

@J哥222 @十字架下放声歌 @Fallen_Breath 大神那段输密码时将输入字符转为*的程序源代码怎么编

inno setup5，只是360会报毒
详情请围观betterinput单元或自行翻看源码

大神，我在文件夹选项里修改文件图标，但实质是改了之后重启一下电脑图标又没了，咋办@ax_pokl @J哥222 @Fallen_Breath

看三楼和六楼 help@ax_pokl @J哥222 @82111668_2012 @Fallen_Breath

Procedure inputpassword(var s:string;ch:char);
var c:char;
begin
s:='';
cursoron;
repeat
c:=readkey;
if (c<>
#13) and (c<>#
0) and (ord(c) in [32..126]=false) then continue;
if (c=
#13) or ((c=#
0) and (readkey=#28)) then break;
if c=chr(8) then
begin
if s='' then continue;
gotoxy(wherex-1,wherey);
write(' ');
gotoxy(wherex-1,wherey);
delete(s,length(s),1);
continue;
end;
if length(s)=maxlengthofpassword then continue;
s:=s+c;
write(ch);
until false;
writeln;
cursoroff;
end;

我是这么做到的 打的简单一点
program e;
uses crt;
var ch:char;
a:string;
i:integer;
begin
i:=0n
repeat
ch:=readkey;
i:=i+1;
a[i]:=ch;
until 这里怎么写;
end.
而且不知为什么ch可以被读入，但ch无法赋值给a

因为a还没有分配内存空间，当前长度为0，所以也不存在a[i]