XML datei in DBGrid auslesen

[marabu]

Hallo eimo,

vielleicht wird die Datei wirklich nicht gefunden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  dir, fnXML, dnXSLT: String;
begin
  GetDir(0, dir);
  dir := IncludeTrailingPathDelimiter(dir);
  fnXML := 'Auftrag3.xml';
  fnXSLT := 'ToDb.xtr';
  if not FileExists(dir + fnXML) then
    ShowMessage(Format('Datei "%s%s" nicht gefunden', [dir, fnXML])) else
  if not FileExists(dir + fnXSLT) then
    ShowMessage(Format('Datei "%s%s" nicht gefunden', [dir, fnXSLT])) else
  begin
    XMLTransform1.SourceXMLFile := fnXML;
    XMLTransform1.TransformationFile := fnXSLT;
    ClientDataSet1.XMLData := XMLTransform1.Data;
    ClientDataSet1.Active := True;
  end;
end;

Neujahrsgrüße vom marabu