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

[Control]

Прогоняй через неё.

DelSpace(LocText : Text[30]) Return : Text[30]
FOR step := 1 TO STRLEN (LocText) DO
BEGIN
   Chr := LocText[step];
   IF NOT(Chr IN [32, 255]) THEN Return := Return + FORMAT(LocText[step]);
END;

[Lrundom]

Цитата:

Сообщение от Control

Прогоняй через неё.

DelSpace(LocText : Text[30]) Return : Text[30]
FOR step := 1 TO STRLEN (LocText) DO
BEGIN
   Chr := LocText[step];
   IF NOT(Chr IN [32, 255]) THEN Return := Return + FORMAT(LocText[step]);
END;

спасибки огромное.. изменение региональных настроек и удаление пробелов с помощью функции DELCHR помогало почему то лишь на некоторых компьютерах.. а эта функция решила проблемы совершенно у всех