Einzelnen Beitrag anzeigen

Benutzerbild von ChrisE
ChrisE

Registriert seit: 15. Feb 2006
Ort: Hechingen
504 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

Re: arraynamen in array - auflösen ?

  Alt 23. Mär 2006, 18:49
Hallo,

das ist auch Klar. Du behauptest ungefähr das hier:
Delphi-Quellcode:
type
  PDaten = ^TDaten;
  Tdaten = record
              test1 : single;
              test2 : single;
           end;
//...
var
  Rohdaten: array of TDaten;
  Datenarray: array[1..3] of PDaten; // A

//wegen A geht nur Zugriff der Form
Datenarray[i]^.test1
Was du willst sollte eher so aussehen:
Delphi-Quellcode:
type

  Tdaten = record
              test1 : single;
              test2 : single;
           end;
  PRohdaten = ^TRohdaten;
  TRohdaten = Array of TDaten;
  Datenarray: array[1..3] of PRohdaten;
//...
var
  Rohdaten1: TRohdaten;
  Rohdaten2: TRohdaten;
  Rohdaten3: TRohdaten;
  Datenarray: array[1..3] of PRohdaten;
//...
  Datenarray[1]:=@Rohdaten1;
  Datenarray[2]:=@Rohdaten2;
  Datenarray[3]:=@Rohdaten3;
  for i:=0 to 10 do showmessage(floattostr(datenarray[1]^[i].test1));
Gruß, Chris

wobei i Hier NICHT bis 10 laufen darf
Christian E.
Es gibt 10 Arten von Menschen, die die Binär lesen können und die die es nicht können

Delphi programming rules
  Mit Zitat antworten Zitat