Memory leak durch funktion readln

[danieldelphi]

Zitat von mm1256:

Speichermäßig ist das doch am einfachsten mit zeilenweiser String-Bearbeitung, oder?

Delphi-Quellcode:

procedure Die_Schleife_Stirbt_Nicht(Von,Nach: string);
var
  T1, T2: TextFile;
  Zeile: string;
begin
  AssignFile(T1,Von); // bzw. Assign(T1,Von); in D6
  Reset(t1);
  AssignFile(T2,Nach);
  Rewrite(T2);
  while not EOF(T1) do begin
    ReadLn(T1,Zeile);
    // Zeileninhalt bearbeiten
    WriteLn(T2,Zeile);
  end;
  CloseFile(T1); // bzw. Close(T1) in D6
  CloseFile(T2);
end;

gebnau das ist ja der ausgangspunkt, so ist am ende der arbeitsspeicher mit der einzulesesnden datei gefüllt.

[mm1256]

Zitat von danieldelphi:

gebnau das ist ja der ausgangspunkt, so ist am ende der arbeitsspeicher mit der einzulesesnden datei gefüllt.

Aber genauso mach ich das schon jahrelang mit großen Textdateien ohne Probleme. Schau dir deinen Code genauer an, da musst du ein Problem haben.

Was soll z.B. das...wenn angenommen "Zeile" eine Stringvariable ist:

Delphi-Quellcode:

//BG2010: Wenn Zeile mit Hochkomma beginnt, dann Einlesevorgang abbrechen...
      if zeile[0] = '''' then break;

[Mavarik]

Hast Du das mal mit {$R+,O+} compiliert?

[danieldelphi]

Zitat von Mavarik:

Hast Du das mal mit {$R+,O+} compiliert?

nein hab ich nicht, was tut das?

[danieldelphi]

Zitat von Mavarik:

Hast Du das mal mit {$R+,O+} compiliert?

hat nichts gebracht

[baumina]

Vielleicht hilft ja auch das hier weiter SJ MMF File Reader - Schneller Textdatei Reader

[danieldelphi]

Zitat von baumina:

Vielleicht hilft ja auch das hier weiter SJ MMF File Reader - Schneller Textdatei Reader

danke das versuch ich mal, aber ich glaub dass das nicht ganz dem entspricht was ich brauche.

[danieldelphi]

sterb.pas

deklara.pas

sterbof.pas

Zitat von mm1256:

Zitat von danieldelphi:

gebnau das ist ja der ausgangspunkt, so ist am ende der arbeitsspeicher mit der einzulesesnden datei gefüllt.

Aber genauso mach ich das schon jahrelang mit großen Textdateien ohne Probleme. Schau dir deinen Code genauer an, da musst du ein Problem haben.

Was soll z.B. das...wenn angenommen "Zeile" eine Stringvariable ist:

Delphi-Quellcode:

//BG2010: Wenn Zeile mit Hochkomma beginnt, dann Einlesevorgang abbrechen...
      if zeile[0] = '''' then break;

naja das ist einfach dafür da, dass abgebrochen wird, wenn eine leere zeile dabei ist. also ich habe den code soweit runter gbrochen wie es geht, also oben mal als anhang und der arbeitsspeicher wächst.

[Mavarik]

Zitat von danieldelphi:

Delphi-Quellcode:

//BG2010: Wenn Zeile mit Hochkomma beginnt, dann Einlesevorgang abbrechen...
      if zeile[0] = '''' then break;

Also Zeile[0] ist, wenn Du nicht gerade auf iOS oder Andoid bist das Längenbyte!

und R+ O+ kannst Du auch unter Compiler einstellen...
Bereichsüberprüfung und Überlauf...

Mavarik