Einzelnen Beitrag anzeigen

freakTAB

Registriert seit: 21. Jan 2003
Ort: Neubrandenburg
56 Beiträge
 
Delphi 7 Enterprise
 
#13
  Alt 2. Apr 2003, 14:55
hmm, schon mal so versucht ? :
Delphi-Quellcode:

for i := 1 to length(s) do
   if s[i] = 'Athen inc(zaehler);
wobei i und zaehler integer sind und s der zu bearbeitende string
  Mit Zitat antworten Zitat