TMemo als Zwischenspeicher, warum ein Langsames Memo, anstatt einer TStirngList?
Was heißt "doppelt", bzw. welche Zeilen sind doppelt
und sicher, dass sie nicht doch mehrfach in den Dateien drin sind?
Ich seh jetzt auch nichts im Code, was Zeilen vermehren sollte.
Na gut, dass sl_content ständig gelöscht und neu erstellt wird, wäre zu verkrafen, aber für die fehlenden Ressourcenschutzblöcke sollte jemand mindestens ausgepeitscht werden.
Der Selbe Code,
* nur ohne die Arbeit im Memo zu machen,
* mit einem Schutzblock
* und im Debugger kann man sich auch wunderschön ansehn, wie nach und nach sl_allcontent voller wird und was jederzeit sich darin befindet.
Delphi-Quellcode:
procedure TfDatevBuchungsstapelimport.ReadDatevCSV;
...
begin
Screen.Cursor := crHourGlass;
sl_files := TStringList.Create;
sl_newcontent := TStringList.Create;
sl_allcontent := TStringList.Create; // Ja 3x ... bei diesem Create kann es eigentlich nie knallen und wenn, dann ist eh alles zu spät (OutOfMemory, BufferOverun usw.)
try
GetFilesInDirectory(sDir, '*.txt', sl_files, False);
for I := 0 to sl_files.Count - 1 do begin
sl_content.LoadFromFile(sDir + sl_files[i]);
if I > 0 then
sl_content.Delete(0); // den Header aus der Exportdatei wollen wir nur einmal haben...
sl_allcontent.AddStrings(sl_content);
end;
if sl_allcontent.Count <> 0 then begin
sl_allcontent.SaveToFile(sDir + '_Buchungen.csv');
sl_allcontent.SaveToFile(sDir + 'Buchungen.csv');
end;
memo_datev.Visible := False;
memo_datev.Text := sl_allcontent.Text; // kein AddStrings, da TMemo im Einzelzeilenzugriff arschlahm ist
finally
sl_files.Free;
sl_newcontent.Free;
sl_allcontent.Free;
Screen.Cursor := crDefault;
end;
end;