1:
2:
3:
4:
5:
6:
7:
8:

...
Messort: 00041015
Messdatum: 11.12.2010
Messbeginn: 11:25
Messende: 11:33
Messwert: 15,1 mg
Messdaten: ...ab hier 1440 Byte-Werte...
...					

1:
2:
3:
4:
5:
6:
7:
8:

type
  TRec = packed record
    XNummer   : string[14];    // = "GERÄTENUMMER: "
    DatNummer : string[4];     // = "7684"
    XMessung  : string[17];    // = "GERÄTEMESSUNG #: "
    DatMessung: string[9];     // = "1425     ";
    ...
  end;					

1:

FileStream.Read(Rec, SizeOf(Rec));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

type
  TByteArray = array of Byte;

  TSensorReading = class(TOBject)
  private
    FLines: TStringList;
    FBinData: TByteArray;
  public
    constructor Create;
    destructor Destroy; override;
    property Lines: TStringList read FLines;
    property BinData: TByteArray read FBinData;
    procedure ReadFromStream(AStream: TStream);
    procedure ReadFromFile(const AFilename: String);
  end;

implementation

procedure TSensorReading.ReadFromStream(AStream: TStream);
  var
    Data, Line: AnsiString;

  function CutLine: AnsiString;
  begin
    Result := '';
      while (Data <> '') and NOT (Data[1] in [#10,#13]) do begin
        Result := Result +Data[1];
        Delete(Data,1,1);
      end;
    while (Data <> '') and (Data[1] in [#10,#13]) do
      Delete(Data,1,1);
  end;

begin
  FLines.Clear;
  FBinData := NIL;
  SetLength(Data, AStream.Size); // Platz machen
  if (AStream.Read(PAnsiChar(Data)^, Length(Data)) = Length(Data)) then begin // alle Daten geladen?
    while (Data <> '') do begin // bis alle Daten verarbeitet sind
      Line := CutLine;
      if (Line <> '') then begin // keine Leerzeilen
        if (Line = ':::DATA BEGIN:::') then begin // Text-Terminator, Rest binär?
          SetLength(FBinData, Length(Data)); // Platz machen
          System.Move(PAnsiChar(Data)^, FBinData[0], Length(Data)); // Daten kopieren
          Data := ''; // alles verarbeitet
        end
        else // sonst Textzeile in die Liste
          FLines.Add(Line);
      end;
    end;
  end
  else
    raise Exception.Create('Fehler beim Lesen der Daten!');
end;