Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
27. Nov 2005
Was Du machen könntest, ist Folgendes:
Procedure ProcessFile (aFile : String);
Var
fIn, fOut : TFileStream;
Begin
fIn := TFileStream.Create (aFile, fmOpenRead);
Try
fOut := TFileStream.Create (ExtraceFilePath (aFile)+'Temp.$$$', fmCreate);
Try
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
27. Nov 2005
Nee, is klar. Ich wusste nicht (zu faul, den Thread zu lesen?) das Du massenhaft Dateien verarbeiten musst. Ich mach mir normalerweise die Mühe nicht und verwende TStringList weil das nur 5 Zeilen sind (Create,Load,Modify,Write,Free). Ein wenig kann man noch rausholen, indem man die TStringList.Capacity am Anfang hochsetzt.
Das mit den 30 Sekunden kann bei 40MB ich nicht nachvollziehen....