你好。 有人可以一直帮助我进行扫描按钮吗?当我单击特定的按钮时,它甚至可以直接执行某些操作吗?我想用9个属性填充记录,但当Im atc时。第四,我要关闭它。我尝试了一些readkey的东西:
procedure searching();
var p:char;search:string='';
begin
repeat
p:=readkey();
write(p);
search+=chr(p);
until (p=#27) or (p=#13);
if (p=#27) then menu()
else
...
但是问题是它写了一些字符,所以无法擦除它,而且我知道退格和再次书写使我的搜索充满了我不想在那里输入的字符。找不到有关Pascal的主题,所以我在这里尝试。请不要为英语发火。希望你明白我的意思,英语也可能是我找不到的问题。等待回答,谢谢Maroš。
答案 0 :(得分:0)
但是问题在于它写了一些字符,无法擦除它
为什么不呢?只需处理#8(退格键)并截断search
字符串中的最后一个字符即可。您可以同时使用System.Delete
(删除最后一个字符)和System.SetLength
(将长度设置为当前长度-1)。