Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 21.09.2005 10:43 821

Buchstaben zählen mit Dialog - Lösung

Das Delphi-Projekt kann hier heruntergeladen werden.

Der manuell geschriebene Quelltext ist blau hervorgehoben.

Modul mBuchstabeZaehlen (Hauptfenster):

unit mBuchstabeZaehlen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mBuchstabe;

type
  TfBuchstabenZaehlen = class(TForm)
    btZaehlen: TButton;
    edText: TEdit;
    Label1: TLabel;
    lbAusgabe: TLabel;
    procedure btZaehlenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function zaehlen(zeichen:Char): Integer;
  public
    { Public-Deklarationen }
  end;

var
  fBuchstabenZaehlen: TfBuchstabenZaehlen;


implementation

{$R *.dfm}
function TfBuchstabenZaehlen.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 TfBuchstabenZaehlen.btZaehlenClick(Sender: TObject);
var anzahl: Integer;
    buchstabe: Char;
begin
  fBuchstabe.ShowModal;
  buchstabe := fBuchstabe.edBuchstabe.Text[1];
  anzahl := zaehlen(buchstabe);
  lbAusgabe.Caption := buchstabe + ' kommt ' + IntToStr(anzahl) + ' Mal vor.';
end;

end.

Modul mBuchstabe (Dialogfenster):

unit mBuchstabe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfBuchstabe = class(TForm)
    Label2: TLabel;
    edBuchstabe: TEdit;
    btOK: TButton;
    procedure btOKClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
  
var
  fBuchstabe: TfBuchstabe;

implementation

{$R *.dfm}

procedure TfBuchstabe.btOKClick(Sender: TObject);
begin
  close
end;

end.