FindComponent für Arrays?

[Chrissi91]

Hi,

der Titel sagt es eigentlich schon. Ich brauche eine Funktion wie FindComponent für Arrays. Also in etwa so:

FindArray('Level' + IntToStr(i))[1,1] := X Nur leider geht der Code oben nicht.

Hintergrund: Ich habe 10 Arrays, alle 2-dimensionalig (Level1, Level2, ...). Und dann habe ich eine recht lange Prozedure, die ich nach jedem erreichten Level neu aufrufen müsste. Mit der Prozdure übergebe ich einen Integerwert, um welches Array / Level es sich handelt. Ich könnte auch für 10 Level die Prozedure 9x kopieren und das entsprechende Array "per Hand" einsetzen. Das ist mir aber zu viel Code.

Klar gibt es auch Lösungen, um das Problem zu umgehen, aber ich möchte das unbedingt auf diese Art lösen. Ich hoffe ihr könnt mir helfen.

Verregnete Grüße aus Berlin

Chrissi91

[mkinzler]

Geht so nicht. Nimm lieber eine Lösung, die dein Problem umgeht

[_frank_]

moin,
warum nicht einfach ein "Levelarray: array of TMyarray" (TMyArray ist halt dein vorhandener ArrayTyp)?
also deine 2-dimensionalen arrays in einem Level-array halten...(hoffe ich drücke mich verständlich aus)
dann kannste einfach per Levelarray[levelnumber] auf die Daten zugreifen

notfalls kannst du auch noch zusätzlich eine "Umsetzungsliste" in eine ini schreiben, intern greifst du nur über die nummer zu...

Code:

[levelnames]
1=erstes Level
2=zweites Level

oder für eine evtl. vorhandene level-definition:

Code:

[Level_0]
name=erstes Level
...daten für das level...

HTH Frank

[SirThornberry]

Soetwas wie FindArray gibt es nicht weil ja sonst die Variablennamen der Arrays mit in der Exe gespeichert werden müssten. Und Variablennamen werden nicht in der Exe gespeichert sondern werden in Speicheradressen gewandelt.

[Chrissi91]

Danke für eure Antworten.

Leider verstehe ich _frank_ noch nicht ganz. Ich übersetz mal wie ich das verstanden hab und ihr könnt mich dann ja gegebenfals verbessern.

Folgende Level habe ich:

• MainLevel
• Level1
• Level2
• Level3
• ...

MainLevel ist 1-dimensional und sieht so aus:

• Level1
• Level2
• Level3
• ...

In meiner Prozedure würde ich dann auf die Arrays wie folgt zugreifen:

MainLevel[1][I,J] := 10; Das würde dann bedeuten:

Level1[I,J] := 10; Aber der vorletzte Delphicode kann doch so gar nicht gehen. Oder hab ich mittlerweile in Delphi alles vergessen?

[_frank_]

was soll da nicht gehen?

Delphi-Quellcode:

type
  TLevel=array[1..10,1..10] of string;
  TLevels=array[1..10] of TLevel;
...

implementation

...

procedure TForm1.Button1Click(Sender: TObject);
var levels:TLevels;
begin
  levels[1][2,5]:='test';
  showmessage(levels[1][2,5]);
end;

funktioniert bei mir wunderbar
kann deinen Postings noch kein Gegenargument erkennen, was gegen eine solche vorgehensweise sprechen würde...vielleicht hab ich dich auch falsch verstanden.

Gruß Frank

[Chrissi91]

Achso.

Habe wirklich zu lange kein Delphi mehr gemacht. Ich dachte ihr meintet mit dem MainArray von String wo drin steht 'Level1', 'Level2', etc.

Dann ist alles klar. Thx!!!

[_frank_]

chrissi91 wollte sowas:
http://nopaste.org/p/ag1onqWYO

Gruß Frank