Zitat von
thklingler:
Wenn der Name Eingeladen wird
OTName := Contact.LastName;
und das Feld Nachname keinen eintrag enthält sollte diese Abfrage eigentlich
If OTName <>' ' Then n := n+1;
eigentlich "n" erhöhen, tut es aber nicht.
Delphi-Quellcode:
OTName := Trim(Contact.LastName); // ohne Leerzeichen am Anfang und Ende
If OTName = '' Then // Bedingung geändert ! Kein Leerzeichen zwischen den Hochkommas !
Inc(AdresseOhneNachnahme);