Frage zu einfache Mengentypen

[iLLe]

Ich hab mal aus spass ein einfaches prorgamm gemacht das alle Vokale erkennt und dann die anzahl ausgibt leider funktioniert es nicht richtig

Code:

procedure TForm1.Button1Click(Sender: TObject);
type Tvokabel=set of char;
var vokabel:Tvokabel;
    i,c,anzahl:integer;
    a:string;
begin
  a:=edit1.Text;
  vokabel:=['a','i','o','u','e'];
  setlength(a,c);
  anzahl:=0;
  for i:=0 to high(c) do
  begin
 if edit1.text[i+1] in vokabel then inc(anzahl)//Hier liegt der fehler 
  end;
  label1.caption:=inttostr(anzahl);
end;

Also es lässt sich starten jedoch wen ich den knopf drücke kommt eine fehlermeldung.

[neolithos]

Was soll

Code:

SetLength(a, c);

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
  csVocals : set of char = ['a', 'i', 'o', 'u', 'e'];
var sText : String;
    I,
    iCount : Integer;
begin
  sText := Edit1.Text;
  iCount := 0;
  for I := 1 to Length(sText) do
      if sText[I] in csVocals then
         Inc(iCount);
  Button1.Caption := IntToStr(iCount);
end;

ich hoffe es hilft

[iLLe]

danke hatt mir geholfen
hätte aber noch ne frage dazu
Mengen als eigenschaften wollte ich was testen und er nimmt das "property" irgendwie nicht an warum ?

Code:

type TFontstyle=(fsbold,fsitalic,fsunderline,fsstrikeout);
     TfontStyles=set of Tfontstyle;
      property style:Tfontstyles;

[neolithos]

      property style:Tfontstyles read fStyle; Versuch es mal so!

Falls du noch nichts mit Eigenschaften gemacht hast, geh mit den Schlüssel

Zitat:

property (reserviertes Wort)

in die Delphi-Hilfe.
Oder frage nach!

[iLLe]

Naja es funktioniert irgendwie nicht das obenw as ich gepostet hatte stand in nem buch drind as dann die eigenschaft Style(im OI) die die sachen in klammer[fsbold,fsitalic,fsunderline,fsstrikeout] da stehen hatt anstatt nur [] wen man das macht ich dachte auch zuerst das da read oder so was fehlt weil ich damals als ich eine komponente gemacht habe viel mit propertys zu tun hatte nunja immer die selbe Fehlermeldung
das eine deklaration erwartet wird anstatt 'PROPERTY'

[neolithos]

Was wolltest du mit dieser Zeile bezwecken?

Vielleicht eine Eigenschaft veröffentlichen?
ODER
Eine neue erzeugen mit irgenwelchen Default-Werten?

[Tpercon]

Sollte man das nicht mal in die richtige Rubrik verschieben?

[sakura]

Zitat von Tpercon:

Sollte man das nicht mal in die richtige Rubrik verschieben?

Öhm, ja Object-Pascal / Delphi-Language

......

[iLLe]

ich wollte das font - style wen man ein label als bsp auf form macht und dann im OI durchklickt zu style sieht man da

Code:

[]

und nach dem buch zufolge wen ich das eintippe steht da eben

Code:

[fsbold,fsitalic,fsunderline,fsstrikeout]

[neolithos]

versuch mal
property Style default [fsbold,fsitalic,fsunderline,fsstrikeout];