Wie man es mit
Exception löst:
Delphi-Quellcode:
if SplitStr = '
'
then
raise Exception.Create('
Die Zeichenfolge ist leer.');
if SplitStr[length(SplitStr)] <> sep
then
SplitStr := SplitStr+sep;
Da du, wie ich dich kenne, keine SysUtils
Unit einbinden willst, musst du einiges mehr machen, um mit Exceptions zu arbeiten. Schau dir einfach mal den Quellcode zu InitException und DoneException in SysUtils an.