Memory Leaks beheben

[w4rheart]

Ja, ich weiss es auch nicht.
Ich komme auch nicht mehr weiter, bzw. weiss nicht was ich tun soll...
Wenn das Programm läuft, steigt einfahc die ganze Zeit die Ram Auslastung...
und irgendwann stürzt es dann halt ab...

[DeddyH]

Wozu zum Henker wird denn dieses komische Zeichenkettenobjekt benötigt, wenn es doch nichts Besonderes tut?

[w4rheart]

hier:

Delphi-Quellcode:

procedure Verbindung.ClientSocketRead( Sender: TObject; Socket: TCustomWinSocket );
var
  lNachricht, lEineNachricht: Zeichenkette;
begin
  lNachricht := Socket.receiveText;
  hatTextwerkzeug.setzeTrennung( NTrenner );
  repeat
    lEineNachricht := hatTextwerkzeug.wortAn( lNachricht, 1 ); 
    if
      hatTextwerkzeug.laenge( lEineNachricht ) = hatTextwerkzeug.laenge( lNachricht ) then
      lNachricht := ''
    else

      lNachricht := hatTextwerkzeug.textOhne( lNachricht, 1, hatTextwerkzeug.laenge( lEineNachricht ) + hatTextwerkzeug.laenge( NTrenner ) );
    if lEineNachricht <> '' then
      hatListe.haengeAn( ZeichenketteObjekt.init( lEineNachricht ) ); //HIER
    if zMitProtokoll then
      hatClientKontrollfenster.memo1.lines.add( 'Verbindung liest ' + lEineNachricht );
  until lNachricht = '';
end;

Allerdings kann ich nicht auf gibfrei, free oder sonst was zugreifen.

[Sir Rufo]

Hier handelt es sich wieder um diese verhunzte (mir liegt ja eher vergewaltigte) Unit-Sammlung aus dem Schulunterricht.

Helfen kann man da nur wenig, denn diese Sammlung ist
- nicht wirklich Standard
- teilweise sogar falsch aufgebaut
- verdeutscht mit bisserl englisch
- wahrscheinlich auch noch ansteckend
- und hier im Forum auch nicht bekannt (aus oben genannten Gründen)

nochmal zu hatTextwerkzeug:

Wo wird das wieder freigegeben?

[DeddyH]

ReceiveText gibt einen String zurück. Ich wundere mich eigentlich, dass der Code überhaupt kompiliert wird. Nochmal: wozu diese komische Klasse, wenn man genausogut den Datentyp String verwenden kann?

[Sir Rufo]

Zitat von DeddyH:

ReceiveText gibt einen String zurück. Ich wundere mich eigentlich, dass der Code überhaupt kompiliert wird. Nochmal: wozu diese komische Klasse, wenn man genausogut den Datentyp String verwenden kann?

Da hab ich mich auch erst verhauen.

lNachricht ist vom Typ Zeichenkette und das ist String
ZeichenketteObject ist ein Object

[DeddyH]

Wo liegt eigentlich der Sinn darin, Bezeichner für bereits existierende Datentypen unbedingt eindeutschen zu wollen? Da muss man ja durcheinanderkommen.

[Sir Rufo]

Zitat von DeddyH:

Wo liegt eigentlich der Sinn darin, Bezeichner für bereits existierende Datentypen unbedingt eindeutschen zu wollen? Da muss man ja durcheinanderkommen.

Hatte ich ja schon so eine Vermutung http://www.delphipraxis.net/1068099-post15.html

[DeddyH]

[OT] Man müsste denjenigen, der diese Units verbrochen hat, dazu zwingen, "Jehova" zu sagen [/OT]

[Sir Rufo]

Wenigstens sollte ein CompilerSchalter drin sein:

Delphi-Quellcode:

{$IFDEF Lehrer}
...
{$ELSE}
ShowMessage( 'Merkst du es noch?' );
{$ENDIF}