Listenindexüberlauf bei Stringarray

[brandtson]

Hallo an Alle!

Habe hier ein echt dickes Problem, also für mich. Ich fülle mit einem Opendialog einen Stringarray um diesen Später in eine ActiveX-Komponente einzubinden. Den Stringarray setze ich mittels einer Variable, die ich mit opendialog1.files.count belege. Führe ich das Prog jetzt aus, öffne ich zuerst ca. 2000 Dateien, von denen ich aber nur den Pfad in den Stringarray einlese. Nach einer gewissen Ladezeit, bekomme ich dann eine Nchricht, das eine der Dateien nicht gefunden worden ist! Dann wird der Ladevorgang einfach abgebrochen. Nachdem ich zu Testzwecken meinen Array mit der tatsächlichen Menge der Bilder gesetzt hatte, bekam ich die Exception Listenindex(1140) überschritten, obwohl der Array die Länge von 3000 hatte.

Der Code:

Delphi-Quellcode:

count:= opendialog1.files.count;
setlength(temp_bildarray,count);
for i:= 0 to count-1 do
begin
  filename:=opendialog1.files.strings[i];
  temp_bildarray:=filename;
end;

Kann opendialog nur maximal 1140 Dateien öffnen? Bei der Überprüfung hatte count nach dem Abbruch bei jedem Versuch 1140!

Ich bin mit meinem Latein am Ende.

gruß Brandtson

[Christian Seehase]

Moin Brandtson,

eventuell genügt der Buffer für die Dateinamen nicht.
Such' hier doch mal nach GetOpenFilename.
Da müsstest Du einige Beispiele finden, wie Du den Dialog per API benutzen kannst, also ohne Kapselung durch die VCL.