1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

var
  dateigross, datei101, datei102, datei104: textfile;
  zeile,anfang :string;

begin
  if opendialog1.Execute=True then begin
    assignfile(dateigross,opendialog1.FileName);
    assignfile(datei101,'d101.txt');
    assignfile(datei102,'d102.txt');
    assignfile(datei104,'d104.txt');

    rewrite(datei101);
    rewrite(datei102);
    rewrite(datei104);
    reset(dateigross);

    while not eof(dateigross) do begin
      if not eof(dateigross) then readln(dateigross,zeile);

      anfang := copy(zeile,1,3);
      if anfang = '101' then begin
        append(datei101);
        writeln(datei101,zeile);
      end;
      if anfang = '102' then begin
        append(datei102);
        writeln(datei102,zeile);
      end;
      if anfang = '104' then begin
        append(datei104);
        writeln(datei104,zeile);
      end;


    end;

    closefile(datei101);
    closefile(datei102);
    closefile(datei104);
    closefile(dateigross);
    showmessage('Ihre Datei wurde erfolgreich aufgeteilt.');
  end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Buf: array[0..4096 - 1] of Byte; // Memory Page = 4 KB
  f: TextFile;
begin
  AssignFile(f, 'xyz');
  SetTextBuf(f, Buf, SizeOf(Buf)); // <-- eigenen Puffer einsetzen

  Rewrite(f); // Reset(f);
 // ...
  CloseFile(f);  
end;