Zitat:
1. Was genau macht diese Zeile?
Value:= Value*10 + Ord(Symbol) - Ord('0');
Kurz: das Gleiche wie StrToInt(),
es wandelt einen
ASCII Zeichstrom aus Dezimalziffern zwischen '0' bis '9' in eine Zahl um.
Zuerstmal multiplizieren wir Value mit 10, weil ja die Daten in deiner Datei Dezimalzalhen sind, Zahlen zu Basis 10. Somit macht die Multiplikation mit 10 quasi eine weitere Stelle in der Zahl frei.
Ord(Symbol) - Ord('0') wandelt nun ein
ASCII Zeichen das zwischen '0' bis '9' liegt in die entsprechende Zahl um. Wir machen un dabei den Fakt zu nutze das im ACSII Zeichsatz die Zeichen für die Ziffren 0 bis 9 einfach sequientiell kodiert sind. Das
ASCII Zeichen für '0' hat den Bytewert Ord('0'), qausi der Index in die
ASCII Zeichentabelle.
Du hast ja nun den Source eingebaut, und wie schnell ist es jetzt ?
Gruß Hagen