String nach einer zeichenkombination durchsuchen

[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;