Suchen:

hmm,

nunja wenn du es schon ohne den befehl [ code ]...[ /code ] machst hätte ich es so gemacht:

procedure ClearArray(const bilder: TMyImageArray);
var
..felder: Integer;
begin
..felder:=...

ehrlich gesagt hab ich net so genau drüber nachgedacht, wie du raiel, und hab halt nur dir groben Fehler korrigiert, weil ich in letzter Zeit einfach wenig Zeit hab (cooler Satz ;) ). allerdings muss...

Dann regel das ganze doch mit Ungleichheit :

for i:=1 to felder do
begin
for j := 1 to felder do
begin
if (i <> ((felder div 2) + 1)) and (j <> ((felder div 2) + 1)) then
begin
try...

also auf die schnelle würd ich ersteinmal vollgende Dinge korrigieren :

for i:=1 to felder do

> hier gehört meines erachtens ein begin hin

for j := 1 to felder do begin
if (i = ((felder div...

@ Vampire_Master

jaja unser malakai ist einer von der umständlichen Sorte. Wenn du es ganz einfach haben willst, dann mach vier editfenster, deren eingabe du dann zusammenschmeiß ( eingabe :=...

- also einen Kopier/Brennschutz kannst du mit Delphie selbst nicht erzeugen (zumindest soweit ich weis, aber ich bin auch kein Profi, insofern kann das auch falsch sein)

- was du hingegen machen...

So ich bin’s mal wieder (mit Doppelposterlaubnis ;) ).
Diesmal drängt die Lösung des Problems nicht so, denn ich habe das Programm auf andere bessere Weise gelöst und es geht sozusagen nur darum...

mkay,

ich hab mal ein bissche Fehlersuche betrieben, indem in nacheinander stückchenweise alles mal als kommentar gemacht hab. und der Fehler scheint (zu 99,9%) aus der Ecke Winkelberechnug zu...

also erstmal ein §thx @malle :D

den Datenbereich der Variable hat es wirklich gesprengt. wenn ich alle variablen auf extended anstatt auf real deklariere, verkraftet er immerhin ähnliche Vektoren...

so des Aha macht gleich mal den Anfang

also folgendes Problem, dieses hübsche delphi-Programm (zu allen mögliche Vektorrechungen) :

(alle Variablen außer dem counter sind als real deklariert)...