|
Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
Delphi 11 Alexandria
|
AW: Case of funktioniert nicht
29. Jul 2015, 14:47
Ohje, das ist ja mal ne ganze Spaghetti-Code-Mahlzeit, die mindestens für 8 Personen ausreicht, ohne das "usw." beachtet zu haben. Ich schätze mal, das kann man alles auf wenige Zeilen reduzieren. Versuch mal "Edit4.Text :=" nur ein einzigesmal in den Code zu bringen.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
|