blob: fc8e5923b9256d9dafa874478994cada2ccfa6d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{$mode objfpc}
{$h+}
program checkxml;
uses sysutils, dom, xmlread;
Var
XML : TXMLDocument;
I : Integer;
begin
if ParamCount=0 then
Writeln('Usage : ',ExtractFilePath(paramstr(0)),' file1...FileN')
else
begin
for I:=1 to ParamCount do
begin
Write('Reading ',Paramstr(i),' : ');
try
ReadXMLFile(XML,ParamStr(i));
FreeAndNil(XML);
Writeln('OK.');
except
On E : Exception do
Writeln('Found error :',E.Message);
end;
end;
end;
end.
|
