If Anweisungen verkleinern

[Meflin]

Du hast dein array Customer-Info (wie das genau aussieht kann man ja nur raten, ich vermute mal hier wären records eh angebrachter als ein 3-Dimensionales array aber egal, in diesem array gibt es eine "Spalte" in der du offensichtlich die strings "Klein", "Mittel" und "Groß" speicherst.

Das machst du nun nicht mehr, sondern speicherst in dieser Spalte den Wert ciSmall usw.

Und da es den Typ ciSmall noch nicht gibt, musst du ihn definieren, mit hilfe einer Enumeration. Syntax steht ja in meinem ersten Beitrag.

Wie gesagt, höchstwahrscheinlich wäre aber sowas in der Art eh besser:

Delphi-Quellcode:

TCustomerInfoSize = (ciSmall, ciMedium, ciLarge);

TCustomerInfo = record
begin
  Size: TCustomerInfoSize;
  ... // deine sonstigen Customer Infos
end;

CustomerInfos = array of TCustomerInfo;

ist doch viel schöner, als ein 3-Dimensionales array, in dem auch noch alles unnötigerweise als string gespeichert wird