Record zu TStringlist hinzufügen

[jaenicke]

Delphi-Quellcode:

  if Assigned(Sprite) then
  begin
    if Sprite.Count - 1 > ID_MAIN then
    begin
      for K := ID_FIRST to Sprite.Count - 1 do
      begin
        if Sprite[K].h_Bitmap <> 0 then
        begin
          DeleteObject(Sprite[K].h_Bitmap);
          Sprite[K].h_Bitmap := 0;
          ZeroMemory(@Sprite[K], SizeOf(TSprite));
        end;
      end;
    end;
  end;

[EWeiss]

Sprite hat kein Count.
Das habe ich alles schon durch.

Dann noch ein anderes nichts machen nur schauen.

Wie gesagt das ist nicht mal so eben gemacht.
Ich glaube lasse es lieber sein.

gruss

[jaenicke]

Delphi-Quellcode:

type
  TSprite = class
    CtrlName: WideString;
    CtrlIndex: Integer;
    ...
  end;

var
  Sprite: TObjectList<TSprite>;

[EWeiss]

Zitat von jaenicke:

Delphi-Quellcode:

type
  TSprite = class
    CtrlName: WideString;
    CtrlIndex: Integer;
    ...
  end;

var
  Sprite: TObjectList<TSprite>;

Danke habe es vorhin versucht aber das lässt sich so einfach nicht vereinbaren mit den ganzen Kram.
Siehe Beitrag über den deinen.

gruss

[DeddyH]

Wieso nicht? Ich sehe da auf Anhieb nichts in Deinem Code, das unbedingt Records und Arrays brauchen würde.

[EWeiss]

Zitat von DeddyH:

Wieso nicht? Ich sehe da auf Anhieb nichts in Deinem Code, das unbedingt Records und Arrays brauchen würde.

Du siehst aber schon wie viele Indexe ich benötige um die Sprites zu zuweisen?
Found, Count, FlagFound, Prop.RecycleBin ?

Sprite[Count].Top := Bottom;
Das ist ein Array oder?
Und das wollte ich nicht! (Dann kann ich es auch so belassen wie es ist)
Somit hat sich das erledigt.

Danke für eure Teilnahme!

gruss

[DeddyH]

Nochmal ganz langsam: wie spricht man ein Array-Element an?
Array[Index] Und ein Listenelement?
List[Index] Mal abgesehen von Low() und High() müsste am Zugriff auf die Elemente doch nichts ändern. Sry, ich verstehe Deine Einwände nicht.

[TiGü]

Zitat von EWeiss:

Zitat von DeddyH:

Wieso nicht? Ich sehe da auf Anhieb nichts in Deinem Code, das unbedingt Records und Arrays brauchen würde.

Du siehst aber schon wie viele Indexe ich benötige um die Sprites zu zuweisen?
Found, Count, FlagFound, Prop.RecycleBin ?

Sprite[Count].Top := Bottom;
Das ist ein Array oder?
Und das wollte ich nicht!
Somit hat sich das erledigt.

Geh schlafen Emil, du bist doch wahrscheinlich schon die ganze Nacht wach.
Und höre auf deine Beiträge ständig nach zu editieren, man weiß gar nicht auf was man antworten soll.
Erstelle einfach einen neuen Beitrag.

Das von jaenicke gezeigte Sprite[Count].Top := Bottom; ist ein ganz normaler Zugriff auf eine Liste.
Ja, auch Listen können mit Integer-Indizes angesprochen werden.

[jaenicke]

Zitat von EWeiss:

Ich wollte keine Arrays und das ist eins!
Sprite[Count].Top := Bottom;

Es ist ein indexbasierter Zugriff. Ob auf ein Array oder eine Liste kann man an der Zeile nicht unterscheiden.
Im Falle einer Liste läuft das ganze auf eine Index-Property mit einer Getter-Methode, die das Element zurückliefert.

Sinnvoll ist aus Performancegründen natürlich eher ohne die vielen Indexzugriffe zu arbeiten und das aktuelle Element in eine Variable zu packen:

Delphi-Quellcode:

var
  Sprites: TObjectList<TSprite>;
  Sprite: TSprite;
begin
  ...
  Sprite := Sprites[Count];
  Sprite.Top := ...;
  Sprite.Def := ...;

Meinst du das?

[jaenicke]

Zitat von EWeiss:

Danke habe es vorhin versucht aber das lässt sich so einfach nicht vereinbaren mit den ganzen Kram.

Ich sehe da nur, dass da ein High(Sprite) ersetzt werden muss durch Sprite.Count - 1 wie im Beispiel und es muss noch das einzelne Sprite (Für die Liste wäre nebenbei Sprites im Plural sinnvoller, dann müsste ich das nicht betonen) erzeugt werden:

Delphi-Quellcode:

// statt Setlength(Sprite, Count + 1);
                Sprite.Add(TSprite.Create);

                Sprite[Count].Top := Bottom;
...