TruncateString method |
Applies to
TTextTestListener
Declaration
Function TruncateString(s :string; len :integer): string;
Implementation
function TTextTestListener.TruncateString(s :string; len :integer) :string; begin if Length(s) > len then result := copy(s, 1, len) + '...' else result := s End; |
|