Hallo, ich bin ein Neuling in der Kultur der Programmierer und hänge gerade an einer kleinen Aufgabe.


Das Konzept:

Ich gebe ein Wort in ein Textfeld ein. Drücke auf einen Button und die Anzahl der Buchstaben im Textfeld werden gezählt,
dann in einem Label mit '*' ausgegeben, in der Anzahl der Buchstaben.

Jetzt möchte ich weitere Buttons einrichten mit einzelnen Buchstaben.

Wenn ich auf einen Buchstaben klicke und dieser in diesem Wort nicht vorhanden ist, soll ein Zähler die Fehler zählen, das mache ich selbst.
Später wird das noch erweitert aber erstmal nur das.

Mit welcher Funktion oder Anweisung kann ich diesen Buchstaben abgleich machen?
Ich denke mir, dass es in die Richtung mit "if....then....else" gehen sollte.



MfG G4schi

Z.B. Pos/PosEx oder StrScan

Der Inhalt des Textfeldes muss Zeichen für Zeichen durchgegangen werden, für jedes Zeichen auf das man dabei trifft prüft man ob man dieses Zeichen bereits gesehen hat und erhöht in dem Fall den entsprechenden Zähler, ansonsten merkt man sich dieses neue Zeichen.

Das spannendste dabei ist, wie man sich diese Zeichen/Anzahl Kombination merkt. Das ist vermutlich die Paradesituation für ein TDictionary.
Der Rest ist mit einer For-Schleife und den bereits von Dir angerissenen If-Konstrukt zu erledigen.

Viel Spaß

Edith ist gespannt, wie das mit Pos oder PosEx gelöst wird.

Sherlock

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

zusammenfalten · markieren

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;

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.

markieren

Delphi-Quellcode:

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

ContainsStr
ContainsText

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.

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.

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

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?