Delphi copie de la Mémoire avec l'inscription à un autre Enregistrement

Je vais avoir des problème avec la logique. Je n'ai aucune idée de comment copier un enregistrement à un autre enregistrement dans Delphi.

TypeA = record
  value1 : word;
  value2 : word;
  value3 : word;
  end;

TypeB = record
  b1 : byte;
  b2 : byte;    
  end;

J'ai mes deux dossiers TypeA et TypeB. Pour exemple, j'ai découvert que les données dans TypeA enregistrement est appartiennent à TypeB enregistrements. Remarque: TypeA a plus de Longueur de Données.

Question: Comment puis-je copier TypeA de la mémoire et de la placer dans TypeB record?

CopyMemory(@TypeA, @TypeB, Length(TypeB))

Quand j'ai essayé CopyMemory et ai une erreur (Incompaible types).

PS: je ne veux pas de copie ou de l'affecter comme ci-dessous.

TypeB.b1 := TypeA.valeur1 && $FF;

TypeA et TypeB sont que des exemples, des enregistrements. La plupart des thecases, enregistrement TypeA et TypeB peut contenir plusieurs enregistrements et il
sera plus difficile de les attribuer forme TypeA et d'attribuer à la TypeB enregistrement.

Merci d'avance

----Outre la question:

Est-il un moyen de copier Delphi record de tableau d'Octets et comment? Si il y est,

  • TypeA record de Tableau d'Octets
  • Tableau d'octets de Type B

Sera cette logique de travail?

