String in String finden?

Computer: Software & Programmierung Delphi & Pascal
#1

Hi,
wie suche ich in einem best. String einen anderen String? Ich hatte urspünglich vor, die Sache über einen endlichen Automaten zu implementieren, aber Delphi kennt doch sicher dafür ne Funktion.
Also so z.B.:

function f(s: string): integer;
begin 
 result := find(s, 'Schnarch...'); 
 { ^^^^ den hier }
end;

Vielen Dank schon mal im Voraus

Wolfgang

#2

gibt es…

function Pos(Substr: string; S: string): Integer;

oder

function AnsiPos(const Substr, S: string): Integer;

weiteres siehe OH.

Gruss RQ

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi Wolfgang,

hier noch zwei Funktionen:

function AnsiStrRScan(Str: PChar; Chr: Char): PChar;

gibt einen Zeiger auf das letzte Vorkommen eines bestimmten Zeichens in einem String zurück.

function AnsiStrRScan(Str: PChar; Chr: Char): PChar;

gibt einen Zeiger auf das erste Vorkommen eines bestimmten Zeichens in einem String zurück.

Viele Grüße,

Michl

#4

Hi,
vielen Dank aber jetzt ich noch eine Frage.
Gibt’s des Ganze also

function AnsiStrRScan(Str: PChar; Chr: Char):stuck\_out\_tongue:Char;

auch mit String anstatt mit Char?
Würde mir sehr weiterhelfen.
MfG
Wolfgang

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hi Wolfgang,
es gibt ne Funktion

function PChar(Str: String): PChar

welche Dir einen String in einen PChar umwandelt.
Verwende also einfach
AnsiStrScan(PChar(EinString), PChar(NochEinString))
Das sollte gehen!

Viele Grüße,

Michl

Hi,
vielen Dank aber jetzt ich noch eine Frage.
Gibt’s des Ganze also

function AnsiStrRScan(Str: PChar; Chr: Char):stuck_out_tongue:Char;

auch mit String anstatt mit Char?
Würde mir sehr weiterhelfen.
MfG
Wolfgang

1 Like