1.) das ShowMessage('FEHLER') gehört da nicht hin; einfach weglassen
Schliesslich gibt es die beiden Verzeichnisse "." und ".." und die sollen ausgefiltert werden.
2.) deine Funktion IsNumeric() hat den falschen Namen und passt auch Inhaltlich nicht.
Digit (deutsch: Ziffer) ist das was wir prüfen wollen.
Delphi-Quellcode:
function CharIsDigit(const C: Char): Boolean;
begin
Result := (C >= '0') and (C <='9');
end;
Deine function TOlapExtraktorBase.IsNumeric stiftet schon vom Namen her Verwirrung!
Was hat die Prüfung eines Strings mit OLAP zu tun?
Wenn es jetzt class function TStringUtils.IsNumeric heisen würde, dann wäre es akzeptabel.
Aber ein ganz normale Funktion ist das was am Meisten Sinn macht.