Votre question n'a aucun sens. Vous essayez de copier la moitié d'un dossier dans un autre dossier? Vous pourriez avoir besoin pour copier plusieurs demi-dossiers dans plusieurs autres dossiers? Vous devez préciser votre question, car il semble être assez étrange (et sans réplique, car il n'est pas clair ce que vous voulez faire).
Merci pour votre commentaire. Je ne suis pas très bien moi-même comment obtenir de la logique aussi. J'ai eu droit à l'information est TypeA enregistrement de données appartenant à TypeB enregistrement de données. C'est mal placée. Je veux récupérer les données et les enregistrer dans TypeB.
Essayez Move() au lieu de CopyMemory() par exemple: Move(TypeA, TypeB, SizeOf(TypeB));
Pourquoi? Les deux MoveMemory et CopyMemory sont mis en œuvre comme Move(Source^, Destination^, Length);
Vous avez deux problèmes. Vous essayez d'obtenir l'adresse de types. Vous devez déclarer quelques variables. Et vous avez besoin d'utiliser sizeof plutôt que la longueur.

OriginalL'auteur sMah | 2012-02-23

  1. 7
    CopyMemory(@a, @b, SizeOf(TypeB))

    si a est de type TypeA et b est de type TypeB.

    Je upvoted, mais ce serait mieux avec quelques explications. Sinon, il a juste l'air comme par magie.
    Il nécessite également un avertissement: si TypeB inclut tous les domaines de la gestion des types, c'est de jouer avec Delphi utiliser des compteurs et sera susceptible de provoquer une introuvable AV.

    OriginalL'auteur Andreas Rejbrand

  2. 5

    Variante dossiers:

    TypeA = packed record
  value1 : word;
  value2 : word;
  value3 : word;
  end;

TypeB = packed record
  b1 : byte;
  b2 : byte;
  end;

TypeAB = packed record
  case boolean of
    false:(a:TypeA);
    true:(b:TypeB);
end;
..
..
var someRec:TypeAB;
    anotherRec:TypeAB;
..
..
  anotherRec.b:=someRec.b
    Merde, je pense que vous avez obtenu en avant de moi. J'ai posté une semblable réponse 🙂

    OriginalL'auteur Martin James

  3. 3
    procedure CopyAtoB( const A: TypeA; var B: TypeB);
begin
// Assume A is bigger than B.
Move( A, B, SizeOf( TypeB))
end;

    ou (avec les Mathématiques de l'unité)

    procedure CopyAtoB( const A: TypeA; var B: TypeB);
begin
// No assumptions about A, B sizes.
FillChar( B, SizeOf( B), 0);
Move( A, B, Min( SizeOf( TypeA), SizeOf( TypeB)))
end;

    OriginalL'auteur Sean B. Durkin

  4. 3

    pour copier Un dossier B dossier il ya une bonne façon - la surcharge d'opérateur; dans ce cas, vous pouvez simplement surcharge Implicite et Explicite des opérations et écrire du code commeb := a:

    program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses System.SysUtils;

type
    TTypeA = record
      value1 : integer;
      value2 : integer;
      value3 : integer;
    end;

    TTypeB = record
      b1 : byte;
      b2 : byte;
      class operator Implicit(value : TTypeA):TTypeB;
    end;

class operator TTypeB.Implicit(value: TTypeA): TTypeB;
begin
    result.b1 := Hi(value.value1);
    result.b2 := Lo(value.value1);
end;


var a : TTypeA;
    b : TTypeB;
begin
    b := a;
end.

    vous pouvez utiliser TBytesStream de copie de tableau d'octets:

    var a : TTypeA;
    bs : TBytesStream;
    bArr : TArray<byte>;//array of byte;
begin
    bs := TBytesStream.Create();
    bs.Write(a, sizeof(a));
    bArr := bs.Bytes;
end;

    ou tout simplement de définir la taille du tableau d'octets à sizeof(A) et puis copyMemory

    J'aime ce plus moderne Delphi que ma réponse ci-dessous à l'aide de la variante de dossiers.

    OriginalL'auteur teran

  5. 3

    Toutes les autres réponses sont les variations de la copie de la mémoire directement, mais je pense que c'est la mauvaise approche. Il est de bas niveau et que vous êtes en utilisant un langage de haut niveau, il est facile de faire des erreurs, et il est risqué si votre dossier contient les types de données gérés.

    Si vous essayez d'obtenir les deux premiers octets de l'un des éléments d'un dossier, essayez d'utiliser un variante enregistrement (en C, une union.) C'est une section d'un dossier qui peut être abordé de plusieurs façons, et ici, vous voulez l'adresse, soit comme un mot ou d'une série d'octets.

    Essayer quelque chose de ce genre (pas testé, juste de taper dans l'éditeur):

    type
  TTwoBytes : packed record
    ByteA, ByteB : Byte;
  end;

  TValueRecord : packed record:
    case Boolean of
      True: (Value: SmallInt);
      False: (ValueBytes : TTwoBytes);
    end;
  end;

  TMyRecord = packed record
    Value1, Value2, Value3 : TValueRecord;
  end;

    Alors pour le code:

    var
  MyRecord: TMyRecord;
  MyBytes: TTwoBytes;
begin
  MyRecord := ...; // Fill it with data here
  // Access the words / smallints by something like: MyRecord.Value1.Value
  MyBytes := MyRecord.ValueBytes; // The key bit: type safe assignment
  // Do something with MyBytes.ByteA or MyBytes.ByteB
end;

    Qu'est-ce vous donner c'est mieux que la copie de la mémoire?

    • C'est sûr: si vous avez plus compliqué dossiers contenant des chaînes de caractères, les interfaces, etc, il faudra encore travailler sans casser le nombre de références.
    • C'est le type de sécurité: aucune copie directe de la mémoire: vous et le compilateur à la fois de savoir ce que vous avez et utilisez.
    • Il canonique: c'est sans doute " le Delphi façon de le faire. (Bien qu'il existe plusieurs façons de structurer les dossiers - si vous regardez dans la réponse d'histoire, j'ai eu un mal de l'un à l'origine. Je pense également que le " case ... of ' la syntaxe pour ce qui est idiot, mais c'est une autre discussion... :))

    Quelques remarques:

    "Toutes les autres réponses sont les variations de la copie de la mémoire directement" - non, ils ne sont pas!
    Ils ne sont pas maintenant, mais ils étaient quand j'ai commencé à écrire ceci 🙂

    OriginalL'auteur David

  6. 2

    Vous pouvez omettre CopyMemory() (unité Windows) utilisation par:

    type
  PTypeA = ^TTypeA;
  TTypeA = record
    value1 : word;
    value2 : word;
    value3 : word;
  end;
  PTypeB = ^TTypeB;
  TTypeB = record
    b1 : byte;
    b2 : byte;
  end;
var
  A: TTypeA = (value1 : 11; value2 : 22; value3 : 33);
  B: TTypeB;
  B1: TTypeB;
  C: {packed?} array of Byte;
begin
  Assert(SizeOf(TTypeA) >= SizeOf(TTypeB));
  //...
  B:= PTypeB(@A)^;
  //...
  SetLength(C, SizeOf(A));
  // TTypeA record to Byte Array
  PTypeA(@C[0])^:= A;
  // Byte Array to TTypeB
  B1:= PTypeB(@C[0])^
end;

    OriginalL'auteur g2mk

  7. 0

    DÉPLACER au lieu de CopyMemory si vous voulez simplement copier les octets d'un endroit à l'autre.

    Et pour obtenir la taille d'un enregistrement utilisation de SizeOf au lieu de la Longueur.

    Les deux MoveMemory et CopyMemory sont mis en œuvre comme Move(Source^, Destination^, Length);
    MoveMemory() et CopyMemory() exiger la Windows unité, qui est une plate-forme spécifique. Move() est dans le System unité et est disponible sur toutes les plateformes.

    OriginalL'auteur HeartWare