Packed Record schnell in Datei speichern

[Nalincah]

Die Daten werden von einer Fremdfirma ausgewertet die das so Vorgeben und wenn da die länge drin ist wird die datei größer als vorgegeben und sind somit unbrauchbar. ich darf aufjeden fall die langen nicht mitspeichern

[Giantics]

Wenn das so ist, dann musst du es entweder so machen wie du ganz oben geschriebn hast, oder das Record umstrukturieren:
Von:

Delphi-Quellcode:

  Verwaltungsdatei_Header = packed record
    aDatentraeger_Nummer: string[3];        // 1
    xFuellzeichen1: string[3];           // 4
    aBeraternummer: string[7];           // 7
    aBeratername: string[9];           // 14
    xRestart_Kennzeichen: Char;           // 23
    nAnzahl_Datendateien: string[5];        // 24
    nLetzte_Datendateinummer: string[5];    // 29
    xFuellzeichen2: string[95];              // 34
  end;

nach:

Delphi-Quellcode:

  Verwaltungsdatei_Header = packed record
    aDatentraeger_Nummer: array[0..2] of char; // oder: array[1..3] of char       // 1
...

Dann gehts auch wieder mit einem Rutsch