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

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

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

© RTIT