C/C++, Pascal Code zum Lesen/Schreiben folgen

(c) Rolf Peter Kolpack & Rainer Moor

Beispiellisting zum Einlesen einer LTF Datei in Pascal:

{---------------------------------------------------------}
Procedure Lese_Dateikopf;
Begin
  Lese_16_Byte_aus_File_oder_Array;
end;
{---------------------------------------------------------}
Procedure Lese_Datei;
Begin
  Repeat
    TagId = Lese_Byte_aus_File_oder_Array;
    TagLen = Lese_Byte_aus_File_oder_Array;
    if=255 Taglen:=Lese_Longint_aus_File_oder_Array;         (DWord  in Delphi)
    Case Tagid of
       TagColorTable  :Lese_und_Setze_Farbpalette;           {1}
       TagHersteller  :Lese_Herstellerdaten;                 {2}
       TagImageName:  :Lese_Frame_Name;                      {3}
       TagSetPPS      :Lese_und_Setze_PPS;                   {4}
       TagImage1      :Lese_und_Schicke_Framedaten_an_Laser; {10}
     Else Tag_unbekannt_einlesen_und_ignorieren
    end;
  until Tagid=TagEnd;                                        {0=Ende}
{---------------------------------------------------------}
Begin                                                        {Programstart}
  Lese_Dateikopf;
  Lese_Datei;
end.
{------------------------ Ende Pascal---------------------}