• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Speicherleck, Bug ?

ReportMemoryLeaksOnShutDown einschalten oder FastMM verwenden,
getestet mit D7 und D2007:

unit unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, OverbyteIcsWSocket;

type
TRec = record
I  : Integer;
S  : string;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function Foo: TRec;
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Foo: TRec;
begin
//Finalize(Result); // <== hilft
FillChar(Result, SizeOf(Result), 0);
Result.S := 'foo';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
S : string;
begin
for I := 1 to 10 do // diese Zeile auskommentieren hilft auch
S := S + Foo.S;
ShowMessage(S);
end;

end.

Antworten