Dateien Vereinen

[Nuclear-Ping]

Du willst eine Datei splitten?

• Dateigröße ermitteln (FileOpen, FileSeek)
• Anzahl der Teile = Ceil(Dateigröße / Splitgröße)
• Schleife von 0 bis Teile - 1 (for ...)
  • Speicher reservieren (Array of Byte (SetLength) oder PChar / Pointer (GetMem))
  • Puffer auslesen (FileRead)
  • Splitdatei öffnen (FileCreate, Dateiname zB 'Split.' + inttostr (Schleifenzähler))
  • Puffer schreiben (FileWrite)
  • Splitdatei schließen (FileClose)
  • Speicher freigeben (FreeMem)
• Datei schließen

Beim zusammenfügen zB einfach alle Dateien in einem Verzeichnis in eine Liste holen, angefangen von Split.000 bis Split.N - sozusagen bis es keine mehr gibt, und die mit den Funktionen von oben wieder zusammenfügen.

Was ist denn das Problem? Wenn dir die nötigen Grundlagen im Umgang mit der Delphi-Hilfe, Datentypen und Funktionen fehlen, dann lies doch ein Buch oder Tutorial? Man muss doch aus so'ner trivialen Sache nicht schonwieder 'nen 3-Seiten-Thread machen?