Thema: Delphi Text durchsuchen

Einzelnen Beitrag anzeigen

Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#15

Re: Text durchsuchen

  Alt 5. Jan 2009, 09:55
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
  Mit Zitat antworten Zitat