Mehrere Bereiche in einer DIM-Anweisung

[JörgG]

Hallöööchen, habe grade 22 Speicherbereiche deklariert & muß die ja jetzt alle "dimmen". Muß ich 22 Zeilen mit DIM bereich#, xx schreiben oder gibt's da 'ne Kurzversion?

[Jonathan]

Nö, musst Du wohl alle einzeln "Dimmen".


Gruß
Jonathan

[_Joerg_]

Ein kleiner Fünfzeiler reicht:

Declare s$
WhileLoop 22
  s$ = s$ + "Dim Bereich" + Format$("00",&Loop) + "#,500\n"
Wend
ClearClip
PutClip s$

[p. specht]

Genial... Aber war die Frage nicht mehr prinzipiell gemeint? Was sagt RGH?

[JörgG]

Nö, musst Du wohl alle einzeln "Dimmen"

alles klar, hab's mir schon gedacht - ist ja auch nicht wirklich ein Drama, wollt nur sichergehen...
@_Joerg_ , das mit Zwischenablage ist wirklich cool
Danke

[_Joerg_]

Welche Version hast Du denn eigentlich? Mit XProfan12 geht das hier:

Declare Bereich#[22]
Dim Bereich#[],1000
Print SizeOf(Bereich#[2])
WaitInput

[_Joerg_]

Zitat von p. specht

Genial... Aber war die Frage nicht mehr prinzipiell gemeint?

Interessant - ich dacht, da wären schon mehr Leute drauf gekommen. Wenn ich viele Wiederholungen schreiben müßte, mache ich das eigentlich immer so.
Manchmal geht allerdings mehr zeit zum Schreiben der "Abkürzung" drauf, als man für das stumpfe Schreiben "zu Fuß" benötigt hätte. Trotzdem macht es mehr Spaß

[Frabbing]

Zitat von _Joerg_

Interessant - ich dacht, da wären schon mehr Leute drauf gekommen. Wenn ich viele Wiederholungen schreiben müßte, mache ich das eigentlich immer so.
Manchmal geht allerdings mehr zeit zum Schreiben der "Abkürzung" drauf, als man für das stumpfe Schreiben "zu Fuß" benötigt hätte. Trotzdem macht es mehr Spaß

Und dann gibts ja auch immer noch Copy&Paste.

[RGH]

Zitat von p. specht

Genial... Aber war die Frage nicht mehr prinzipiell gemeint? Was sagt RGH?

Was soll ich dazu sagen? Schau in die Hilfe!

Gruß
Roland

[Frabbing]

Roland, er sucht nach einer Funktionalität ala
Dim V,N[,V,N[,V,N,][...]]

[RGH]

Zitat von Frabbing

Roland, er sucht nach einer Funktionalität ala
Dim V,N[,V,N[,V,N,][...]]

Das ist mir klar. Und ein Blick in die Hilfe zeigt, dass es diese Schreibweise nicht gibt.

Gruß
Roland

[p. specht]

... auch künftig nicht... Danke, geklärt.

[_Joerg_]

Schneller als so'n Bereichsarray geht doch gar nicht mehr, oder?

[JörgG]

Schneller als so'n Bereichsarray geht doch gar nicht mehr, oder?

Stimmt, das wäre vllt. bei dieser Anzahl von benötigten Bereichen bald praktischer. Allerdings sollen sie in diesem Fall nicht alle gleich groß sein. Aber selbst das könnte ich leicht zB. mit einer stringliste lösen:

declare bereich# [25], byt$
byt$ = "26,130,220,10,255,4,12,120,....,130"
whileloop  25
   dim  bereich#[&loop], val(substr$(byt$,&loop,","))
endwhile

muß natürlich beim coden ein wenig aufpassen, daß ich die BereichsElemente nicht vertausche - aber ich glaub, ich bau das um - mal sehen...

...Und ein Blick in die Hilfe zeigt, dass es diese Schreibweise nicht gibt.

Najaaa - könnte ja sein, daß hier & da noch undokumentierte Perlen versteckt sind...