String auf bestimmte Zeichenfolge überprüfen

[Zyro]

Kann man einen beliebigen String auf eine bestimmte Zeichenfolge überprüfen?

zB: Ich will wissen ob in "Ort=#var#" die zeichen "#var" vorkommen. Und da sie es tuen, sollen sie durch einen String ersetzt werden.

[himitsu]

Delphi-Quellcode:

S := 'Ort=#var#';

I := Pos('#var#', S);
If I > 0 Then
  S := Copy(S, 1, I - 1) + 'irrgendwas' + Copy(S, I + 5{länge von "#var#"}, Length(S));

{S = 'Ort=irrgendwas'}

oder

S := StringReplace(S, '#var#', 'irrgendwas', rfReplaceAll);

[Zyro]

muss ich bei deinem zweiten beispiel auch die schleife aus deinem ersten beispiel benutzen?

Und warum sagt er mir: [Error] Unit1.pas(182): Incompatible types: 'TReplaceFlags' and 'Enumeration' Achja..mein Quellcode: Feld[t] := StringReplace(Feld[t], '#var#',''+Edit1.Text+'', rfReplaceAll);

[himitsu]

S := StringReplace(S, '#var#', 'irrgendwas', [rfReplaceAll]); hab "[" & "]" vergessen.

Bei diesem Beispiel nicht.



rfReplaceAll: Alle Fundstellen werden ersetzt. Wenn dieses Flag nicht vorhanden ist, wird nur die erste Fundstelle des gesuchten Teilstrings ersetzt.

rfIgnoreCase: Bei der Suche nach dem Teilstring wird die Groß-/Kleinschreibung nicht berücksichtigt. Wenn dieses Flag nicht vorhanden ist, werden nur Fundstellen berücksichtigt, deren Schreibweise genau mit dem Suchstring übereinstimmt.

Delphi-Quellcode:

S := StringReplace(S, '#var#', 'irrgendwas', []);
S := StringReplace(S, '#var#', 'irrgendwas', [rfReplaceAll]);
S := StringReplace(S, '#var#', 'irrgendwas', [rfReplaceAll, rfIgnoreCase]);
S := StringReplace(S, '#var#', 'irrgendwas', [rfIgnoreCase]);

[Zyro]

ahaa.... jo jetzt gehts. Bin dir sehr dankbar.