RPG Spiel ''Book of Secrets''

[nuclearping]

Zitat von Pryoxer:

@Pustekuchen und puke
Ja Schleifen verwende ich schon aber wie soll ich die Schleifen und Arrays kombinieren damit ich theoretisch unendlich viele Slots habe ?

Delphi-Quellcode:

type
  TInventoryItem = record
    ID: Integer;
    Name: String;
    ItemType: ...
    ...
  end;
  TInventoryArray = Array of TInventoryItem;

var
  InvArr: TInventoryArray;
  I: Integer;
begin
  SetLength(InvArr, 50);
  for I := 0 to Length(InvArr) - 1 do
    begin
      ...
    end;
  ...
end;