Zitat von
Sascha_OW:
aber in einer TList kann man da nicht nur StringsSpeichern, dann hat man bei integern immer das nervige Strtoint
StrToInt wirst du nie verwenden müssen, wenn du keine Strings darin Speicherst
In TList werden lediglich Pointer gespeichert. Wenn du dies ändern möchtest, kannst du die Klasse ableiten und die Benötigten Funktionen überschreiben:
Delphi-Quellcode:
TMyIntegerList = class(TList)
protected
function Get(Index: Integer): Integer;
procedure Put(Index: Integer; Item: Integer);
public
function Add(Item: Integer): Integer;
function IndexOf(Item: Integer): Integer;
procedure Insert(Index: Integer; Item: Integer);
function Remove(Item: Integer): Integer;
property Items[Index: Integer]: Integer read Get write Put; default;
end;
//...
function TMyIntegerList.Get(Index: Integer): Integer;
begin
result := Integer(inherited Get(Index));
end;
Nachdem das ganze ziemlich nur aus inherited-Aufrufen und Typecasts besteht haste mit wenig Schreibarbeit deine eigene Liste mit relativ hoher Funktionalität.
greetz
Mike