Ich habe mir (hoffentlich) die letzte aktuelle Version von BTREE-FILER aus dem www geholt ausgepackt und versucht zu kompilieren.
Allerdings erhalte ich leider folgende Fehlermeldung aus der Datei: TPCMD.PAS die offensichtlich ein Teil von BTREE-FILER ist.
Dies ist die Zeile die angemeckert wird:
inline($FF/$5E/<KeyPtr); {Call dword ptr [bp+<KeyPtr]}
und dies ist die Fehlermeldung:
TPCMD.PAS(204,11) Fatal: Syntax error, ";" expected but "(" found
die komplette funktion ist folgende:
Code: Alles auswählen
function GetCommand(var KeySet; KeyPtr : Pointer; var ChWord : Word) : Byte;
{-Get next command or character.
Returns NoCmd for no matching command, AlphaCmd for alphabetic character.}
var
LCh : Byte;
Cmd : Byte;
Junk : Word;
BufNext : Word;
Done : Boolean;
CmdBuffer : CmdBuffArray;
function GetKeyWord : Word;
{-Call routine pointed to by KeyPtr}
inline($FF/$5E/<KeyPtr); {Call dword ptr [bp+<KeyPtr]}
begin
BufNext := 0;
Cmd := NoCmd;
Done := False;
repeat
{Get the next keystroke}
ChWord := GetKeyWord;
LCh := Lo(ChWord);
if LCh = 0 then begin
{Extended keystroke}
CmdBuffer[BufNext] := 0;
Inc(BufNext);
LCh := Hi(ChWord);
end
else if (BufNext > 0) and MapWordStar then
{Map WordStar keystrokes}
LCh := WordStarCommand(LCh);
CmdBuffer[BufNext] := LCh;
Inc(BufNext);
{Map to a command}
case ScanCommands(@KeySet, CmdBuffer, BufNext, Cmd, Junk) of
FullMatch : Done := True;
NoMatch :
begin
{Return alphanumeric character if it isn't a command}
if (BufNext = 1) and (Char(LCh) >= ' ') and (Char(LCh) <> #127) then
Cmd := AlphaCmd;
Done := True;
end;
end;
until Done;
GetCommand := Cmd;
end;
Crunchbang Linux Waldorf AMD64 Umgebung.
Kann mir (hoffentlich) jemand weiterhelfen? Ich würde gern BTREE-FILER einsetzen.
Gruß
PurpleOrple
Verein
Links
Suche