+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Record

  1. #1
    L'avatar di systemgvp
    systemgvp non è in linea Scribacchino
    Post
    582

    Record

    Salve a tutti,

    per la prima volta mi trovo ad usare i record. Ora il problema nasce dal fatto che ho un software di terze parti fuori produzione, che accetta un file con i record. Attualmente riesco ad inserire nei file un solo tipo di record in questo modo


    type
    TSSAMtraiettorie = record
    Case RecordType : Byte of
    0 : (Endian : Byte;
    Version : real;);
    1 : (Units : Byte;
    Scale : real;
    MinX : integer;
    MinY : integer;
    MaxX : integer;
    MaxY : integer;);
    2 : (Timestep : real;);
    3 : (Time_step : real;
    VehicleID : Byte;
    LinkID : integer;
    LaneID : integer;
    FrontX : real;
    FrontY : real;
    RearX : real;
    RearY : real;
    Length : real;
    Width : real;
    Speed : real;
    Acceleration : real;);

    procedure TForm1.Record_ScritturaClick(Sender: TObject);
    var SSAM_traiettorie : TSSAMtraiettorie;
    FileRecord : File of TSSAMtraiettorie;
    begin
    FormatSettings.DecimalSeparator := '.';

    //imposta il file
    AssignFile(FileRecord,'C:\Users\syste\Desktop\dati.trj');
    Rewrite(FileRecord);
    //imposta i record FORMAT
    with SSAM_traiettorie do
    begin
    RecordType := 0;
    Endian := ord('L');
    Version := 1.04;
    end;
    //scrive i dati
    Write(FileRecord, SSAM_traiettorie);
    //imposta i record DIMENSIONS
    with SSAM_traiettorie do
    begin
    RecordType := 1;
    Units := 1;
    Scale := 1;
    MinX := 130;
    MinY := -44;
    MaxX := 309;
    MaxY := 7;
    end;
    //scrive i dati
    Write(FileRecord, SSAM_traiettorie);


    ma il programma non riesce a leggere i miei record perché sicuramente vuole 4 tipi di record separati e non uno solo. Come potrei fare per salvare nello stesso file 4 tipi di record differenti?
    Embarcadero RAD Studio 10.2.3 Tokyo - con Pascal dal 1992

  2. #2
    L'avatar di systemgvp
    systemgvp non è in linea Scribacchino
    Post
    582
    Mi sa che forse sto interpretando i record che vuole il programmaCattura.PNG
    Embarcadero RAD Studio 10.2.3 Tokyo - con Pascal dal 1992

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi