Closed maxkleiner closed 1 year 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!
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);
TList is now for TChart and NeuralNet list implemented and count works.
//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;