Hallo, ich weiß nicht weiter und ich finde einfach den Fehler nirgens.Könnte sich vieleicht mal jemand meinschulprojekt ansehen und mir sagen was ich falsch mache? Währe echt voll nett von euch.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
eingabe: TEdit;
vokale: TLabel;
Label2: TLabel;
ausgabevokale: TEdit;
ausgabekonsonanten: TEdit;
zaehlen: TButton;
schliessen: TButton;
procedure zaehlenClick(Sender: TObject);
procedure schliessenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
var satz:
string;
i:integer;
buchstabe:integer;
vokal:
string;
konsonant:
string;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.zaehlenClick(Sender: TObject);
begin
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
satz[i]:=vokal[1];
else satz[i]:=konsonant[1];
end;
end.
[edit=sakura] [delphi]-Tags. Mfg, sakura[/edit]