TrimRight(X : String) : String
Удалить пробелы в конце строки

Функция TrimRight удаляет пробелы в конце строки.

Procedure OnCreate;
Var
  A, B : String;
Begin
  A := '  Пример  программы ';
  B := TrimRight(A);
  Warning('['+B+']'); // [  Пример  программы]
End;

© RTIT