Größe von TStrings in Byte ermitteln

[mleyen]

Delphi-Quellcode:

function StrLstSize(const AStrLst: TStringList): Cardinal;
begin
  if Assigned(AStrLst) then
    Result := Length(AStrLst.Text) * SizeOf(Char)
  else
    Result := 0;
end;