Hallo,
so ist es aktuell...aber wohl Bockmist..
Delphi-Quellcode:
type
TCatForm = class(TForm)
od1: TOpenDialog;
GB1: TGroupBox;
sb1: TScrollBar;
E_SB: TEdit;
BT_LoadCat: TButton;
Label1: TLabel;
E_Start: TEdit;
public
Form: TCatForm;
Rawfile:array[0..10000000] of byte;
f:File;
CAT:array[0..32767] of TCadpage;
PImage:array[1..31] of TImage;
Startindex:Word;
procedure FormCreate(Sender: TObject);
procedure BT_LoadCatClick(Sender: TObject);
procedure sb1Change(Sender: TObject);