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;


HTML generated by Time2HELP
http://www.time2help.com