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

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:

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