Eigentlich nicht schwer, da kann man von der Zeilenzahl einstellig bleiben.
Code:
FUNKTION Kreiserkennung(VARIABLE Ergebnis: Integer);
GEHE Bild VON oben NACH unten DURCH
GEHE Bild VON links NACH rechts DURCH
WENN Farbe NICHT weiß DANN
WENN Farbe ein Pixel links unten NICHT weiß DANN // ggf. Abfrage für ganz links bzw. oben
ERHÖHE Ergebnis;
FÜLLE BEREICH an aktueller Position MIT weiß;
VCL.Graphics.TCanvas
Code:
Irgendwas := 0;
Kreiserkennung(Irgendwas);