AV mit TStringList-Methode Add()

[Mackhack]

Hi,

warum kracht es hier denn mit einer AV in der Files.Add(...) Zeile? Files ist vom Typ TStringList

Delphi-Quellcode:

...
repeat
  if (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> FILE_ATTRIBUTE_DIRECTORY ) then
    if ( IsLanguageFile(aRoot + wfd.cFileName, '<Languages>') ) then
      Files.Add(aRoot + wfd.cFileName);
until FindNextFile(hFile, wfd) = False;
...

[mkinzler]

Ist schon eine Instanz der Stringliste erzeugt?

[Mordilion]

Wie mein vorschreiber schon erwähnte, wäre es gut zu wissen ob du eine Instanz erzeugst.

Wenn nicht hilft das vielleciht weiter? ;)

Delphi-Quellcode:

  // Dann erzeugen wir mal die Instanz
  Files := TStringList.Create;
  try
    {...}
    repeat
      if (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> FILE_ATTRIBUTE_DIRECTORY ) then
        if ( IsLanguageFile(aRoot + wfd.cFileName, '<Languages>') ) then
          Files.Add(aRoot + wfd.cFileName);
    until FindNextFile(hFile, wfd) = False; 
    {...}
  finally
    // Wenn man was erzeugt, muss es auch weider freigegeben werden!
    // Aber erst nachdem man die Daten verarbeitet hat, da sie sonst weg sind!
    Files.Free
  end;

Gruß
Mordi

[Mackhack]

Hab vergessen ne Instanz zu erzeugen.

Danke euch!

[Mackhack]

Hab nochmal ne Frage dazu hier:

Warum ist denn das Files.Count immer 0 und somit kommt nix im TestMemo an?

Delphi-Quellcode:

var
  I : Integer;
  Files : TStringList;
begin
  Memo1.Clear;
  Files := TStringList.Create;
  FindFile.SearchFiles('c:\', Files, '*.xml', False);
  for I := 0 to Files.Count - 1 do
    Memo1.Lines.Add(Files[I])
end;

[Luckie]

Zitat:

Zitat von Mackhack

Hab nochmal ne Frage dazu hier:

Warum ist denn das Files.Count immer 0 und somit kommt nix im TestMemo an?

Delphi-Quellcode:

var
  I : Integer;
  Files : TStringList;
begin
  Memo1.Clear;
  Files := TStringList.Create;
  FindFile.SearchFiles('c:\', Files, '*.xml', False);
  for I := 0 to Files.Count - 1 do
    Memo1.Lines.Add(Files[I])
end;

Weil die Methode SearchFiles von der Klasse FindFiles keine Dateien in die StringListe schreibt? :?

[Mackhack]

Und warum tut sie das nicht?

Geht eigentlich sauber durch den code und erkennt auch die Datei!

[SirThornberry]

warum sie das nicht tut wissen wir nicht wenn du uns die Funktion nicht vollständig postest (das wollte dir Luckie damit sagen, wir können es nicht wissen wenn wir nicht wissen wie dein quelltext aussieht)

[Mackhack]

Zitat:

Zitat von Mordilion

Wie mein vorschreiber schon erwähnte, wäre es gut zu wissen ob du eine Instanz erzeugst.

Wenn nicht hilft das vielleciht weiter? ;)

Delphi-Quellcode:

  // Dann erzeugen wir mal die Instanz
  Files := TStringList.Create;
  try
    {...}
    repeat
      if (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> FILE_ATTRIBUTE_DIRECTORY ) then
        if ( IsLanguageFile(aRoot + wfd.cFileName, '<Languages>') ) then
          Files.Add(aRoot + wfd.cFileName);
    until FindNextFile(hFile, wfd) = False; 
    {...}
  finally
    // Wenn man was erzeugt, muss es auch weider freigegeben werden!
    // Aber erst nachdem man die Daten verarbeitet hat, da sie sonst weg sind!
    Files.Free
  end;

Gruß
Mordi

Es ist das Files.Free das mir die TStringList leer raeumt. Aber wo sonst sollte denn das Files.Free hin wenn nicht an das Ende der Procedure?

Ich habe das ganze jetzt mal in eine Function gepackt mit dem Rueckgabewert TStringList. Jedoch sieht das irgendwie nicht wirklich richtig aus wenns auch funktioniert.

Delphi-Quellcode:

var
  I: Integer;
begin
  for I := 0 to FindFile.SearchFiles('c:\', '*.xml', False).Count - 1 do
    Memo1.Lines.Add(FindFile.SearchFiles('c:\', '*.xml', False)[I])
end;

[Christian Seehase]

Moin Mackhack,

wenn Du die Stringlist als Parameter an die Routine übergibst, die die Liste füllen soll, dann muss sie schon vor der Übergabe erzeug t worden sein.
Die aufgerufene Routine schreibt dann nur noch ihre Daten da rein, erzeugt sie nicht, und gibt sie nicht frei.
(in der Hoffnung Dein Problem richtig verstanden zu haben)