AssignFile -> simples prinzip aber ich stolper trotzdem...

[DerTobi]

'Doh!

Ich wollte gerade die Get Methode posten und da renne ich über den Fehler.
Der ist schon zu peinlich zum posten!

Ich bitte vielmals um Entschuldigung das ich eure Zeit verschwendet habe! Trotzdem vielen vielen Dank für die Mühe!

[himitsu]

Dennoch wäre es gut, wenn man seine Erkenntnis mit anderen Teil,
denn davon lebt ein Forum.
Denn was passiert, wenn jemand Anderes auch irgendwann mal das gleiche Problem hat und niemand seine Lösungen veröffentlicht?

[DerTobi]

Stimmt auch wieder... nagut, dann poste ich den Anfängerfehler mal ^^

So sah die Get Methode aus:

Delphi-Quellcode:

function TLogObject.GetFileLog: TFileLogObject;
begin
  if FFileLog = NIL then
    FFileLog.Create;

  Result := FFileLog;
end;

So muss sie aussehen:

Delphi-Quellcode:

function TLogObject.GetFileLog: TFileLogObject;
begin
  if FFileLog = NIL then
    FFileLog := TFileLogObject.Create;

  Result := FFileLog;
end;

Die Variable zeigte ins leere

[Luckie]

Da zeigt nichts ins Leere. Du hast den Konstruktor als gewöhnliche Methode aufgerufen. Dabei wird natürlich keine Instanz erzeugt.

[DerTobi]

Jop, stimmt.

[Luckie]

Und genau darauf hat meine Frage abgezielt.

[himitsu]

Meine auch.

Aber hier nochein Tipp:

Delphi-Quellcode:

if FFileLog = NIL then

if not Assigned(FFileLog) then

assigned = zugewiesen ... eventuell ist es so sogar verständlicher.

Und nicht vergessen,
FreeAndNil(FFileLog); anstatt FFileLog.Free; und eventuell noch mit NIL initiieren (falls dieses nicht zufällig automatisch durch Delphi gemacht werden sollte),
sonst bringt diese Prüfung nichts.

[Bjoerk]

weshalb hast du denn constructor Create; overload; ?

[DerTobi]

Hoi Hoi,

jap, wegen der Frage bin ich auch über den Fehler gestolpert

Warum ich an der Stelle ausgerechnet = NIL gewählt habe kann ich nicht mehr erklären. Gibt wohl auch keinen besonderen Grund dafür.

FreeAndNil ist klar.

das overload ist Macht der Gewohnheit.