unit StrListHlp;
type
{ TStrListHelper }
TStrListHelper = class helper for TStringList
function LastIndex: Integer;
function LastLine: String;
end;
implementation
{ TStrListHelper }
{ Date cuenta que accedemos a propiedades de StringList:
Count, Strings, etc.
como si estuviéramos dentro de la definición de la clase }
function TStrListHelper.LastIndex: Integer;
begin
Result := Count - 1;
end;
function TStrListHelper.LastLine: String;
begin
if LastIndex >= 0 then
Result := Strings[LastIndex]
else
Result := ''; {Aunque quizá deberíamos alzar una excepción...}
end;
end.