record vergleichen

**StTüff**

Guten Morgen!

Ich hätte da noch eine Frage:

Angenommen ich habe folgendes:

Delphi-Quellcode:

			TRecDaten = record

    Messwert : TStuetzpunkt;

    Saved : boolean;

  end;

ich kann dann den Inhalt einer Variblen a vom Typ TRecDaten einer
Variablen b vom Typ TRecDaten sehr einfach zuweisen:
b := a; wenn ich aber vergleichen möchte, ob der Inhalt identisch ist,
if a=b then... so bekomme ich:
[Fehler] ttt.pas(310): Inkompatible Typen

Muss ich die einzelnen Elemente vergleichen (was ja richtig viele
sein können), oder geht's auch auf eine andere Art?

Vielen Dank schon mal,

StTüff

**APP**

Hallo StTüff,

Records als Packed deklarieren:

markieren

Delphi-Quellcode:

			TRecDaten = packed record 

    Messwert : TStuetzpunkt; 

    Saved : boolean; 

  end;

markieren

Delphi-Quellcode:

			  IF CompareMem(@a, @b, sizeof(a)) THEN

     // sind gleich

sollte funktionieren.

**StTüff**

Das wollte ich hören!

Vielen Dank!

StTüff

**sakura**

Ich möchte darauf hinweisen, das die Methode CompareMem nur genutzt werden kann, wenn im Rekord keine Pointer enthalten sind (z.B. Objektbezüge, Strings

o.a.)

...

...

**StTüff**

Hallo sakura!

Das ist in diesem Fall zum Glück nicht so, hast Du einen
Vorschlag wie es in dem von Dir beschriebenen Fall zu
realisieren wäre?

Vielen Dank für den Hinweis.

StTüff

**Motzi**

In diesem Fall würde ich eine eigene "CompareRecord"-Funktion schreiben, denn in diesem Fall musst du wirklich jedes Feld einzeln vergleichen...

**choose**

Wenn Du statt Records Klassen verwenden würdest und statt der Felder published Properties, könntest Du mithilfe der RTTI (Runtime Type Information, siehe OH) selbst bei Referenzierten (Pointer als Recordfelder) oder Aggregierten (Unterrecords als Recordfelder) Objekten (dann Rekursiv) einen "tiefen Vergleich" durchführen.

Die Problematik entspricht im Wesentlichen dem Problem der der Bei Google suchen

shallow copy und der Bei Google suchen

deep copy.
Wenn Dich dieser Ansatz interssiert, mache einen neuen Thread auf und wir könnten den Vergleich von Objekten mithilfe der RTTI diskutieren (leider erst heute nach Feierabend).

**StTüff**

Hallo!

Vielen Dank für den Hinweis.

Leider habe ich momentan keine Zeit, so "tief" einzusteigen.
Grundsätzlich interessiere ich mich natürlich für alles, was
ich noch nicht kenne.

Vielleicht komme ich noch mal auf Dein Angebot zurück, wenn's
bei mir zeitlich besser passt.

Gruß und noch mal besten Dank an alle!

StTüff

record vergleichen

record vergleichen

Re: record vergleichen

Re: record vergleichen

Re: record vergleichen

Re: record vergleichen

Re: record vergleichen

Re: record vergleichen

Re: record vergleichen

Forumregeln

StTüff Registriert seit: 3. Dez 2002 132 Beiträge Delphi 2006 Enterprise	#3 Re: record vergleichen 7. Nov 2003, 08:31 Das wollte ich hören! Vielen Dank! StTüff
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#4 Re: record vergleichen 7. Nov 2003, 08:53 Ich möchte darauf hinweisen, das die Methode CompareMem nur genutzt werden kann, wenn im Rekord keine Pointer enthalten sind (z.B. Objektbezüge, Strings o.a.) ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

StTüff Registriert seit: 3. Dez 2002 132 Beiträge Delphi 2006 Enterprise	#5 Re: record vergleichen 7. Nov 2003, 09:03 Hallo sakura! Das ist in diesem Fall zum Glück nicht so, hast Du einen Vorschlag wie es in dem von Dir beschriebenen Fall zu realisieren wäre? Vielen Dank für den Hinweis. StTüff
	Zitat

Motzi Registriert seit: 6. Aug 2002 Ort: Wien 598 Beiträge Delphi XE2 Professional	#6 Re: record vergleichen 7. Nov 2003, 11:25 In diesem Fall würde ich eine eigene "CompareRecord"-Funktion schreiben, denn in diesem Fall musst du wirklich jedes Feld einzeln vergleichen... Manuel Pöter
	Zitat

StTüff Registriert seit: 3. Dez 2002 132 Beiträge Delphi 2006 Enterprise	#8 Re: record vergleichen 10. Nov 2003, 06:00 Hallo! Vielen Dank für den Hinweis. Leider habe ich momentan keine Zeit, so "tief" einzusteigen. Grundsätzlich interessiere ich mich natürlich für alles, was ich noch nicht kenne. Vielleicht komme ich noch mal auf Dein Angebot zurück, wenn's bei mir zeitlich besser passt. Gruß und noch mal besten Dank an alle! StTüff
	Zitat