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?