Delphi Buchstaben zählen

Thema durchsuchen

Ansicht

Themen-Optionen

Buchstaben zählen

Ein Thema von michapitbull · begonnen am 23. Sep 2009 · letzter Beitrag vom 23. Sep 2009

Vorheriger Beitrag

Nächster Beitrag

Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge

Delphi 7 Enterprise

Re: Buchstaben zählen

23. Sep 2009, 17:04

Hi, versuch es doch einfach mal so

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject); 

var buchstabe,zaehlen:integer; <<------------------------------eingefuegt = lokale Variablen

begin 

satz:=edit1.Text; 

zaehlen:=length(satz); 

for buchstabe:=1 to zaehlen do 

begin 

if satz[buchstabe] = 'a' 

then neuertext := neuertext + satz [buchstabe]; 

end; 

label1.Caption:=neuertext; 

end;