Zitat von
nahpets:
Hallo,
das Loch muss nicht von Dir sein.
Ist es auch noch vorhanden, wenn Du mal diesen Bereich auskommentierst:
Delphi-Quellcode:
if (SameText(loc_dummy, loc_sr.Name)) then begin
Writeln('Found file: ' + loc_sr.Name);
end;
Ist es auch noch vorhanden, wenn Du die Suche mal komplett auskommentierst?
Das Speicherloch ist auch dann noch da, wenn ich diesen Block auskommentiere o_O
Es reicht das FindFirst, um das Leak zu bekommen.
Zitat von
sirius:
Ich würde sagen in TSearchrec ist noch eine Referenz auf den String.
Schieb den Code mal in eine Procedure!
Sirius, danke dir... das hat geholfen. Jetzt steht der Code in einer eigenen Prozedur und das Speicherloch ist weg o_O