Unabhängige Eigenschaft in Record einbinden

[Yheeky]

Hi!

Ich habe ein Array, welches mit einem record "verknüpft" ist. Das heisst in diesem Fall, dass jedes Feld noch die "Eigenschaften" von dem Record hat (hier Status, X und Y). Ich möchte jetzt in diesem record aber gerne noch Eigenschaften verwenden, die "unabhängig" sind, also nicht mit jedem Feld verbunden sind. Wie kann ich das machen?

Hier der Codeauszug:

Code:

type
    Daten = record
      Status : Integer;
      X : Integer;
      Y : Integer;

    end;
      Felder = Array [1..2600] of Daten;

Gruß Yheeky

[Alibi]

Meinst du eine oder mehr Variablen, die jeden Typ annehmen können?
bla: Variant;

[oki]

Hi,

so richtig verstehe ich die Frage nicht, aber wenn ich Yheeky's Richtung folge hab ich noch Zeiger anzubieten.

Gruß oki

[neolithos]

Delphi-Quellcode:

  TDaten = record 
    iStatus : Integer; 
    iX : Integer; 
    iY : Integer; 
  end; 

  TFelder
    iProp : Integer;
    aFelder :  Array [1..2600] of Daten;
  end;

So wünschen!

[Yheeky]

@neolithos: Genau, sowas in der Art. Nun möchte ich, dass die Eigenschaft iProp auch gespeichert wird und nicht nur aFelder. Ich habe das noch so definiert:

Code:

  Datei : File of TFelder;
  Spielfeld : TFelder;

Gruß Yheeky

[neolithos]

Wird doch schon! iProp wird so mit gespeichert.

Doch ist die File of Methode MeinerMeinungNach leicht veraltet. TStream, TFileStream verwenden OOP bzw. Windows-Programmierer.

[Yheeky]

Okay, jetzt funktioniert´s. Eben hatte ich da wohl noch was falsch gemacht.
Wie würde das denn mit TStream oder TFileStream aussehen?

Danke schonmal bis hierhin.

Gruß Yheeky

[neolithos]

Übrigens das gibt es bei Borland sein Turbo Vision

Bsp:

Delphi-Quellcode:

var f : TFileStream;
    d : TData;

  f := TFileStream.Create('c:\text.dat', fmCreate);
  try
    f.Write(d, SizeOf(d));
  finally
    f.Free;
  end;

ODER in OOP:

Delphi-Quellcode:

  TData = class (???)
  public
    constructor Load(stm : TStream); virtual;
    procedure Store(stm : TStream); virtual;
      // hiertrinn seht stm.Write
  end;

  TDataAbl = class (TData)
  public
    constructor Load(stm : TStream); override;
    procedure Store(stm : TStream); override;
      // hiertrinn seht 
      //    inherited; für vorgänger
      //    stm.Write
  end;

var oData : TData;

procedure SaveToFile
var f : TFileStream;
 
  f := TFileStream.Create('c:\text.dat', fmCreate);
  try
    oData.Write(d, SizeOf(d));
  finally
    f.Free;
  end;

procedure SaveToWasWesIch  -> schreiben übers netz, Speicher oder in eine DB 
var f : TStream;
 
  f := T???.Create('c:\text.dat', fmCreate);
  try
    oData.Write(d, SizeOf(d));
  finally
    f.Free;
  end;

Das ist nur ein anriss. Via solcher Konstruktionen kann man daten effectiv Bunkern. Vorallem mittels Version und Signatur-Informationen.
-> Es wird alles Binär betrachtet.

[Yheeky]

Cool, danke!