Problem mit Pointer in Strukturen

[RPRI]

Hallo zusammen,

ich habe ein Problem mit einem Pointer in einer Struktur.
Da ich nicht so ganz fit bin mit Pointern, hoffe ich auf Eure Hilfe.

Muß Funktionen aus einer C.dll ausführen.

Hier der Code:

Delphi-Quellcode:

    {* @brief Holds the name of a module}
    MODULE_NAME = RECORD
       name            :  ARRAY[0..M_MODNAMELEN_A] OF CHAR;    // Name of the module.
    END;
    {* @brief Structure for a list of module names.}
    MODULE_LIST = RECORD
       countModules   :  UINT16;             // Count of module names.
       names      :  ^MODULE_NAME;          // Array of module names.
    END;
    PMODULE_LIST = ^MODULE_LIST;


FUNCTION TARGET_GetModules ( targetHandle : M1C_H_TARGET; moduleCount : UINT16; moduleList : PMODULE_LIST ) : SINT32; cdecl; external 'm1com.dll';


#################################
Hier die Verwendung:
VAR
  countModules : UINT16;
  RetCode      : SINT32;
  i            : UINT16;
  modList      : MODULE_LIST;
  names        : ARRAY[0..MaxSwModules] OF MODULE_NAME;

BEGIN
  // Set the ModuleList
  modList.names := @names;

  //asking the count of modules on the controller
  RetCode := TARGET_GetCountModules ( targetHandle, @countModules );
  IF ( RetCode = M1C_OK ) THEN RetCode := TARGET_GetModules ( targetHandle, countModules, @modList );
    IF ( RetCode = M1C_OK ) THEN
      BEGIN
        // clear the list
        FOR i := 0 TO MaxSwModules DO SWModList[i] := '';
        // filling the List
        FOR i := 0 TO ( countModules - 1 ) DO
          SWModList[i] := modList.names[i].name;  <- hier mosert er beim compilieren.
.......

Danke schon mal für Eure Hilfe!

Gruß
Rainer

[Bummi]

modList.names.name[i] warum eigentlich
names : ^MODULE_NAME;
statt
names : MODULE_NAME;

[Neutral General]

Zitat von Bummi:

modList.names.name[i] warum eigentlich
names : ^MODULE_NAME;
statt
names : MODULE_NAME;

Weils ja ne Liste von MODULE_NAME sein soll.

[RPRI]

Hallo,

habe das jetzt so abgeändert.

  names : ARRAY[0..MaxSwModules] OF ^MODULE_NAME;
Hier bekomme ich aber immer die Meldung Array-Typ erforderlich
SWModList[i] := modList.names[i].name;
Muß auch mit StrCopy arbeiten, da das eine ein C-String ist und das andere ein Pascal String.
StrCopy ( @SWModList[i], modList.names[i].name ); Dies mag der Compiler aber auch nicht.


Danke für Eure Hilfe
Rainer

[RPRI]

Hallo,

wobei hier weise ich ja die Adresse des Array's zu.
modList.names := @names;
Danke und Gruß
Rainer

[Bummi]

Du hast modList als Record mit einem Zeiger(names) auf den Record MODULE_NAME gelegt, erst dieser Record enthält überhaupt ein Array....

[Neutral General]

Hallo,

Also das hier ist falsch:

names : ARRAY[0..MaxSwModules] OF ^MODULE_NAME;
Das muss
names : ARRAY[0..MaxSwModules] OF MODULE_NAME;
heißen.

modList.names := @names;
könnte richtig sein. Ich schreibe es aber lieber so:

modList.names := @names[0];
Was ich bei sowas auch empfehlen würde wäre packed record statt record zu benutzen.

Ansonsten kann ich aus deinem Post irgendwie nicht so richtig rauslesen wo genau das Problem ist


@bumi:

Zitat von Bummi:

Du hast modList als Record mit einem Zeiger(names) auf den Record MODULE_NAME gelegt, erst dieser Record enthält überhaupt ein Array....

modList.names ist auch quasi ein Array. modList.names zeigt auf das erste Element einer Liste von MODULE_NAMEs.

[RPRI]

Hallo Michael,

also das Problem ist, wie komme ich an die Daten die in der modList stecken, dran?

Delphi-Quellcode:

FOR i := 0 TO ( countModules - 1 ) DO
  SWModList[i] := modList.names[i].name;

Wenn ich so darauf zugreifen will, bekomme ich immer die Meldung daß ein ARRAY-Typ erforderlich ist.
Wenn ich das [i] weglasse kann ich das Programm kompilieren, es wird dann aber immer der selbe Modulname zurückgegeben.


Hier die Deklaration von SwModuleList.
SwModuleList = ARRAY[0..MaxSwModules] OF STRING[12]; Danke für Eure Hilfe !!!

[Neutral General]

Hallo,

Du kommst (z.B.) so an die Daten:

Delphi-Quellcode:

FOR i := 0 to (countModules - 1) do
begin
  SWModList[i] := modList.names^.name;
  inc(modList.names);
end;

[RPRI]

Hallo Michael,

danke für Deine Hilfe.
Diese Problem konnte ich jetzt lösen.

Schöne Grüße aus Österreich
Rainer