Textdateien zusammenfassen - irgedwie falsch

[himitsu]

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;