TXMLDocument.LoadFromFile() spinnt

[k4ni]

Hallo,

Ich habe hier diese function die alle .xml dateien von einem ordner öffnet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Path: string;
begin
Path := 'C:/xmls/';
  if FindFirst(Path + '*.xml', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        xml.LoadFromFile(path+SR.name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Habs auch so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Path: string;
  filenames: TStringList;
  i: integer;
begin
filenames := TStringList.Create;
Path := 'C:/xmls/';
  if FindFirst(Path + '*.xml', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        filenames.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
for i:=0 to filenames.Count do
  xml.LoadFromFile(path+filenames[i]);
end;

Bekomm immer Zugriff verweigert error -.-
Aber wenn ich immer die gleiche datei öffne wie z.B. 0.xml geht's perfect...Was garkeinen sinn macht..

Woran liegt das?

[Mackhack]

Zitat:

Zitat von k4ni

Hallo,

Delphi-Quellcode:

filenames := TStringList.Create;
Path := 'C:/xmls';

Koennte es am Slash anstatt Backslash liegen? Und zwar in beiden Codeteilen!

[Sidewinder]

Zitat:

Koennte es am Slash anstatt Backslash liegen? Und zwar in beiden Codeteilen!

sollte wohl eine internetadresse werden.... :lol:

[k4ni]

Du hattest recht!
Komisch, wenn ich immer Path+'0.xml' gemacht hab gings ohne probleme, aber path+SR.name nicht ...

Vielen dank!