Was mach ich falsch?

zusammenfalten · markieren

Delphi-Quellcode:

unit zaehlen;

interface

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

type
  TForm1 = class(TForm)
    zaehlen: TButton;
    eingabe: TEdit;
    vokalelabel: TLabel;
    konsonantenlabel: TLabel;
    ausgabevokale: TEdit;
    ausgabekonsonanten: TEdit;
    schliessen: TButton;
    procedure zaehlenClick(Sender: TObject);
    procedure eingabeChange(Sender: TObject);
    procedure schliessenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
var i:integer;
    satz:string;
    vokal:integer;
    konsonant:integer;

{$R *.dfm}

procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;

procedure TForm1.eingabeChange(Sender: TObject);
begin
satz:=eingabe.text
end;

procedure TForm1.zaehlenClick(Sender: TObject);
begin
    vokal:=0;
    konsonant:=0;
    for i:=1 to length(satz) do
      if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
         or (satz[i]='u') or (satz[i]='o') then
        vokal:=1
      else
       konsonant:=1;
end;

end.

Bitte ändere den Betreff deines Beitrages. Der jetzige ist in keinster Weise aussagekräftig! Du wurdest doch schon bei deinem letzten Thema darauf hingewiesen.

Hallo,
1. Wie wäre es mit einem aussagekräftigeren Titel.
2. Was ist an deinem Code falsch? Was funktioniert nicht? Kommen Fehler?

Florian

Wie ich gerade sehe ist hast du dazu bereits mehr als einen Thread. Daher mache ich hier zu. Mache bitte in dem anderen weiter und eröffne für das selbe Thema nicht mehrere gleiche Threads.

hier gehts weiter: http://www.delphipraxis.net/internal...ct.php?t=85754

*** LOCKED ***