Memory Leaks beheben

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

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

[w4rheart]

Nun gut
wir halten also fest: Die Units sind vermurkst.
Trotzdem muss man doch den MemoryLeak da raus bekommen können oder?

Zeichnkette Objekt wird hier freigegeben:

Delphi-Quellcode:

procedure Tclientverbindung.ClientSocketRead( Sender: TObject; Socket:
  TCustomWinSocket );
var
  lNachricht: Zeichenkette;
begin
  inherited ClientSocketRead( Sender, Socket );
  while not hatListe.istLeer do begin
    hatListe.zumAnfang;
    lNachricht := ZeichenketteObjekt( hatListe.aktuelles ).inhalt;
    hatListe.entferneAktuelles; //Hier denke ich zumindest
    bearbeiteNachricht( lNachricht );
  end;
end;

entferneAktuelles macht folgendes:

Delphi-Quellcode:

procedure Liste.entferneAktuelles;
var
  lZeiger: Knoten;
begin
  if not ( istDavor or istDahinter ) then begin
    if hatAktuelles = hatAnfang then
      hatAnfang := hatAnfang.nachfolger
    else begin
      hatAktuelles.vorgaenger.setzeNachfolger( hatAktuelles.nachfolger );
      hatAktuelles.nachfolger.setzeVorgaenger( hatAktuelles.vorgaenger );
    end;
    lZeiger := hatAktuelles;
    hatAktuelles := hatAktuelles.nachfolger;
    lZeiger.free; //Hier wird es freigebgen
    dec( zLaenge );
  end
end;

Tut mir Leid, wenn ich euch mit diesem ganzen Kram "belästige"
Wie schon richtig vermutet, habe ich diese Units aus der Schule...
Das dieses ganze Eingedeutsche nicht so schön ist, dem würde ich ebenfalls zustimmen.

Was gibt es denn für Alternativen?
Die Units werden dafür gebraucht eine Netzwerkverbindung aufzubauen und zwischen einem Server und Clients Daten auszutauschen.
Gibt es evtl. andere Projekte/BibliothekenProgramme die "schöner" sind?

MfG