- type
- MS3DHeader = record
- ID: Array[1..10] of Char;
- version: Integer;
- end;
- //So steht das ja auch schon in der C++ Datei
- Datei := TFileStream.Create(FileName, fmOpenRead);
- Datei.ReadBuffer(Header, SizeOf(MS3DHeader));
- If (Header.ID <> 'MS3D000000') or (Header.version < 3) then
- begin
- Showmessage('Keine gültige Milkshape 3D Datei.');
- exit;
- end;
- Showmessage(Header.ID);
- Showmessage(IntToStr(Header.version));