Einzelnen Beitrag anzeigen

Jackie1983

Registriert seit: 12. Mär 2007
486 Beiträge
 
#9

Re: DLL Problem bei IntToStr und Uppercase

  Alt 27. Jan 2009, 14:19
das ist jetzt meine ganze dll

Delphi-Quellcode:
library Script;

uses
  ShareMem ,SysUtils,
  Classes, JvInterpreter, Tools_Scripte;

Procedure ScriptData(st : TScriptThread; pIdentifier: PChar; var Value: Variant; Args: TJvInterpreterArgs; var Done: Boolean); stdcall;
var
  lCommands : TStringlist;
  Identifier : string;
begin
  Identifier := String(pIdentifier);
  //...
  Identifier := lowercase(Identifier);
  lCommands.Text := lowercase(lCommands.Text);
  done := not( lCommands.IndexOf(Identifier) = -1);

  if Identifier = 'sleepthen sleep(Args.values[0]);
  if Identifier = 'strtointthen value := StrToInt(Args.values[0]);
  if Identifier = 'uppercasethen Value := Uppercase(Args.Values[0]);
  if Identifier = 'konsolethen st.OutKonsoleP(Args.Values[0]);
end;

exports
  ScriptData;

begin
end.
  Mit Zitat antworten Zitat