Удаление пробелов

[rruskih]

проще уж написать:


DelChar(LocText : Text[30]) Return : Text[30]
Chr := 32;
Return :=DELCHR(LocText,'=',FORMAT(Chr));
Chr := 255;
Return :=DELCHR(LocText,'=',FORMAT(Chr));