Hallo,
bevor ich noch jemand verärgere möchte ich nun auch hier die Lösung bereitstellen die ich im DP erhalten habe.
Ich habe halt nur in beiden Foren diese Frage gestellt weil es manchmal vorkommt das in einem Forum schneller eine Antwort kommt als im anderen, ich wollte niemanden ärgern oder umsonst bemühen. Es ist aber auch so das es hätte sein können das (in diesem Fall) hier ein Lösungsvorschlag gekommen wäre der mir noch besser gefallen hätte, oder so.
Hier nun die Lösung die mir scp im DP gegeben hat:
Quelltext
1: 2: 3: 4: 5:
| function CheckSerial(Serial: String): Boolean; begin // MSGBOX('Huhu'); result := (Serial = '1234-5678-90'); end; |
Die MSGBOX muß aber weggelassen werden da es sonst zu einem Fehler kommt.
Sollte ich das nächstemal wieder in zwei Foren die selbe Frage stellen, dann werde ich Lösungen im jeweils anderen Forum so bald wie möglich bereitstellen.
Ich hoffe niemanden verärgert zu haben