Grafik im Speicher erstellen für BlobStream (DB)

[venice2]

Delphi-Quellcode:

 if not Assigned(Abmp) then
    Abmp := Vcl.Graphics.TBitmap.Create;

EDIT:
Warum?

Es wird sich immer beschwert das man NIE auf True oder False hin prüfen soll.
Was ist eine Prüfung auf Nil.. Ja oder Nein, 1 oder 0, True oder False.

Also es ist in jedem fall eine Prüfung darauf ob der Wert True oder False ist.

Wenn man sich schon hier beschwert ->
if (x = True) then
sollte das gleiche auch bei Nil gelten.

Denn Assigned liefert den korrekten wert nämlich True oder False.

Es ist nicht grundsätzlich falsch auf NIL zu prüfen aber dann hat auch die Prüfung auf True wie im Beispiel seine Berechtigung.
Wenn nicht dann bitte schön konsequent bleiben und auch nicht auf NIL hin prüfen. Dafür gibt es Assigned.

[NoGAD]

Wenn das Objekt aber in der Function erstellt wurde, übersieht man dann nicht außerhalb die Freigabe?

LG 👋🏻

[KodeZwerg]

Zitat von NoGAD:

Wenn das Objekt aber in der Function erstellt wurde, übersieht man dann nicht außerhalb die Freigabe?

LG ����

Da ich ja eigentlich weiß wann ich etwas erschaffe, ob per methode oder per .Create, weiß ich auch das ich es freizugeben habe. (ich nutze halt freeandnil)
Für mich pers. ist das der bessere Umgang da es generischer ist und (sogut wie) immer ein resultat liefert.
Der eigentliche Grund warum ich überhaupt den Code abgeändert gepostet habe war deine "width and height = 0" abfrage. Wozu ein Bitmap erstellen lassen wenn eins von beiden 0 sein darf?

Es tut mir leid wenn dir mein vorschlag unangehm vorkommt. Jeder kocht halt sein eigenes süppchen.

[DeddyH]

Die übergebene Bitmap müsste aber dann ein Var-Parameter sein, sonst ist die Referenz weg, die Instanz aber weiterhin da.

[venice2]

Zitat:

(ich nutze halt freeandnil)

Nur nötig bei Objekten die sich nicht selbst freigeben also die Rückgabe nicht Nil ist nach Free!
Aber gut jedem das seine

[KodeZwerg]

Zitat von venice2:

Delphi-Quellcode:

 if not Assigned(Abmp) then
    Abmp := Vcl.Graphics.TBitmap.Create;

EDIT:
Warum?

Es wird sich immer beschwert das man NIE auf True oder False hin prüfen soll.
Was ist eine Prüfung auf Nil.. Ja oder Nein, 1 oder 0, True oder False.

Also es ist in jedem fall eine Prüfung darauf ob der Wert True oder False ist.

Wenn man sich schon hier beschwert ->
if (x = True) then
sollte das gleiche auch bei Nil gelten.

Denn Assigned liefert den korrekten wert nämlich True oder False.

Es ist nicht grundsätzlich falsch auf NIL zu prüfen aber dann hat auch die Prüfung auf True wie im Beispiel seine Berechtigung.
Wenn nicht dann bitte schön konsequent bleiben und auch nicht auf NIL hin prüfen. Dafür gibt es Assigned.

Inhaltlich beißt sich da irgendwie die katze am eigenen schwanz, oder?
Eine "if" abfrage, egal wie man sie formuliert, bleibt immer eine True oder False abfrage.
Uwe Raabe hatte doch gerade erst gezeigt das eine "if nil" und ein "if assigned()" per debugger den gleichen code ausspuckt oder irre ich mich jetzt total?

Ich nehme natürlich gerne ratschläge dazu an, also Danke für Deinen Ratschlag!!

[DeddyH]

Nochmal für Emil zum Mitschreiben:

Delphi-Quellcode:

function APICallResult: integer;
begin
  Result := not 0;
end;

procedure TForm13.Button1Click(Sender: TObject);
var
  lBool: Boolean;
begin
  lBool := Boolean(APICallResult);
  if lBool = true then
    ShowMessage('Vergleich mit true ergibt true')
  else if lBool then
    ShowMessage('Prüfung ohne Vergleich ergibt true');
end;

Deshalb vergleicht man nicht mit true, das hat mit einer Prüfung auf nil nichts zu tun.

[venice2]

Zitat:

Inhaltlich beißt sich da irgendwie die katze am eigenen schwanz, oder?

Richtig!
Wollte nur mal auf die nicht konsequente Herangehensweise hinweisen.

[KodeZwerg]

Zitat von DeddyH:

Die übergebene Bitmap müsste aber dann ein Var-Parameter sein, sonst ist die Referenz weg, die Instanz aber weiterhin da.

Ahhhhh. Ich spring ausm Fenster. Das stimmt! Das habe ich übersehen! Danke!!

[venice2]

Zitat:

Deshalb vergleicht man nicht mit true, das hat mit einer Prüfung auf nil nichts zu tun.

Für dich zum mitschreiben es gibt nur 2 werte 0 oder <> 0 (VB = -1) btw. 1
Wie man sie letztendlich prüft bleibt sich gleich. Aber wenn schon dann mit allen Variablen gleich so wie es in C++ auch stattfindet.

Ok bin raus ist ein anderes Thema.