em dùng FPC viết chương trình với kiểu xâu. viết chương trình nhập vào 1 xâu. xóa các kí tự trắng thừa trong câu. Thầy giáo em viết chương trình như sau:
program xoa_ki_tu_trang;
Uses Crt;
Var St:String;
Procedure XoaTrangThua(Var St:String);
Begin
{Xóa các ký tự trắng ở đầu xâu}
While St[1]=#32 Do Delete(St,1,1);
{Xóa các ký tự trắng ở cuối xâu}
While St[Length(St)]=#32 Do Delete(St,Length(St),1);
{Xóa các ký tự trắng ở giữa xâu}
While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1);
End;
Vậy cho em hỏi cái #32(#32#32) là cái gì. Nghĩa là gì vậy//????
program xoa_ki_tu_trang;
Uses Crt;
Var St:String;
Procedure XoaTrangThua(Var St:String);
Begin
{Xóa các ký tự trắng ở đầu xâu}
While St[1]=#32 Do Delete(St,1,1);
{Xóa các ký tự trắng ở cuối xâu}
While St[Length(St)]=#32 Do Delete(St,Length(St),1);
{Xóa các ký tự trắng ở giữa xâu}
While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1);
End;
Vậy cho em hỏi cái #32(#32#32) là cái gì. Nghĩa là gì vậy//????
