Die Methodendeklaration unterscheidet sich von der Implementation:
Delphi-Quellcode:
function GetTok(str: string; Tok: string; sep: char): string;
implementation
function GetTok(str: string; Tok: integer; sep: char): string;
Einfach anpassen und der Compiler ist glücklich...
Delphi-Quellcode:
function GetTok(str: string; Tok: integer; sep: char): string;
implementation
function GetTok(str: string; Tok: integer; sep: char): string;