ezDicom Units

[Tabak]

Hallo zusammen!

Ich bin noch ganz neu bei euch und vorallem mit Lazarus und bedanke mich gleich mal für erue Geduld .
Ich habe ein kleines Projekt, welches unter Delphi 7 ganz gut läuft und möchte jetzt mit Lazarus weitermachen. Dabei werden die Units von http://www.cabiatl.com/mricro/ezdicom/#users verwendet.
Wenn ich jetzt kompilieren will erscheinen in der define_types.pas folgene Fehler:

define_types.pas(261,9) Error: Illegal qualifier
define_types.pas(261,9) Hint: may be pointer dereference is missing
define_types.pas(261,9) Error: Illegal expression
define_types.pas(261,9) Fatal: Syntax error, ";" expected but "identifier WORD1" found

Code: Alles auswählen

Procedure Xswap8r(var s : double);
type
  swaptype = packed record
    case byte of
      0:(Word1,Word2,Word3,Word4 : word); //word is 16 bit
      //1:(float:double);
  end;
  swaptypep = ^swaptype;
var
  inguy:swaptypep;
  outguy:swaptype;
begin
  inguy := @s; //assign address of s to inguy
  outguy.Word1 := swap(inguy^.Word4);
  outguy.Word2 := swap(inguy^.Word3);
  outguy.Word3 := swap(inguy^.Word2);
  outguy.Word4 := swap(inguy^.Word1);
  inguy.Word1 := outguy.Word1;        //Fehlermeldung
  inguy.Word2 := outguy.Word2;
  inguy.Word3 := outguy.Word3;
  inguy.Word4 := outguy.Word4;
end; 
 

Ich werd da nicht schlau draus und fürchte mich schon vor Fehlern in den anderen Units.
Thx schonmal im Vorraus!

[theo]

Einfachste Variante

schreib

Code: Alles auswählen

{$mode delphi}{$H+}    

in die Unit.

Noch besser: die Syntax dem objfpc Modus anpassen.

[Tabak]

Danke für die schnelle Hilfe!
Damit scheints zu funktionieren:

Code: Alles auswählen

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}

[Socke]

Einfachste Variante

schreib

Code: Alles auswählen

{$mode delphi}{$H+}    

in die Unit.

Seit wann wird denn automatische Zeiger-Dereferenzierung von Delphi unterstützt?! Das sollte verboten werden!

[theo]

Seit wann wird denn automatische Zeiger-Dereferenzierung von Delphi unterstützt?! Das sollte verboten werden!

Ist ja verboten, in mode objfpc