String auf Buchstabe überprüfen??

Lestat · Hält's aus hier Beiträge: 11

Hallo Leutz,

ich hab da so ein kleines Problem. Wie kann ich einen String auf einen bestimmten Buchstaben hinüberprüfen und nachher feststellen wie oft dieser Buchstabe in dem Wort oder Satz vorhanden ist.

Vielen Dank im Vorraus!

MFG

Lestat

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function Vorkommen(substr, s: string): integer;
var x:integer;
begin
  result := 0;
  for x:=1 to length(s) do
    if copy(s,x,length(substr)) = substr then result := result + 1;
end;

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Lestat · Hält's aus hier Beiträge: 11

Ich will ja jetzt nicht hier hohe ansprüche stellen, aber .......... :wink:

....... gibts das nicht auch in einem Befehl oder so ?

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

das ist doch nur ein befehl.
du musst nur noch vorkommen aufrufen..
*G*

Gruß
Ken

[edit]hehe, schneller :tongue:

[/edit]

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

weiß ich nicht :mrgreen:

Deswegen hab ich ja die funktion geschrieben (ist aus meinem aktuellen Projekt)

Was stört dich denn an meiner funktion?

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Lestat · Hält's aus hier Beiträge: 11

Ich hab nix an deiner Funktion auszusetzen ! : )

aber dann müsste ich das bis zu meiner morgigen abschlussklausur auswenig lernen und einfacher wäre da ein Befehl ! -_-

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Einfacher (für einen Buchstabe):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

function Vorkommen(Ch: Char; s: String):Integer;
var x:integer;
begin
  result := 0;
  for x:=1 to length(s) do
    if s[x] = Ch then inc(result);
end;

Aber bitte vorher testen, ist nämlich ungetestet

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme