String nach bestimmten Zeichen(Buchstaben) absuchen

**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:

markieren

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:

zusammenfalten · markieren

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.

**Sherlock**

Danke, daß Du jetzt endlich das "Geigenmännchen" (nennt man das Galgenmännchen heute wirklich so?) in den Raum gestellt hast. -.-

Das hätte die Aufgabe deutlich erleichtern können, wenn das gleich vorher gekommen wäre ("Ich möchte ein Galgenmännchen programmieren"). Ich hab mir aus dem ersten Teil des Konzepts halt die Buchstabenzählerei zusammengereimt. Klar ist Pos, PosEx, StrScan der richtige Weg, um zu bestimmen, ob der geratene Buchstabe im versteckten Wort zu finden ist.

Mußt Dir halt jetzt noch überlegen, wie Du das zu erratene Wort darstellen kannst. Im Prinzip reicht es einfach in dem Label die gleiche Anzahl Sternchen auszugeben wie es Buchstaben im Wort gibt. Du mußt dann später die gefundenen Buchstaben offenbaren, also die Sternchen durch den richtigen Buchstaben ersetzen. Beachte, daß Großbuchstaben sich von Kleinbuchstaben unterscheiden!

Sherlock