Memory leak durch funktion readln

[Mavarik]

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

[baumina]

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

[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.

[danieldelphi]

Zitat von Mavarik:

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

nein hab ich nicht, was tut das?

[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.

[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

[mm1256]

Zitat von danieldelphi:

Zitat von Mavarik:

Zitat von danieldelphi:

das ist delphi 6.

hmm cool

Unter Delphi 6 ist ein String immer ein Shortstring... Oder verwechsele ich da gerade etwas? Ist zu lange her...

Bist Du sicher, das Deine Zeilen in den Textdateien kürzer als 255 Zeichen sind?

Mavarik

ich bin mir nicht sicher, bzw ich weiß, dass die zeieln teilweise über 300 zeichen haben, aber zeile ist bei mir auch ein char array mit 500 zeichen den ich dann in der procedure in einen string umwandel, siehst du da ein problem dass ich nicht sehe?

Und warum liest du nicht gleich einen String ein? Ich denke, hier (in der Umwandlung) liegt dein (Speicher-)Problem

[p80286]

Irgendwann hab ich aufgegeben mich durch dieses Dateichaos zu wühlen.
Den Sourcen würde eine logische überarbeitung und vor allem Auftrennung ganz gut tun.
wenn das Einlesen/Schreiben der Strings nicht so richtig fluppt, wie wäre es textbuf zu nutzen? so zwischen 8k und 16k puffergroße ist man ganz gut unterwegs.

Ein if string[0]='''' ist nicht soo dolle weil man in diesem Falle (bei shortstrings) nachfragt ob der String 39 Zeichen lang ist.

Gruß
K-H

@Mavarik
warum auch immer, aber seit D7 ist das read über ein filestream schneller als ein blockread.

[Mavarik]

Zitat von p80286:

@Mavarik
warum auch immer, aber seit D7 ist das read über ein filestream schneller als ein blockread.

Nöö... Debug dich mal durch... Der FileStream hat 3 Calls mehr bevor er genau in die selbe Routine springt wie der Blockread.

Mavarik

[danieldelphi]

Zitat von mm1256:

Zitat von danieldelphi:

Zitat von Mavarik:

Zitat von danieldelphi:

das ist delphi 6.

hmm cool

Unter Delphi 6 ist ein String immer ein Shortstring... Oder verwechsele ich da gerade etwas? Ist zu lange her...

Bist Du sicher, das Deine Zeilen in den Textdateien kürzer als 255 Zeichen sind?

Mavarik

ich bin mir nicht sicher, bzw ich weiß, dass die zeieln teilweise über 300 zeichen haben, aber zeile ist bei mir auch ein char array mit 500 zeichen den ich dann in der procedure in einen string umwandel, siehst du da ein problem dass ich nicht sehe?

Und warum liest du nicht gleich einen String ein? Ich denke, hier (in der Umwandlung) liegt dein (Speicher-)Problem

warum sollte das einen unterschied machen? ja gut ich versuch es mal.