Prüfen, ob Anfang eines Strings stimmt

**DenSchub**

Hallo.

Ich häng grad an nem kleinen Tool...
Ich will prüfen, ob die ersten 7 Zeichen eines Strings = einem anderen String machen.
Wie mache ich das??

Dennis

Meine Kristallkugel ist kaputt

**Bernhard Geyer**

Pos('1234567', vergleichstext) = 1

**DenSchub**

...Danke...

Ich leide an Gedächtnisschwund...

Dennis

**Der_Unwissende**

Zitat von Bernhard Geyer:

Pos('1234567', vergleichstext) = 1

Bei seeeehr langen Strings könnte auch das kopieren der ersten 7 Zeichen sinnvoll sein

markieren

Delphi-Quellcode:

			if copy(string, 1, 7) = vergleichstring then

...

Stimmt natürlich nur, wenn ich richtig liege und Delphi erstmal Pos auswertet. Dann würden auch alle hinteren Stellen betrachtet werden, ohne dass dies relevant ist. Greift hier die Codeoptimierung nehme ich es natürlich gerne zurück! (Perfomancegewinn dürfte eh erst bei sehr langen Strings entstehen)

Gruß Der Unwissende

**SirThornberry**

wobei pos nicht die optimale Lösung ist. Denn wenn der String 5000000 Zeichen lang ist und die Zeichen nicht vorkommen oder nicht am Ende sind wird trotzdem bis zum Ende der String durchsucht was eine weile dauern kann.
Je nach Delphiversion gibt es da spezielle Funktionen. Bei allen Delphiversionen sollte folgendes funktionieren:

markieren

Delphi-Quellcode:

			if (copy(fullstr, 1, Length(substr)) = substr) then

  //gefunden

oder CompareMem verwenden.

@Der_Unwissende: Die Codeoptimierung könnte da nicht greifen denn sonst müsste sie die Funktion pos ändern und das macht so gut wie keine automatische Codeoptimierung.

**Der_Unwissende**

Zitat von SirThornberry:

@Der_Unwissende: Die Codeoptimierung könnte da nicht greifen denn sonst müsste sie die Funktion pos ändern und das macht so gut wie keine automatische Codeoptimierung.

Hab im Moment viel mit funktionaler Programmierung gearbeitet, wenn man das ganze mit Bedarfsauswertung angeht, dann würde es halt gut optimiert werden, natürlich klar, dass das kaum ein Optimierer ernsthaft machen dürfte, aber ich wollte mich mal nicht zu weit aus dem Fenster lehnen.

**DenSchub**

Naja, es handelt sich um einen URL-Konvertor, also wird der String wohl nicht 50000 zeichen lang sein.
Trozdem danke, werde es mir merken.

Dennis

Prüfen, ob Anfang eines Strings stimmt

Prüfen, ob Anfang eines Strings stimmt

Re: Prüfen, ob Anfang eines Strings stimmt

Re: Prüfen, ob Anfang eines Strings stimmt

Re: Prüfen, ob Anfang eines Strings stimmt

Re: Prüfen, ob Anfang eines Strings stimmt

Re: Prüfen, ob Anfang eines Strings stimmt

Re: Prüfen, ob Anfang eines Strings stimmt

Forumregeln

DenSchub Registriert seit: 4. Jun 2006 Ort: Balingen 209 Beiträge	#1 Prüfen, ob Anfang eines Strings stimmt 9. Jul 2007, 16:21 Hallo. Ich häng grad an nem kleinen Tool... Ich will prüfen, ob die ersten 7 Zeichen eines Strings = einem anderen String machen. Wie mache ich das?? Dennis Meine Kristallkugel ist kaputt Dennis Schubert Ground Zero is nichts gegen mein Schreibtisch.
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 Re: Prüfen, ob Anfang eines Strings stimmt 9. Jul 2007, 16:23 Pos('1234567', vergleichstext) = 1 Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

DenSchub Registriert seit: 4. Jun 2006 Ort: Balingen 209 Beiträge	#3 Re: Prüfen, ob Anfang eines Strings stimmt 9. Jul 2007, 16:26 ...Danke... Ich leide an Gedächtnisschwund... Dennis Dennis Schubert Ground Zero is nichts gegen mein Schreibtisch.
	Zitat

DenSchub Registriert seit: 4. Jun 2006 Ort: Balingen 209 Beiträge	#7 Re: Prüfen, ob Anfang eines Strings stimmt 9. Jul 2007, 16:39 Naja, es handelt sich um einen URL-Konvertor, also wird der String wohl nicht 50000 zeichen lang sein. Trozdem danke, werde es mir merken. Dennis Dennis Schubert Ground Zero is nichts gegen mein Schreibtisch.
	Zitat