Hallo omata!
Ja, gern...
Die Schleife durchläuft einen (alten) String zeichenweise ...
Delphi-Quellcode:
while (p<=length(MsgStr)) and
(MsgStr[p] in ['0'..'9']) do begin
..
Das führt zu einer Warnung und einem Vorgehenshinweis ".... Verwendung (von) .. 'CharInSet' in Betracht ziehen", also ändere ich nach...
Delphi-Quellcode:
while (p<=length(MsgStr)) and
CharInSet(MsgStr[p],['0'..'9']) do begin
..
Leider folgen viele weitere Warnungen/Fehler, so konnte ich noch nicht einmal prüfen, ob meine Änderung nun korrekt ist. Aber, und das ist für mich im Augenblick das unangenehmste: Nach dieser Änderung kann Delphi 7 den Source natürlich nicht mehr "verdauen".
Zweifelsohne kann der "alte" Source mit ein wenig Fleiß fit für Delphi 2010 gemacht werden. Aber, wie himitsu schon sagte: Source doppelt vorhalten?! Entweder innerhalb der Units oder gleich die kompletten Units doppelt. Tja, und das ist natürlich nicht so prickelnd.