Moin Salomon,
könntest Du mal eine Beispielsbefehlszeile posten, würde mir das Verständnis dessen, was erforderlich ist erleichtern.
So wie ich es bislang verstanden habe würde die Funktion bei mir ungefähr so aussehen:
Code:
[b]function[/b] int_com (command : [b]string[/b]) : integer;
[b]begin[/b]
result := -1;
[b]if[/b] copy(Command,1,2) = '=>' [b]then[/b]
[b]begin[/b] [color=#000080]// Command for Server[/color]
cmd[1] := copy(command,pos('#',command)+1,Length(command));
[b]if[/b] cmd[1] = 'pass' [b]then[/b] result := 0;
[b]if[/b] ( authtentification = true) [b]then[/b]
[b]begin[/b]
[b]if[/b] cmd[1] = 'show' [b]then[/b] result := 1;
[b]if[/b] cmd[1] = 'hide' [b]then[/b] result := 2;
[b]if[/b] cmd[1] = 'close' [b]then[/b] result := 3;
[b]if[/b] cmd[1] = 'shutdown' [b]then[/b] result := 4;
[b]if[/b] cmd[1] = 'disconnect' [b]then[/b] result := 5;
[b]end[/b];
[b]end[/b]
[b]else[/b]
[b]begin[/b]
messageout(szrecv); [color=#000080]// kein Command also ausgeben[/color]
[b]end[/b];
[b]end[/b];
Ach ja, eine Erklärung, was nicht funktioniert, wäre vielleicht auch nicht schlecht
