|
Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
Delphi 2007 Professional
|
3. Feb 2003, 17:06
Hallo,
unabhängig davon, dass ich die Methode Getend, stupcase usw. nicht kenne wird hier versucht einen vorhandenen String bis auf die Zeiche a bis z, A bis Z und 0 bis 9 zu bereinigen.
Das in erster Linie durch beginnendes Löschen alle Leerzeichen (Trimm) und nachfolgendes kopieren des Strings in sich selbst wenn das erste Zeichen nicht in den Wertebereich paßt. (So: erstes zeichen nicht in ..., dann kopiere ab Stelle 2).
Die Letste Schleife setzt das klassische Längenbyte des Strings (String[0] = Länge eines ShortStrings) einfach minus 1 wenn letztes Zeichen nicht im Wertebereich ist.
Gruß oki
|