Text durchsuchen

[jfheins]

Zitat von Thomas F:

Zitat von fkerber:

Hi!

Fehlt das Zeichen immer nur, wenn es quasi auch das letzte Zeichen der Datei war?

Ciao, Frederic

STIMMT !

Immer wenn das Zeichen das letzte Zeichen in der Datei ist, fehlt es !
Ansonsten kein Fehler mehr !

Ja.

Weil diese Schleife (und die davor übrigens auch)

Zitat von Thomas F:

Delphi-Quellcode:

  stop := at+1;
  while (aValue[stop] in permittedChar) and (stop < length(aValue)) do
  begin
    Inc (stop)
  end;

Aufhört, wenn an der Endposition ein falsches Zeichen gefunden wird, oder das Ende des Textes erreicht wurde. Somit ist bei aValue[stop] immer entweder ein falsches Zeichen oder der Ende des Textes

Besser:

Delphi-Quellcode:

  stop := at;
  while (aValue[stop+1] in permittedChar) and (stop < length(aValue)) do
  begin
    Inc (stop)
  end;

P.S. Dann aber beim Copy() bitte nichts mehr abschneiden