Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.062 Beiträge
 
Delphi XE2 Professional
 
#10

AW: Bit-Tiefe in PNG ermitteln

  Alt 27. Mär 2020, 02:20
Aber für den Ressourcenschutzblock sollte jemand gesteinigt werden.
Zitat:
Delphi-Quellcode:
  bs := TBytesStream.Create();
  bs.LoadFromFile('bla.png');
  m := bs.Memory;
  try
    ...
  finally
    bs.Free;
  end;
Delphi-Quellcode:
  bs := TBytesStream.Create();
  try
    bs.LoadFromFile('bla.png');
    m := bs.Memory;
    ...
  finally
    bs.Free;
  end;
Denn wenn es im LoadFromFile knallt, dann war's das.

Und wenn es schon beim Create kracht?
Ich habe mir angewöhnt, in etwa so zu formulieren:

Delphi-Quellcode:
var BS:TBytesStream;
begin
   BS:=Nil;
   try
      try
         BS:=TBytesStream.Create();
         ...
         ...
      except
         on E:Exception do ShowMessage(E.Message);
      end;
   finally
      BS.Free;
   end;
end;
Mache ich da einen Denkfehler?
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat