Цитата:
Сообщение от
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 помогало почему то лишь на некоторых компьютерах.. а эта функция решила проблемы совершенно у всех