search

maxkleiner / maXbox4

code compiler script studio
GNU General Public License v3.0
23 stars 10 forks source link

TObjectlist versus TList #5

Closed maxkleiner closed 1 year ago

maxkleiner commented 7 years ago

//intertnal test procedure TSimpleTCPServerBroadcast(Buffer: PChar; BufLength: Integer); var I: Integer; FConnections: TObjectlist; begin I := FConnections.Count; if I <> 0 then for I := 0 to I - 1 do with TSimpleTCPClient(FConnections[I]) do //SendBufferTo(FSocket, Buffer, BufLength); end;

maxkleiner commented 2 years ago

Since 4.7.6.10 the ancestor TList is in Classes to access count and capacity with a fake pointer: TList.count! RegisterProperty('Q', 'TList', iptrw); type __Pointer;as TObject cause of NIL FreeAndNilStream (Output); Output : TStream; FreeAndNilBmp (Output); Output : TBitmap; sign: About!

maxkleiner commented 2 years ago

TList is now available without pointers: with TList.create do begin //alias pointer to int for count and capacity add(123456) add(123456789) add(123) writeln(itoa(last)) writeln(itoa(capacity)) writeln('list count '+itoa(count)) clear; free end; //*) writeln(GetIPFromHostName('www.ibm.ch'));
writeln('getLastSysErrorMessage '+getLastSysErrorMessage);

memorymax

maxkleiner commented 1 year ago

TList is now for TChart and NeuralNet list implemented and count works.