Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Prob. mit mehrdim. Array (https://www.delphipraxis.net/16754-prob-mit-mehrdim-array.html)

Schlingel 22. Feb 2004 22:16


Prob. mit mehrdim. Array
 
Hallo

Ich hab ein Problem mit einem mehrdim. Array:

var mySQL_r_Value: Array of Array of String;

Wie kann ich die Dimension vom ersten bzw. zweitem Array abfragen?

--> Length(mySQL_r_Value) / Length(mySQL_r_Value[0,0]) bringt nicht gewünschten Erfolg.


Danke im Voraus

Chewie 22. Feb 2004 22:31

Re: Prob. mit mehrdim. Array
 
Delphi-Quellcode:
Length(myArray[IndexInFirstDimension])

Schlingel 22. Feb 2004 23:02

Re: Prob. mit mehrdim. Array
 
Hi Chewie

Leider funktioniert deine Length-Funktion bei mir nicht...

Bsp:

Delphi-Quellcode:
var
mySQL_r_Value: array of array of string;
begin
SetLength(mySQL_r_Value, 10,20);

n:= Length(mySQL_r_Value);         =1
n:= Length(mySQL_r_Value[0]);      =1
n:= Length(mySQL_r_Value[1]);      =1
n:= Length(mySQL_r_Value[0][0]);   =1 
n:= Length(mySQL_r_Value[1][1]);   =1 
end;
alle Abfragen ergeben immer nur "1" ich möchte aber jeweils die erste=10 bzw. die zweite=20 Dimension abfragen..

Schlingel 22. Feb 2004 23:08

Re: Prob. mit mehrdim. Array
 
Hi Chewie

Leider funktioniert deine Length-Funktion bei mir nicht...

Bsp:

Delphi-Quellcode:
var
mySQL_r_Value: array of array of string;
begin
SetLength(mySQL_r_Value, 10,20);

n:= Length(mySQL_r_Value);         =1
n:= Length(mySQL_r_Value[0]);      =1
n:= Length(mySQL_r_Value[1]);      =1
n:= Length(mySQL_r_Value[0][0]);   =1 
n:= Length(mySQL_r_Value[1][1]);   =1 
end;
alle Abfragen ergeben immer nur "1" ich möchte aber jeweils die erste=10 bzw. die zweite=20 Dimension abfragen..

Matze 23. Feb 2004 08:21

Re: Prob. mit mehrdim. Array
 
Delphi-Quellcode:
L1 := Length(mySQL_r_Value); //10
L2 := Length(mySQL_r_Value[1]); //20
So geht's bei mir


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

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