- //[...]
- Interface
- type tklasse=class
- private
- procedure start_thread;
- procedure io_thread;
- //[...]
- end;
- implementation
- procedure tklasse.start_thread;
- var ThreadID: DWORD; //Thread-ID
- ThreadHandle: THandle; //Rückgabewert von CreateThread
- begin
- ThreadHandle:=CreateThread(nil, 0,
- TFNThreadStartRoutine(@tklasse.io_thread),nil, 0, ThreadID);
- if ThreadHandle<>0 then CloseHandle(ThreadHandle);
- end;
- procedure tklasse.io_thread;
- begin
- //hier wird die Zugriffsverletzung angezeigt
- //hier steht noch alls mögliche
- end;
- //[...]