Flexibles Pluginsystem: Diskussion

[gsh]

@DGL-luke: Ich wollt des gerade in mein TestPlugin einfügen doch leider kann ich die Funktion AnsiIndexStrings nicht finden. Naja daraus schliesse ich des du sie selber geschrieben hast. Ich bin nur etwas ratlos wie ich die Funktion am besten schreibe vorallem wegen dem zweiten Parameter


//edit: Habs geschafft:

Delphi-Quellcode:

function AnsiIndexStrings(Befehl : String; StringArray : array of String) : integer;
begin
  for result := 0 to Length(StringArray) - 1 do
  begin
    if Befehl = StringArray[result] then exit;
  end;
  Result := -1;   
end;

procedure PluginMain(Befehl : PChar; Parameter : Pointer); stdcall;
begin
  case AnsiIndexStrings(Befehl,['PluginInit', 'PluginStart', 'PluginStop', 'PluginFree']) of
    0://PluginInit
    begin
      PluginSend := TPluginRecord_PluginInit(Parameter^).PluginSend;
    end;
    1://PluginStart
    begin
    end;
    2://PluginStop
    begin
    end;
    3://PluginFree
    begin
    end;
  end;
end;

Kann man des noch irgendwie optimieren?