unit mBuchstabeZaehlen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
edText: TEdit;
Label1: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
function zaehlen(zeichen:Char): Integer;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.zaehlen(zeichen:Char): Integer;
var i, anzahl: Integer;
begin
anzahl := 0;
for i:=1 to Length(edText.Text) do
if edText.Text[i] = zeichen then
Inc(anzahl);
zaehlen := anzahl;
end;
procedure TForm1.Button1Click(Sender: TObject);
var zeichen: Char;
anzahl: Integer;
begin
Memo1.Lines.Clear;
for zeichen := 'a' to 'z' do
begin
anzahl := zaehlen(zeichen);
if anzahl > 0 then
Memo1.Lines.Add(zeichen + ': ' + IntToStr(anzahl));
end;
end;
end.
