hab den dummen fehler endlich gefunden.
der war soo dumm.
kukt mal in meine tausch procedure. dort wurde ein werteparameter verwendet
anstatt eines variablenparameters das ist der einzigste fehler.
so siehts richtig aus
Delphi-Quellcode:
Procedure TForm1.Tausch(VAR a,b:KontaktType);
var c:kontakttype;
Begin
c := a;
a := b;
b := c;
end;
komisch das das von euch keiner gesehen hat