blob: ccb0bcfd68c43570526ac3ba5c162f376ca76c9e (
plain)
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
|
{ Old file: tbs0308a.pp }
{ problem with objects that don't have VMT nor variable fields OK 0.99.13 (FK) }
unit ub0265;
interface
type
tcourses = object
function index(cName: string): integer;
function name(cIndex: integer): string;
end;
var coursedb: tcourses;
l: longint;
implementation
function tcourses.index(cName: string): integer;
begin
index := byte(cName[0]);
end;
function tcourses.name(cIndex: integer): string;
begin
name := char(byte(cIndex));
end;
end.
|
