Einzelnen Beitrag anzeigen

Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#6

Re: If Anweisungen verkleinern

  Alt 10. Mai 2009, 10:53
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
  Mit Zitat antworten Zitat