Hilfestellung Speichern/Laden von Werten in anderen Datein

[Sir Rufo]

Zitat von bernerbaer:

Zitat von DeddyH:

Sollte die Liste nicht besser vor dem Try erzeugt werden?

Warum? Weil es in den meisten Lehrbüchern zu Delphi so vermittelt wird? Was kann passieren, wenn das Create fehlschlägt? -> Nichts.

Nein, es geht um das generelle Code-Design, und das ich mich als Programmierer auf gewisse Sachen verlassen kann.

In diesem Konstrukt wird der gesamte try .. finally .. end Block nur dann ausgeführt, wenn TMyFoo.Create keine Exception wirft.

Delphi-Quellcode:

MyFoo := TMyFoo.Create;
try
  // irgendwas mit MyFoo machen
finally
  MyFoo.Free;
end;

Hier sieht das aber ganz anders aus. Wenn TMyFoo.Create eine Exception wirft, dann wird der finally Teil ausgeführt.

Delphi-Quellcode:

try
  MyFoo := TMyFoo.Create;
  // irgendwas mit MyFoo machen
finally
  MyFoo.Free;
end;

Wir haben also 2 völlig unterschiedliche Verhaltensweisen. In dem gezeigten Beispiel mag das zwar völlig wumpe sein, aber man sollte sich dessen bewusst sein.

Zitat von bernerbaer:

Klar ist Bummis Code verbesserbar, da SL irgendwelchen Müll enthalten könnte. Ein sl:= nil vor dem sl create wäre meiner Meinung nach besser.

Was interessiert einen der Wert einer lokalen Variable, vor der Initialisierung? Oder deklarierst du das immer so:

Delphi-Quellcode:

procedure Foo;
var
  lFoo : Integer;
begin
  lFoo := 0; // es könnte ja was ganz doofes da in lFoo stehen, also nur so zur Sicherheit
  lFoo := 100;
  ...
end;

Denn das ist genau das was du vorschlägst:

Delphi-Quellcode:

procedure Foo;
var
  lFoo : TFoo;
begin
  lFoo := nil; // es könnte ja was ganz doofes da in lFoo stehen, also nur so zur Sicherheit
  lFoo := TFoo.Create;
  ...
end;