Forum: Programmieren allgemein
by Saminem,
27. Jan 2012
Danke schonmal für die vielen Vorschläge habe jetzt geschaft das Programm halbwegs zu laufen zu bringen jedoch erkennt er bei einem 4 Ecke noch nicht die rechte Ecke erkannt.
procedure TForm1.Button4Click(Sender: TObject);
var k,n,t,pixel1,pixel2,pixel3:integer;
gewichtung1,gewichtung2,gewichtung3:extended;
begin
for n:=1 to hoehe -2 do
begin
P1:=Image1.Picture.Bitmap.ScanLine;...
Forum: Programmieren allgemein
by Saminem,
20. Jan 2012
P1 ist die Scanline aus der ersten Zeile des Bildes
P1:=Image1.Picture.Bitmap.ScanLine;
P2:=Image1.Picture.Bitmap.ScanLine;
P2 ist die nächste zeile um dann diese beiden zeilen zu verglecihen
Forum: Programmieren allgemein
by Saminem,
20. Jan 2012
Moin Leute
Ich hänge in Informatik fest.
Wir müssen nämlich ein Programm schreiben welches Ränder erkennt von ausgefülltern objekten.
procedure TForm1.Button3Click(Sender: TObject);
var n,t,pixel1,pixel2,pixel3:integer;
schwellenwert1,schwellenwert2,schwellenwert3 :extended;
begin
for n:=1 to hoehe do
begin
for t:=1 to breite do