| Autor |
Beitrag |
Bockscar
 
Beiträge: 105
|
Verfasst: So 19.02.06 13:05
Folgende Frage 
Gibt es eine kürzere Version als diese Schreibweise?
  Delphi-Quelltext
1:
| 18*(player1_bets[37]+player1_bets[73]+player1_bets[40]) |
sowas wie beim record with bla do ... ?
irgendwie, dass ich nicht ständig player1_bets hinschreiben muss um den array zu kennzeichnen
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: So 19.02.06 13:08
Ja, kürzere Variablen-Namen nutzten *g*
Ansonsten gibt es keine andere Möglichkeit. Nutz doch die Code-Vervollständigung (Strg+Leertaste)
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Amateur
Beiträge: 777
(Win98, WinMe) WinXP Prof
D3 Prof, D6 Pers, D2k5 Pers., Turbo C++ Explorer
|
Verfasst: So 19.02.06 17:26
strg + c und strg + v hilft da auch weiter...
_________________ "Kein dummes Gerede. Kein Rumrätseln. Denkt an nichts anderes mehr, nur noch an das, was vor euch liegt. Das ist die wahre Herausforderung. Ihr müßt euch vor euch selbst schützen, Leute." (Rennes in "Cube")
Beiträge: >700
|
|
Bockscar 
Beiträge: 105
|
Verfasst: Mo 20.02.06 22:45
super typ. es geht ja auch um die uebersichtlichkeit
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Mo 20.02.06 23:59
Hallo,
übersichticher? meinst du so?
Delphi-Quelltext
1:
2:
3:
| 18*(player1_bets[37]
+player1_bets[73]
+player1_bets[40]) |
//Edit: oder sag mal wo die Zahlen 37,73,40 definiert sind, dann kann man mehr sagen dazu. _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
Born-to-Frag
Beiträge: 1094
Win XP SP2, Win 2000 SP4
Delphi 7, 2k5
|
Verfasst: Di 21.02.06 10:09
 Bockscar hat folgendes geschrieben: | | super typ. es geht ja auch um die uebersichtlichkeit |
Wer ist ein super Typ?  _________________ Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.
|
|
Amateur
Beiträge: 777
(Win98, WinMe) WinXP Prof
D3 Prof, D6 Pers, D2k5 Pers., Turbo C++ Explorer
|
Verfasst: Di 21.02.06 21:24
wenn dus übersichtlich willst kürzere namen...
oder eben entsprechend whitespace...
_________________ "Kein dummes Gerede. Kein Rumrätseln. Denkt an nichts anderes mehr, nur noch an das, was vor euch liegt. Das ist die wahre Herausforderung. Ihr müßt euch vor euch selbst schützen, Leute." (Rennes in "Cube")
Beiträge: >700
|
|
Grenzgaenger
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 22.02.06 19:46
kürzer? wie wär es mit ....
Delphi-Quelltext
1:
2:
3:
4:
| function getRecordSum(i1, i2, i3): integer;
begin
result := (player1_bets[i1]+player1_bets[i2]+player1_bets[i3])
end; |
dann hast du nur noch...
Delphi-Quelltext
1:
| 18* getRecordSum(37, 73, 40); |
kurz genug, auch für wiederholungen?
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Mi 22.02.06 22:07
| Grenzgaenger hat folgendes geschrieben: | kürzer? wie wär es mit ....
Delphi-Quelltext
1:
2:
3:
4:
| function getRecordSum(i1, i2, i3): integer;
begin
result := (player1_bets[i1]+player1_bets[i2]+player1_bets[i3])
end; |
dann hast du nur noch...
Delphi-Quelltext
1:
| 18* getRecordSum(37, 73, 40); |
kurz genug, auch für wiederholungen? |
Da kommt mir grad noch eine Idee, wie man das noch etwas allgemeiner bekommt.
Dazu brauch man einzig und allein Open Arrays (Nicht verwechseln mit dynamischen Arrays!!!) 
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| function getRecordSum(i: Array of Integer): integer;
var
X: Integer;
begin
Result := 0;
For X := Low(I) to High(I) do
Inc(Result, player1_bets[i[X]]);
end; |
Der Aufruf erfolgt dann mit:
Delphi-Quelltext
1:
| RS := getRecordSum([13, 37, 42, 0, 8, 15, 47, 11]); |
Die wichtigen Stellen sind hervorgehoben ...
HTH. _________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
|
