Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Array als veränderbare Variable nutzen (https://www.delphipraxis.net/29386-array-als-veraenderbare-variable-nutzen.html)

Christoph 8. Sep 2004 15:19


Array als veränderbare Variable nutzen
 
Hallo!

Heute mal ein neues Problem.
Ich habe mehrere verschiedene Arrays of Record (Array1, Array2, Array3...).

Je nach Bedingung soll ein anderes Array durchlaufen werden.

Ungefähr so:

Delphi-Quellcode:
if Bedingung = 0 then
  begin
    while a < High(Array1) do
    begin
      if Array[a].Zahl > 5 then
      begin
       // weitere Anweisungen
    end;
    inc(a);
  end;
end;
Je nach Bedingung soll ein anderes Array durchlaufen werden.

Wenn also Bedingung = 1, dann soll Array1, bei Bedingung = 2 soll Array2 usw. durchlaufen werden.

Das heißt ich möchte das Array in High(Array1) wie eine Variable benutzen, die ich vorher angebe.

Bsp.:
Delphi-Quellcode:
case Bedingung of
  1: ZuDurchLaufendesArray =: Array1;
  2: ZuDurchLaufendesArray =: Array2;
end;
usw.

Gibt es da eine Möglichkeit?

Danke im Voraus,
Christoph

Dax 8. Sep 2004 15:39

Re: Array als veränderbare Variable nutzen
 
Du machst statt
Delphi-Quellcode:
array of record
diesen:
Delphi-Quellcode:
array of array of record
Dann kannst du das ganze so aufrufen:
Delphi-Quellcode:
Array[Bedingung]
Wenn Bedingung der Index des Arrays ist, gibt es dir das Array zurück, das du durchlaufen willst.

himitsu 8. Sep 2004 15:49

Re: Array als veränderbare Variable nutzen
 
Schau dir mal PArray (heißt doch glaub ich so) an, damit kannst du einen Zeiger auf ein Array erstellen und dann Diesen für deine Zugriffe verwenden.

Christoph 9. Sep 2004 16:55

Re: Array als veränderbare Variable nutzen
 
Hallo!

Herzlichen Dank für die schnellen Antworten.
Werde es am Wochenende in Ruhe austesten.

Freundliche Grüße,
Christoph

Christoph 12. Sep 2004 19:20

Re: Array als veränderbare Variable nutzen
 
Nochmal Hallo,

funzt alles bestens. Vielen Dank nochmals.

Gruß,
Christoph


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz