Code:
procedure TForm1.Button1Click(Sender: TObject);
var farben:array of integer;
i,j,k:integer;
begin //Hier werden die Farbwerte ausgelesen
for i:= 1to 760 do begin
for j:= 1to 578 do begin
k:=k+1;
farben[k]:=image1.canvas.pixels[i,j]
end;
end;
end;
Die Dimensionen des Arrays müssen erst mit
SetLength festgelegt werden. Außerdem sollte es wohl
Delphi-Quellcode:
for i := 0 to 759 do begin
for j := 0 to 577 do begin
heißen.
Warum arbeitet ihr nicht gleich mit dem eingelesenen Bitmap? Das wäre die beste Lösung.
Zitat:
@Kiste:
Haben das mit dem TOpenDialog gefunden und wollten es gleich mal zum Test bringen, aber wenn ich des in mein Formblatt einfüge und das Programm starte erscheint das Teil nicht auf dem ausgeführten Programm...
Zum Ausführen musst du
Execute benutzen. Siehe auch die
OH zu TOpenDialog.