finalization - hvordan?

øøøh ?

Jeg har lige prøvet det her :

type
  TFiltype = record
    i: Integer;
    r: real;
    a: array[1..10] of Integer;
  end;

  TMinHest = class
  protected
    Minfil: file of tfiltype;
  end;


Det virker fint

Jesn B

Nu skriver du, at recorden ser lidt anerledes ud, og det kan godt være hele humlen.

Hvis du har en String (String ikke String[xx]) så holder den ikke, for records, der bruges til filer skal have en fast defineret længde. En String i Delphi 1 er, som jeg husker det 256 tegn, og i D7 op til 2G afhængig af operativsystem.

Prøv også at flytte erklæringen af a ud af recorden :

type
TMyArray = Array[1..10] of integer
...
...
  TFilType = record
...
...
  a : TMyArray;
...

Hmmm. Nu har jeg plukket de relevante dele ud i et tomt projekt:
(og får fejlen)


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TCommentData = Record
    Decanter    : String;
    Made_By    : String;
    Line1      : String;
    Line2      : String;
    Line3      : String;
    Line4      : String;
  End;

type
  TBeregningsData = Record
    BackDrive          : Integer;
    BowlSpeed          : Real;
    BowlSpeedNr        : Integer;
    Differential_Speed : Real;
    Conveyor_Torque    : Real;
    Liquid_Radius      : Real;
    Feed_Flow          : Real;
    Feed_Density      : Real;
    MEff              : Real;
  End;

  TFilType = Record
    Decanter          : Integer;
    BeregningsData    : TBeregningsData;
    Comment            : TCommentData;
    FilKode            : Array [1..10] of Integer;
  End;


type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    DataFil                                    : File of TFilType;   
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

NÅÅE der er fordi du bruger en string i din Record. Her er så To muligheder engen brug ShortString, grimt og flylder meget eller brug TReader og TWriter.

Jens B

Nu læste jeg lige at du porter fra D1 til D7

En streng i d1 <> en streng i d7 !!!!!

Ok, det var strengene. Det var jeg ikke lige opmærksom på.
Jens, hvis du giver et svar, deler jeg point.

OKI

i D2+ er en D1 streng = ShortString

Men sæt dig ind i TReader og TWriter