帕斯卡 - 回复：用途

Question

我有以下程序，它几乎可以工作，但当我尝试编译时产生以下错误，我不知道如何修复它！ 有任何想法吗？

表单，'mainform.pas' 中的 mainform...

“unit1.pas(9): , 或 ; 预期但找到 'IN'； “project1 无法编译unit1.pas

    unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Dialogs, LibXmlParser, LibXmlComps, StdCtrls,
  Forms,
  mainform in 'mainform.pas'
  mapimail in 'mapimail.pas';

type
  TXMLRule = Record
    alert, desc, act:string;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    EasyXmlScanner1: TEasyXmlScanner;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Parser : TXmlParser;
  MyXMLRules:Array[1..10] of TXMLRule;
  i         :1..10;

implementation
{$R *.dfm}

procedure ProcessXML();

begin
  Parser := TXmlParser.Create;
  Parser.Normalize := TRUE;
  Parser.LoadFromFile ('c:\parser.xml');
  Parser.StartScan;

  while Parser.Scan do
    case Parser.CurPartType of
     ptStartTag,
     ptEmptyTag :
      begin

      end;

    ptContent  :
      begin
        if Parser.CurName = ('<alert>') then MyXMLRules[1].alert := Parser.CurContent;
        if Parser.CurName = ('<desc>') then MyXMLRules[1].desc := Parser.CurContent;
        if Parser.CurName = ('<action>') then MyXMLRules[1].act := Parser.Curcontent;
      end;
    end;
  Parser.Free;
end;

procedure EmailAlert();
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;

procedure NoiseAlert();
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f:textFile;
data:string;
begin
   ProcessXML();

    AssignFile(f, 'c:\nmap.txt');
    reset(f);
    repeat
      readln(f, data);
      if (pos(MyXMLRules[1].alert, data)) <> 0 then

        begin
           if MyXMLRules[1].act
           = ('Email') then
                      begin
                        EmailAlert
                      end;
           if MyXMLRules[1].act
           = ('Beep') then
                      begin
                        NoiseAlert
                      end;
        end;
      until EOF(f);
end;

end.

Answer 1

您在第 9 行（带有“mainform in 'mainform.pas'”的行）末尾缺少一个逗号。

Answer 2

根据Delphi Basics，“in”仅适用于程序和图书馆而不是单位。

Answer 3

您正在混合单元代码和项目代码。

在 Delphi（和 freepascal）中，项目文件 (.dpr) 允许您通过指定操作系统文件来包含自定义源文件（通常是您的单元）。 这用于通知编译器不要寻找预编译单元。

project MyApp;

uses
  forms,
  unit1 in 'unit1.pas';

正如您所提供的，作为一个单位，您不能这样做。

删除 IN 和带引号的字符串，只要清除代码中的其余错误就应该没问题。