Advertisement
Advertisement
| 05.07.2008 at 06:08AM PDT, ID: 23382581 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: |
procedure Validieren2;
var
Dokument: TXMLDocument;
begin
Dokument := TXMLDocument.Create(Self);
try
with Dokument do begin
ParseOptions := [poValidateOnParse];
LoadFromFile(FileName);
end;
finally
FreeAndNil(Dokument);
end;
end;
|