If Anweisungen verkleinern

[Meflin]

du definierst dein Customer-Info nicht als string, sondenr machst eine eigene Enum dafür...

Delphi-Quellcode:

type
  TCustomerInfoSize = (ciSmall, ciMedium, ciLarge)

Oder wie du es eben brauchst

und dann kannst du einfach case...of verwenden:

Delphi-Quellcode:

case Customer_Info[1,28,1] of
  ciSmall: begin ... end;
  ciMedium: begin ... end;
  ciLarge: begin ... end;
end;