Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Wie kann ich per pos nach ' suchen? (https://www.delphipraxis.net/42687-wie-kann-ich-per-pos-nach-suchen.html)

Master_BB 22. Mär 2005 15:48


Wie kann ich per pos nach ' suchen?
 
Huhu,
ich schreibe mir gerade ein programm das meinen code durchgeht
und durch bestimmte strings vor texten auf textpassagen ausmerksam wird.
zB. TranslateString('Blabla');
die translatestring routine würde nur ihren parameter zurück geben.
aber mein programm geht jetzt den code durch und sieht diesen aufruft und soll
jetzt den text auslesen.
mir fällt als einzigstes ein nach diese ' hochkommers zu suchen.
jedoch kann ich nciht danach suchen weil im delphicode er die gleich als stringbegrenzer nimmt.
wie kann cih also per pos oder lastdelimiter nach ' suchen?

greetz
Master_BB

alcaeus 22. Mär 2005 15:53

Re: Wie kann ich per pos nach ' suchen?
 
Ganz einfach:

Delphi-Quellcode:
If Pos('''', Str) > 0 then ShowMessage('Found');
Ein ' wird durch ein zweites ' escaped, das wurde hier schon beschrieben.

Greetz
alcaeus

Master_BB 22. Mär 2005 16:08

Re: Wie kann ich per pos nach ' suchen?
 
das heißt bei deinem pos('''', ..
würde er nach 1nem ' suchen?
das hieße dann 2 stück zum norrmalen stringabgrenzen, 1nes was gesucht werden soll und 1nes um das zu suchende zu escapen ja?

THX hast mir damit wirklich geholfen

IngoD7 22. Mär 2005 16:09

Re: Wie kann ich per pos nach ' suchen?
 
Zitat:

Zitat von alcaeus
Ganz einfach:

Delphi-Quellcode:
If Pos('''', Str) > 0 then ShowMessage('Found');
Ein ' wird durch ein zweites ' escaped, das wurde hier schon beschrieben.

Oder:
Delphi-Quellcode:
If Pos(#39, Str) > 0 then ShowMessage('Found');
Ein ' ist ASCII 39. Ein Zeichen kann in Delphi auch mit # und seinem ASCII-Wert geschrieben werden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:05 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