Hallo Delphi Freunde,
meine Frage, wie viele klassenvariablen kann man in einem Objekt anlegen privat und public?
soll man die nach datentyp sortieren?
Delphi-Quellcode:
private
{ Private-Deklarationen }
wochMt : string;
anzok : integer;
anz : integer;
anzok1 : Integer;
anznotok : integer;
fromweek : integer;
toweek : integer;
Aktuellewoche : word;
maxY : integer;
merkeindex : integer;
WordApp : OleVariant;
selec: OleVariant;
wochenDaStart : array [1..53] of double;
monatsDaStart : array [1..12] of double;
wochenarrOTD1 : array [1..53] of double;
wochenarrOTD : array [1..53] of double;
monatsarrOTD1 : array [1..12] of double;
monatsarrOTD : array [1..12] of double;
wochenOTDGut1 : array [1..53] of double;
wochenOTDBad1 : array [1..53] of double;
monatsOTDGut1 : array [1..12] of double;
monatsOTDBad1 : array [1..12] of double;
wochenOTDGut : array [1..53] of double;
wochenOTDBad : array [1..53] of double;
monatsOTDGut : array [1..12] of double;
monatsOTDBad : array [1..12] of double;
monatsCYi : array [1..12] of double;
wochenCYi : array [1..53] of double;
monatsFAL : array [1..12] of double;
wochenFAL : array [1..53] of double;
monatsFPY : array [1..12] of double;
monatsYield : array [1..12] of double;
monatsGold : array [1..12] of double;
monatsSuco : array [1..12] of double;
monatsPPM : array [1..12] of double;
monatsCATs : array [1..12] of double;
monatsAuditint : array [1..12] of double;
monatsDLZ : array [1..12] of double;
monatsWIP : array [1..12] of double;
monatsCutRF : array [1..12] of double;
monatsCutFO : array [1..12] of double;
monatsCutMeter : array [1..12] of double;
monatsDp11 : array [1..12] of double;
monatsDp2 : array [1..12] of double;
wochenFPY : array [1..53] of double;
wochenYield : array [1..53] of double;
wochenGold : array [1..53] of double;
wochenSuco : array [1..53] of double;
wochenPPM : array [1..53] of double;
wochenCATs : array [1..53] of double;
wochenAuditint : array [1..53] of double;
wochenCutRF : array [1..53] of double;
wochenCutFO : array [1..53] of double;
wochenCutMeter : array [1..53] of double;
wochenCogi : array [1..53] of double;
wochenDLV : array [1..53] of double;
wochenCNF : array [1..53] of double;
wochenDp11 : array [1..53] of double;
wochenDp2 : array [1..53] of double;
wochenToolProd : array [1..53] of double;
wochenToolUnProd : array [1..53] of double;
wochenToolProz : array [1..53] of double;
monatsToolProd : array [1..12] of double;
monatsToolUnProd : array [1..12] of double;
monatsToolProz : array [1..12] of double;
monatsPlatSales : array [1..12] of double;
monatsPlatBudget : array [1..12] of double;
monatsPlatCurGold : array [1..12] of double;
monatsPlatCurSuco : array [1..12] of double;
monatsPlatOTD : array [1..12] of double;
monatsPlatBatch : array [1..12] of double;
monatsTPTTotal : array [1..12] of double;
monatsTPTHydro : array [1..12] of double;
monatsTPTDreher : array [1..12] of double;
wochenWSPGut : array [1..53] of double;
wochenWSPBad : array [1..53] of double;
wochenWSPPercent : array [1..53] of double;
monatsWSPGut : array [1..12] of double;
monatsWSPBad : array [1..12] of double;
monatsWSPPercent : array [1..12] of double;
wochenTPTTotal : array [1..53] of double;
wochenTPTHydro : array [1..53] of double;
wochenTPTDreher : array [1..53] of double;
wert1: double;
wert2: double;
hWindow: HWND;
merkdienummer : integer;
wowarer : Integer;
plantindex: Integer;
merkewoche: Boolean;
elementeCS: array of string;
public
werk1: Integer;
werk2: Integer;
werk3: Integer;
division1: Integer;
division2: Integer;
division3: Integer;
division4: Integer;
welcherint: Integer;
welcheSerie: Integer;
jahr : word;
extwarengruppe1: string;
extwarengruppe2: string;
extwarengruppe3: string;
extwarengruppe4: string;
superv1 : string;
superv2 : string;
superv3 : string;
superv4 : string;
superv5 : string;
superv6 : string;
superv7 : string;
superv8 : string;
superv9 : string;
superv10 : string;
superv11 : string;
superv12: string;
Anwender : string;
Rolle: string;
elementstr: string;
superstr : string;
sind das schon zu viele?
gruss
Peter