Zitat von
Hansa:
Oh je. Wegen StrToken die JCL mitlinken ? Was heisst StrToken überhaupt ?
Für Puristen : man beachte einmal die 16 Zeilen (brutto, also mit Kopf etc.) und meine zwei (nur delete). Reiche das mal besser an die Jedis weiter.
Es geht doch nicht um
Lines of Code sondern um einen Blick über den Tellerrand.
Sollte man StrToken() in einem Programm mehr als einmal einsetzen können, dann hat es sich doch schon gelohnt.
Der Programmcode wird lesbarer und verständlicher.
StrToken liefert pro Aufruf ein
Token zurück und verkürzt den Orginalstring um dieses:
Delphi-Quellcode:
s := 'Audi,Mazda,BMW,Opel';
writeln(StrToken(s,',')); // liefert: Audi
writeln(StrToken(s,',')); // liefert: Mazda
Übrigens: Das Linken mit der JCL vergrössert die EXE nur um die Funktionen, die auch benützt werden.