Hi, ich würde mich freuen, wenn ihr mir bei folgendem Problem helfen könntet!
Ich will, dass der User, wenn auf auf einen Button drückt, sich ein Bild auf einem TImage anzeigen kann also habe ich folgendes für das Ereignis onClick hinter den Button programmiert:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.BitBtn2Click(Sender: TObject);
var
bitmap: TBitmap;
begin
bitmap.Create; // hier bricht der debugger mit einem Fehler ab!
if OpenDialog1.Execute then
begin
bitmap.LoadFromFile(opendialog1.FileName);
Image1.Canvas.Draw(0,0,bitmap);
bitmap.Free;
end;
end; |
bei bitmap.create bricht der debugger ab..mit der Fehlermeldung:
Projekt Projekt1.exe raised exception class EAccessViolation with message 'Assessviolation at adress...
Kann mir jemand sagen woran das liegt???
