String nach einer zeichenkombination durchsuchen

[ghost007]

Hallo,
wie kann ich festellen , ob z.B. im string: "hallo ich bin's."
ein "ich" drin ist?

[marabu]

Hallo,

schau mal in die Unit StrUtils - AnsiContainsText() wäre es, wenn ich deine Worte auf die Goldschale lege.

Grüße vom marabu

[Dax]

Delphi-Quellcode:

Pos('ich', 'hallo, ich bins') <> 0

;)

[ghost007]

:wiejetzt: ich check weder was Dax meint noch was marabu meint o0 könnt ihr euch vielleicht etwas genauer ausdrücken?

[Luckie]

Schon mal die Hilfe konsultiert?

[Pseudemys Nelsoni]

Zitat:

Zitat von ghost007

:wiejetzt: ich check weder was Dax meint noch was marabu meint o0 könnt ihr euch vielleicht etwas genauer ausdrücken?

Wie genau willste es denn haben? Um ehrlich zu sein geht es gar nicht genauer, weil es da schon genau steht.

[marabu]

Hallo Christian,

fang klein an und lass dich von mir nicht verwirren:

Delphi-Quellcode:

var
  s, subString: String;
begin
  s := 'hallo ich bin''s';
  subString := 'ICH';
  if Pos(Lowercase(subString), Lowercase(s)) = 0
    then ShowMessage('Pos() sacht: hammer net')
    else ShowMessage('Pos() sacht: iss da');
  if AnsiContainsText(subString, s)
    then ShowMessage('AnsiContainsText() sacht: iss da')
    else ShowMessage('AnsiContainsText() sacht: hammer net');
end;

marabu

[konda]

Hallo,
ich hab noch ne Frage. Wie kann man überprüfen ob 'ICH' am Ende des Strings steht? :cyclops:

[Sharky]

Zitat:

Zitat von konda

... Wie kann man überprüfen ob 'ICH' am Ende des Strings steht? :cyclops:

Prüfe einfach ob die letzen drei Zeichen des Strings (Copy , Length) ein "ICH" sind.

Oder, noch besser. Schreibe Dir eine Funktion welche das nicht für die letzten drei Zeichen macht sonder für die Anzahl der Zeichen die Du suchst ;-)

[Angel4585]

Delphi-Quellcode:

Pos('ich','ich steh nicht am ende') > (Length('ich steh nicht am ende')-Length('ich'))

[SirThornberry]

pos gibt dir zurück an welcher Stelle der Teilstring gefunden wurde (einfach mal die hilfe anschauen da steht all sowas drin). Wenn du jetzt kombinierst, könnte man da einfach abfragen ob diese Position + Zeischenanzahl des Teilstrings größer der Länge des Gesamtstrings.
Aber es gibt auch extra funktion wie RightStr. Damit kannst du dir den Teilstring geben lassen der von rechts X-Zeischen lang ist.

Wenn dein String also "kleiner Test" lautet würde dir der Aufruf von

Delphi-Quellcode:

RightStr('kleiner Test', 4);

den String "Test" zurückliefern. Und da kann man einfach prüfen ob das zurückgegebene Wort dem gesuchten entspricht.

Programmieren besteht nicht nur darin zu wissen welche Funktionen man verwenden muss/kann sondern auch darin zu überlegen wie man die Funktionen nutzen kann um an das Ziel zu kommen.

[konda]

:thumb: Danke! Ich hatte auch erst so was ähnliches ich hab aber falsch verglichen.

[Sharky]

Wenn Du nicht extra die StrUtils einbingen möchtest um RigthStr zu haben kannst Du dir ja mal diesen kleinen Code ansehen:

Delphi-Quellcode:

function CompareRightString (aString, aSubstring : string; aIgnoreCase : Boolean = True) : Boolean;
var
  RightString : String;
begin
  result := False;
  if (Length (aString) < Length(aSubString)) then
  begin
    exit;
  end;
  RightString := Copy (aString,(Length(aString) - Length(aSubString)+1),Length(aSubstring));
  if (aIgnoreCase) then
  begin
    result := AnsiUpperCase(RightString) = AnsiUpperCase(aSubString);
  end
  else
  begin
    result := RightString = aSubString;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CompareRightString('Hallo ich','Ich',False) then
  begin
    ShowMessage('blubb');
  end;
end;

[SirThornberry]

hab grad noch eine funktion für die ganz faulen gefunden, allerdings auch in der StrUtils (bzw. in der Hilfe): AnsiEndsText

[konda]

Ja, so gehts auch, ich nem aber lieber die Funktion in StrUtils. :wink: