Function GetMemoSize(TheMemo: TObject): integer;
var i: integer;
begin
result := 0;
with (TheMemo as TMemo).lines do
begin
for i := count - 1 downto 0 do
begin
result := result + length(strings[i]);
end;
end;
end;
//By Nativo_Gyn
Mostrando postagens com marcador Retorna o tamanho de um campo memo. Mostrar todas as postagens
Mostrando postagens com marcador Retorna o tamanho de um campo memo. Mostrar todas as postagens
sábado, 17 de outubro de 2009
Assinar:
Postagens (Atom)
