createn tue ich in einer for schleife:
Delphi-Quellcode:
for n:=0 to s.count-1 do begin
dateiname:=s.strings[n];
tEncrypt := TEncryptionThread.Create(true);
tEncrypt.OnFertig:=ThreadFertig;
tEncrypt.Priority := tpNormal;
tEncrypt.fInFileName := dateiname;
memo1.lines.add('thread:' +dateiname);
tEncrypt.fPassphrase := g_key;
tEncrypt.Resume;
end;
und es werden definitiv auf 12 thread created.
Die execute Prozedure wird aber nur 11 mal aufgerufen. Kann es sein das Resume nur dann execute aufruft wenn min. noch ein weiterer Thread beseteht o.Ä.?
Das ist meine Vermutung anders könnte ich es mir nicht erklären.
Vielleicht habt ihr ja noch eine andere Idee.
danke im Voraus