Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Ende eines Textes feststellen (https://www.delphipraxis.net/19913-ende-eines-textes-feststellen.html)

Gambit 10. Apr 2004 19:57


Ende eines Textes feststellen
 
Moin,

gibt es sowas wie EOF für Textdateien auch für Strings? Also ich möchte einen String in einer Schleife nach einem bestimmten Wort parsen und abbrechen, wenn entweder das Wort gefunden wurde oder der String zuende ist. Ich möchte den String aber nicht in einer temporären Datei auf der Platte speichern.

Gruß

Gambit

Chewie 10. Apr 2004 20:08

Re: Ende eines Textes feststellen
 
Enwteder baust du eine boolsche Variable in die Schleife ein, die du in der Abbruchbedingung abfragst und bei Finden des entsprechenden Wortes/Buchstaben/wasauchimmer setzt, oder du benutzt break zum Beenden einer Schleife.

xineohp 10. Apr 2004 20:09

Re: Ende eines Textes feststellen
 
moin,

Arbeite doch mit length(); wenn beim parsen position+length(Suchwort) > length(Eingabestring) dann brichst du ab.

phoenix

Gambit 10. Apr 2004 20:48

Re: Ende eines Textes feststellen
 
ja, danke, das mit length ist ne gute Idee. Leider finde ich im Moment überhaupt keine Wörter obwohl sie da sind. Ich arbeite mit AnsiSameText aber das gibt mir nie true zurück auch wenn ein Wort genau übereinstimmt. Woran kann das denn liegen?

Gruß

Gambit

Gambit 10. Apr 2004 20:57

Re: Ende eines Textes feststellen
 
Doch, klappt, sorry und Danke!

Gambit

Hansa 10. Apr 2004 20:57

Re: Ende eines Textes feststellen
 
Was ist AnsiSameText ?? Wie sehen denn die Daten überhaupt aus ? Hast du vielleicht Ansi, Ascii oder was weiß ich vermischt ? Was ist mit der Groß- und Kleinschreibung. Alles nichts besonderes, aber zusammen wohl doch schon. In dem speziellen Fall. :mrgreen: Außerdem gilt hier : "Ohne Source nix los" 8)


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz