Variable ist möglicherweise nicht initialisiert worden

[DeddyH]

Das bringt auch nichts, da der Speicher ja nur im Fehlerfalle freigegeben werden soll, oder? Evtl. sollte man vor dem try einfach help auf nil setzen.

[Looper]

Zitat von DeddyH:

Das bringt auch nichts, da der Speicher ja nur im Fehlerfalle freigegeben werden soll, oder? Evtl. sollte man vor dem try einfach help auf nil setzen.

Genau.
Und mit dem Tipp läuft das dann natürlich auch einwandfrei.

Danke

[himitsu]

* Result ist irgendwie verständlicher, als soein Funktionsname. (vorallem kann man da auch Lesend drauf zugreifen)
* booked vor dem New setzen, da es bei OutOfMemory nie hinzugezählt würde, aber im Except wir immer abgezogen.

Delphi-Quellcode:

function AddSpark(aData : TSpark) : EList;
var
  help : PSparkList;
begin
  help := nil; 
  try
    Inc(booked);
    New(help); 
    help^.Data := aData;
    help^.pNext := pRoot;
    pRoot := help;
    Result := LOK;
  except
    on EOutOfMemory do
      Result := LNoMemory
    else
      Result := LUndefined;
    if Assigned(help) then
    begin
      Dec(booked);
      Dispose(help); 
    end;
  end;
end;

Aber im Prinzip seh ich hier nur eine Exceptionquelle.
Das Andere sind wohl alles nur "harmlose" Typen/Variablen.

Delphi-Quellcode:

function AddSpark(aData : TSpark) : EList;
var
  help : PSparkList;
begin
  try
    New(help); 
    Inc(booked);
    help^.Data := aData;
    help^.pNext := pRoot;
    pRoot := help;
    Result := LOK;
  except
    Result := LNoMemory;
  end;
end;

// oder von mir aus auch so

function AddSpark(aData : TSpark) : EList;
var
  help : PSparkList;
begin
  try
    New(help); 
  except
    Exit(LNoMemory); // Result := LNoMemory;  Exit;
  end;
  Inc(booked);
  help^.Data := aData;
  help^.pNext := pRoot;
  pRoot := help;
  Result := LOK;
end;

Standardmäßig braucht man bei help^.Data nicht manuell dereferenzieren. (Delphi macht es bei help.Data von alleine)

[Looper]

Zitat von himitsu:

* Result ist irgendwie verständlicher, als soein Funktionsname. (vorallem kann man da auch Lesend drauf zugreifen)

Finde ich auch, aber aus mir nicht ersichtlichen Gründen ist es mir verboten result zu benutzen.. FH-Richtlinie

Zitat von himitsu:

* booked vor dem New setzen, da es bei OutOfMemory nie hinzugezählt würde, aber im Except wir immer abgezogen.

Danke für den Tipp. Ändere ich gleich.

EDIT

Zitat von himitsu:

Standardmäßig braucht man bei help^.Data nicht manuell dereferenzieren. (Delphi macht es bei help.Data von alleine)

Es handelt sich um ein Programmierpraktikum in einer Fachhochschule und Ziele sind unter anderem Verständnis von dynamischen Datenstrukturen zu bekommen und das erstmalige Schreiben eines halbwegs umfangreichen Programmes. Daher zeige ich mal lieber, dass ich weiß: "Es sind Zeiger mit denen ich hantiere "