Pixel(Farbwerte) aus einer Bitmap datei auslesen

[Klaus01]

Na hör mal gaui,

an dem Projekt hast Du ja seit einer Woche noch nichts dran geändert.
Die Auswertung der Pixel ist auch noch nicht drinnen.

Und erklär mal bitte dieses Kuddelmuddel:

Delphi-Quellcode:

procedure TForm1.bBildladenClick(Sender: TObject);
begin

 //TForm1 OnCreate;
begin 
  DasBitmap := TBitmap.Create;
end;
      if Open.Execute then
      begin
      if Open.Execute then begin
       DasBitmap.LoadFromFile(Open.FileName);
       Image1.Picture.Bitmap.Assign(DasBitmap)
       end;
      end;



end;

Delphi-Quellcode:

procedure TForm1.bBildladenClick(Sender: TObject);
begin
  //DasBitmap := TBitmap.Create;  das lieber im onCreate erstellen
  //                                und im onClose wieder freigeben
  if Open.Execute then
    begin
      DasBitmap.LoadFromFile(Open.FileName);
      Image1.Picture.Bitmap.Assign(DasBitmap)
     end;
end;

..und bring das Projekt mal auf den neuesten Stand.
Grüße
Klaus