Probleme beim Speichern eines Arrays

[Muetze1]

Zitat:

Zitat von dominikkv

Hey das war nen Witz (man beachte das Smiley)

Wie? Keine eigene Ironie Erkennung mehr? Musste alles vordefiniert bekommen mit dem Smiley? Anscheinend hatte es im Endeffekt trotzdem geklappt...

[Spessi]

Hallo, habe das ganze jetzt mit einer TObjectList gelöst :)

Delphi-Quellcode:

type TNPCList = class(TObjectList)
  protected
    function getItem(Index: Integer): TNPC; virtual;
    procedure setItem(Index: Integer; Objekt: TNPC); virtual;
  public
    function Add(Objekt: TNPC): Integer; virtual;
    function Remove(Objekt: TNPC): Integer; virtual;
    function IndexOf(Objekt: TNPC): Integer; virtual;
    procedure Insert(Index: Integer; Objekt: TNPC); virtual;
    function First: TNPC; virtual;
    function Last: TNPC; virtual;
    property Items[index: Integer]: TNPC read getItem write setItem; default;
    procedure SaveToFile(Stream: TMemoryStream);
    procedure LoadFromFile(Stream: TMemoryStream);
end;

Gibt's dagegen irgendwelche Einwände? (wg. Geschwindigkeit, etc.)



Gruß Spessi

[DeddyH]

Wieso Einwände? Genau dafür ist eine TObjectList schließlich da ;)

[dominikkv]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von dominikkv

Hey das war nen Witz (man beachte das Smiley)

Wie? Keine eigene Ironie Erkennung mehr? Musste alles vordefiniert bekommen mit dem Smiley? Anscheinend hatte es im Endeffekt trotzdem geklappt...

Ok, Frieden :cheers:

[Muetze1]

Zitat:

Zitat von Spessi

Gibt's dagegen irgendwelche Einwände? (wg. Geschwindigkeit, etc.)

Nö, nur ein Vorschlag: Benutzt doch den Typ TStream bei den Load/Save Methoden, dann kannst du auch mal diese Liste in einen TFileStream, TSocketStream, etc speichern bzw. auch mal Laden (TResourceStream).

Zitat:

Zitat von dominikkv

Ok, Frieden :cheers:

Ok, war denn überhaupt Krieg? Wenn ja, dann war mal wieder keiner hingegangen... :cheers: