每当单击特定按钮时,它都会在 Pascal 中执行某些操作
Whenever specific button clicked it does something in Pascal
你好。
任何人都可以帮助我始终扫描按钮,当我单击特定的按钮时,它会做一些事情,甚至我在写东西吗?我想用 9 个属性来填充记录,但是当我在 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š。
but the problem was that it written some character it was not possible to erase it
为什么不呢?只需处理 #8(退格键)并截断 search
字符串中的最后一个字符。您可以同时使用 System.Delete
(通过删除最后一个字符)和 System.SetLength
(通过将长度设置为当前长度 - 1)。
你好。 任何人都可以帮助我始终扫描按钮,当我单击特定的按钮时,它会做一些事情,甚至我在写东西吗?我想用 9 个属性来填充记录,但是当我在 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š。
but the problem was that it written some character it was not possible to erase it
为什么不呢?只需处理 #8(退格键)并截断 search
字符串中的最后一个字符。您可以同时使用 System.Delete
(通过删除最后一个字符)和 System.SetLength
(通过将长度设置为当前长度 - 1)。