Vergleich Basic DATA Datentyp

[Manfred12037]

Du bist ja ganz schön neugierig......- nagut. Die Daten kommen von einer Reifenmessung bei der die elastische Formänderung eine Funktion der Belastung ist. d.h. diese Iberechnete Interpolationspolynom kann ich dann in Ansys für eine FEM Berechnung hernehmen. Die Daten sind abhängig vom Reifentyp, daher sind die Datenmengen in deren Anzahl u. Größe immer anderst.....

[jbg]

Wenn es dir unbedingt wichtig ist, dass du die Anzahl der Zahlen nicht ermitteln willst, kannst du das auch mit einer Hilfsfunktion umgehen:

Delphi-Quellcode:

type
  TDynDoubleArray = array of Double;

function DoubleArrayOf(const Args: array of Double): TDynDoubleArray;
var
  I: Integer;
begin
  SetLength(Result, Length(Args));
  for I := 0 to High(Args) do
    Result[I] := Args[I];
end;

var
  Data: array[0..2] of TDynDoubleArray;
  {...}

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Hier werden die "konstanten" Daten initialisiert }
  Data[0] := DoubleArrayOf([1, 2, 3, 10, 8, 9, 0.3]);
  Data[1] := DoubleArrayOf([5.6, 3, 7, 1, 5, 12]);
  Data[2] := DoubleArrayOf([2.8, 6]);
  {...}
end;

[Manfred12037]

Ja, klingt ganz gut die Lösung. Jetzt steht im Araay am Ende Data=((1, 2, 3, 10, 8, 9, 0,3), (5,6, 3, 7, 1, 5, 12), (2,8, 6)). Ich muß für die Rechnung die einzelnen Werte auch aus dem Data auslesen können mit einem Index, d.h. z.B. die Zahl 10 in der ersten Klammer mit deren laufendem Index 4 od. die Zahl 8 mit deren laufendem Index 5 usw.?

[Manfred12037]

d.h. wie kann ich die Daten aus DATA auslesen?

[jbg]

Das ist immernoch ein Array, das man über arrayname[Index] auslesen kann. Und da es sich hierbei um ein Array in einem Array handelt, muss man eben zwei Indizes angeben.

Delphi-Quellcode:

d := Data[DataIndex][Index];
d := Data[DataIndex, Index]; // ist auch möglich

[Manfred12037]

Jetzt klappt es! Besten Dank für die prompte und professionelle Hilfe!

[Manfred12037]

Jetzt klappt es! Besten Dank für die schnelle u. professionelle Hilfe!

[Manfred12037]

Besten Dank für die schnelle u. professionelle Hilfe!