[Optimiert] Explode Prozedur - Reloaded (Ersatz für CodeLib)

[Z4ppy]

DeddyH:
Vielleicht aber auch:

Delphi-Quellcode:

      If fEndOfText Then
        Result := False
      Else
        begin
Result:=True;
          ...
        end;

Auf Zeile 332 ist übrigens eine Funktion einer anderen Kompo mit gleichem Namen so geschrieben.

MfG Z4ppy