1)
Du musst Objekte instanzieren, bevor du sie benutzen kannst.
Falsch:
Delphi-Quellcode:
Image1: Tpicture;
begin
Image1.LoadFromFile('beugung.bmp');
...
Richtig:
Delphi-Quellcode:
Image1: TBitmap;
begin
Image1 := TBitmap.Create;
try
Image1.LoadFromFile('Pfad?/beugung.bmp');
for y := 1 to 600 do
...
finally
FreeAndNil (Image1);
end;
...
2)
Benutz mal die Foren-Suche, da müßte es schon einiges geben
3)
Hä? ^^
Delphi-Quellcode:
var
min, max: Integer;
min := MaxInt;
max := 0;
for a := 0 to X do
begin
if (Array[a] > max) then
max := Array[a];
if (Array[a] < min) then
min := Array[a];
end;
Sowas?