String nach bestimmten Zeichen(Buchstaben) absuchen

[Blup]

Eine einfache for-Schleife tuts hier eigentlich auch. Wenn nach Zeichenfolgen gesucht werde soll, lässt sich mit PosEx schon was basteln.

Delphi-Quellcode:

function ZaehleFundstellen(const ASubStr, AText: string): Integer;
{---}
  function FindNext(const ASubStr, AText: string; var AIndex: Integer): Boolean; inline;
  begin
    // ab der Position AIndex nach dem Buchstaben suchen, AIndex auf die nächste Fundstelle setzen
    AIndex := PosEx(ASubStr, AText, AIndex);
    // wenn der Buchstaben nicht mehr gefunden wurde ist AIndex = 0
    Result := (AIndex > 0);
  end;
{---}
var
  i: Integer;
begin
  Result := 0;
  // i zeigt auf den ersten Buchstaben
  i := 1;
  while FindNext(ASubStr, AText, i) do
  begin
    // Fundstelle zählen
    Inc(Result);
    // i auf den nächsten Buchstaben nach der Fundstelle
    Inc(i, Length(ASubStr));
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
  sText, sSuchtext: string
  iAnzahl: Integer;
begin
  sSuchtext := TButton(Sender).Caption;
  sText := Edit1.Text;
  iAnzahl := ZaehleFundstellen(sSuchtext, sText);
  Memo1.Lines.Add(Format('"%s" %d x gefunden', [sSuchtext, iAnzahl]));
end;

[hoika]

Hallo,

Zitat:

Wenn ich auf einen Buchstaben klicke und dieser in diesem Wort nicht vorhanden ist, soll ein Zähler die Fehler zählen

Dafür reicht ja wirklich Pos.

Delphi-Quellcode:

if Pos('A','CDE')=0 then
begin
  // hier geht's rein
end;

[himitsu]

ContainsStr
ContainsText

[madas]

Wenn es wirklich nur um die Anzahl der einzelnen Buchstaben geht, dann geht man den String zeichenweise durch und inkrementiert den Eintrag eines Int Arrays an der Stelle Ord(Zeichen) um 1. Dann schmeißt man z.B. an den Button für A als Tag die 65 und fragt diesen beim Klick darauf ab, um damit beim Int Array an der Stelle 65 den Wert für die Anzahl von As abzurufen.

[Luckie]

Ich glaube, ihr denkt zu kompliziert. Für mich klingt das nach einer Schulaufgabe zum Verständnis von Schleifen und if-Abfragen oder so.

Deswegen die einfache Lösung:
in einer Schleife die einzelnen Zeichen einer Zeichenkette durch gehen. Ein einzelnes Zeichen einer Zeichenkette lässt sich über den Index ansprechen: [i]Zeichenkette Jetzt kann man mit dem Zähler der for-Schleife jedes einzelne Zeichen "ansprechen" und mit einem vorgegebenen Buchstaben vergleichen. Wenn gleich, dann Zähler erhöhen.
Das war es eigentlich schon.
Zur Übung kann man das ganze mit einer for-Schleife, while-Schleife und repoeat-until-Schleife dann umsetzen. Und wenn es für die schule ist, wird es darauf hinaus laufen.

[p80286]

Falls wir uns im ASCII/Ansi - Bereich bewegen, schlage ich folgendes vor:

Delphi-Quellcode:

var 
  abstb: Array [0..255]of integer;

begin
  fillchar(abstb,#0,sizeof(abstb));
  for i:=1 to length(instr) do inc(abstb[Byte(instr[i])],1);
end
...
if abstb[buttonchar]>1 then found else error;

Gruß
K-H

[G4schi]

Nun denn, ich habe es bis jetzt soweit geschafft mit dem Code:

Delphi-Quellcode:

implementation

{$R *.dfm}
var s_Wort: string;


procedure TForm1.bt_HClick(Sender: TObject);

const bt_H = 'h';

begin
  s_Wort := (ed_Eingabe.Text);
  if StrScan(s_Wort, 'h') <> nil
  then Lb_zaehler.Caption := Lb_zaehler.Caption + '1';
end;

Das ist jetzt nur der Teil mit dem Button. Ich wollte es erstmal so angehen, dass ich dem Button eine Konstante gegeben habe
der Buchstaben 'h' und wenn der ihm s_Wort vorhanden ist, soll einfach erstmal eine '1' im Label stehen.

Jetzt kriege ich 2 Fehlermeldungen:
[dcc32 Fehler] Geigenmännchen.pas(40): E2250 Es gibt keine überladene Version von 'StrScan', die man mit diesen Argumenten aufrufen kann

[dcc32 Warnung] Geigenmännchen.pas(40): W1000 Symbol 'StrScan' ist veraltet: 'Moved to the AnsiStrings unit'

Was kann ich damit anfangen?

[Luckie]

Die Warnung lassen wir mal außen vor. Darum kümmern wir uns später.

Zitat:

Es gibt keine überladene Version von 'StrScan', die man mit diesen Argumenten aufrufen kann

Bedeutet, dass die Aufrufparameter von StrScan nicht stimmen. Guck in der Hilfe, mit welchen Parametern StrScan aufgerufen werden muss.