home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 May / Chip_2003-05_cd1.bin / servis / rkedit / rkEdit.exe / Develop / xml.dpr < prev   
Encoding:
Text File  |  2002-10-30  |  1.9 KB  |  66 lines
  1. //---------------------------------------------------------------------------
  2. //
  3. // This source code of DLL can be compiled by Borland Delphi Compiler
  4. //
  5. //   (c) 1991, 2001 Slßvek Rydval, slavek@rydval.cz
  6. //                             http://www.rydval.cz
  7. //                             http://www.rydval.cz/rkEdit
  8. //
  9. // This is example how to create own dll for rkEdit compiler log parser.
  10. // For more details see documentation.
  11. //
  12.  
  13. library xml;
  14. {$R *.res}
  15. uses
  16.   ShareMem,
  17.   SysUtils,
  18.   Classes,
  19.   LogAnalyzatorsTypes in 'LogAnalyzatorsTypes.pas';
  20.  
  21. //-----------------------------------------------------------------------------
  22. //                                                             GetCapability
  23. //-----------------------------------------------------------------------------
  24. function GetCapability: TrkEditCapability; stdcall;
  25. begin {GetCapability}
  26.   Result.Version := CurrentVersion;
  27.   Result.SupportedFunctionType := spStringList;
  28. end; {GetCapability}
  29. //-----------------------------------------------------------------------------
  30. //                                                         GetXYOfFirstError
  31. //-----------------------------------------------------------------------------
  32. function GetXYOfFirstError (const LogString: TStrings; var ErrX, ErrY, LogX,
  33.                             LogY: integer): integer; stdcall;
  34. var
  35.   S: string;
  36. begin {GetXYOfFirstError}
  37.   //Error code is on line 1 and 2
  38.   if LogString.Count < 2 then
  39.   begin
  40.     Result := -1;
  41.     ErrX   := -1;
  42.     ErrY   := -1;
  43.     exit;
  44.   end;
  45.  
  46.   s := LogString [0];
  47.   s := copy (s, LastDelimiter (' ', s)+1, length (s));
  48.   ErrY := StrToIntDef (s, -1);
  49.  
  50.   s := LogString [1];
  51.   s := copy (s, LastDelimiter (' ', s)+1, length (s));
  52.   ErrX := StrToIntDef (s, -1);
  53.  
  54.   LogX := 1;
  55.   LogY := 1;
  56.  
  57.   Result := 0;
  58. end; {GetXYOfFirstError}
  59.  
  60. exports
  61.   GetCapability,
  62.   GetXYOfFirstError;
  63.  
  64. begin
  65. end.
  66.