Might be quicker to set the contents of the pointer to zero, using Ats and Hats and copying zero into it.!!
In pseudo its something like move(Pointer of c_table, sizeof(c_table), 0)
Cant remember the syntax, something along the lines of
Its something along those lines anyway.
Previous may have a few too many components.
Simple and quite OO is...,
One timer, one edit (or any text comp. and a few vars.
procedure TForm1.Timer1Timer(Sender: TObject);
var
WrappedStr : string;
begin
if StrLength - CurrentPos >= CharsToDisplay then
begin
WrappedStr :=...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.