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?