Hallo,
ich hätte die Frage, wie man es angehen muss, wenn man mit while...do begin ein Programm schreiben soll, damit, wenn in dem Feld Text(woraus die Buchstaben/Worte gezählt werden soll) z. B. "Das ist ein Text" steht, und man in Suche dann z. B. s eingibt, soll in Anzahl die Anzahl aller "s" angezeigt werden. Wie muss man dieses angehen?

Danke schon mal im Voraus!

Durchiterieren hattest Du ja schon in der letzten Hausaufgabe, jetzt musst Du halt nur inkrementieren statt edieren

Wie geht

Zitat von CCRDude:

... inkrementieren ...

?

Inkrementieren meint Hochzählen. Sprich du hast eine Zählvariable. Diese setzt du zunächst auf 0. Dann gehst du mit einer Schleife alle Buchstaben/Zeichen deines Textes durch, immer wenn du das gesuchte Zeichen findest erhöhst du die Zählvariable um 1.

markieren

Code:

Var Zähler:integer;
Zähler:=0
Schleife
Wenn Text an Stelle = Suchbuchstabe dann
  Zähler:=Zähler+1;

Statt Zähler:=Zähler+1; kann man auch Inc(Zähler) schreiben. Das ist eine Delphi-Hilfsprozedur um eine variable zu inkrementieren/hochzuzählen.

Danke!

Bei mir wird nun jetzt bei Anzahl(der gesuchten Buchstaben) immer 0.
Was einer von euch warum?

Zitat von Phillip0405:

Was einer von euch warum?

Nö, woher auch? Zeig doch mal deinen Code ..

Zitat von Zacherl:

Zitat von Phillip0405:

Was einer von euch warum?

Nö, woher auch? Zeig doch mal deinen Code ..

zusammenfalten · markieren

Delphi-Quellcode:

var
a, text, suche:string
b,c, Zähler, Anzahl:interger;
begin
Zähler:=0;
Text:=edit1.text;
Suche:=edit2.text;
b:=Pos(suche,text);
c:=Length(text);
Copy(text, b, c);

while c<3 do begin
Zähler:=Pos(suche,text);
Zähler:=Zähler+1;
end;
Anzahl:=Zähler;
edit3.text:= InToStr(Zähler);

end;

Zitat von Phillip0405:

zusammenfalten · markieren

Delphi-Quellcode:

var
a, text, suche:string
b,c, Zähler, Anzahl:interger;
begin
Zähler:=0;
Text:=edit1.text;
Suche:=edit2.text;
b:=Pos(suche,text);
c:=Length(text);
Copy(text, b, c);

while c<3 do begin
Zähler:=Pos(suche,text);
Zähler:=Zähler+1;
end;
Anzahl:=Zähler;
edit3.text:= InToStr(Zähler);

end;

Was genau willst du bewirken? Dein Code ist konfus/unfertig, z.B.:
- Die while-Schleife: Sie wird entweder nie betreten (Abhängig von der Textlänge) oder wenn Sie denn mal betreten wird, ist sie endlos, weil "c" innerhalb der Schleife nie verändert wird.
- Das Ergebnis der Funktion Copy() die du benutzt muss auch weiter verwendet werden, z.b.: Stringvariable:=Copy(text,b,c)
- Generell: Willst du das vorkommen eines einzigen Zeichens, z.B. "S" innerhalb deines Strings suchen oder einen String innerhalb eines andern Strings?

Ich glaube so langsam, dass es sich bei Phillip um einen Troll handelt. Dieser Code wird (von der fehlenden Logik her mal abgesehen) nichtmal kompilieren. Bei den Variablen-Deklarationen fehlt hinter String das Semikolon, Umlaute sind ungültig in Variablen-Bezeichnern und der Typ "Interger" wäre mir auch unbekannt