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]

Delphi-Quellcode:

      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:

Zitat von Tpercon

Sollte man das nicht mal in die richtige Rubrik verschieben?

Öhm, ja :oops: :arrow: Object-Pascal / Delphi-Language

...:cat:...

[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];

[iLLe]

Ich glaube das scheint gar nicht zu gehen zumindest nicht mit dem ansatzt es kommt immer der fehler das eine deklaration erwartet wird anstatt das property

[iLLe]

naja fals einer noch eine idee hat nur her damit die schüchteren werden nicht belohnt :mrgreen:

[neolithos]

Erklär bitte nochmal genau was du willst!

bis Montag

[tommie-lie]

Ihr seid Nasen!!

Zitat:

Zitat von iLLe

Delphi-Quellcode:

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

Ein property gehört zu einer Klasse, es kann nicht "lose" unter einem type stehen. Dahin kommen nämlich nur Deklarationen von neuen Typen.
Wenn du mit Properties experimentieren willst, musst du dich erstmal mit classes (Hilfestichwort: class) auseinandersetzen. Innerhalb einer Klasse kann man u.A. Felder und Properties definieren, wobei letztere von ersteren lesen oder in erstere schreiben (Grüße an JoelH :-)).
Eine Beispielklasse würde so aussehen:

Delphi-Quellcode:

type
  TMyClass = class
  private
    FFontStyle: TFontStyles // vorausgesetzt TFontStyles wurde bereits weiter oben deklariert
  public // oder published
    property FontStyle: TFontStyles read FFontStyle write FFontStyle default [fsBold, fsSonstwas, ...];
  end;

[iLLe]

mein buch is komisch :( kann mir jemand ein gutes empfehlen :(?

[tommie-lie]

Zitat:

Zitat von iLLe

mein buch is komisch :( kann mir jemand ein gutes empfehlen :(?

Wie wär's mit dem Delphi-Handbüchern? Waren bis auf das Internet meine einzige Quelle für Delphi, und hat trotzdem geklappt, wenn ich mich so anschaue :mrgreen: