Zerteilen eines String in einzelne Zeichen

[Mo53]

Vielen Dank für eure Mühe, leider muss ich mit dem Compilerschalter {$R+,Q+,X-} arbeiten, da funktionieren diese Varianten leider nicht, mann könnte das aber sicher umschreiben

[haentschman]

Moin...

Zitat:

da funktionieren diese Varianten leider nicht,

...Gott sei Dank.

Mache mal einen Ablaufplan, von mir aus auf Papier, was du in welcher Reihenfolge machen mußt. Welche Werte du bei jedem Step prüfen und ggf. speichern mußt.

[Michael II]

Zitat von Mo53:

Vielen Dank für eure Mühe, leider muss ich mit dem Compilerschalter {$R+,Q+,X-} arbeiten, da funktionieren diese Varianten leider nicht, mann könnte das aber sicher umschreiben

Und wann werdet ihr Delphi lernen? {$X-} soll man in Delphi Programmen nicht verwenden. Noch einmal der Link.

TStringList.Add() ist eine Funktion. Mit {$X-} musst du den Funktionswert zwingend abfragen.
hs.add(was) gibt den Index:Integer in der Liste hs zurück, wo was eingefügt worden ist. Du musst (wegen {X-}) diesen Rückgabewert abfragen. Also so: dummy := hs.add(was).
Wenn du {$X-} kompilierst hast du in Funktionen auch keinen Zugriff auf Result (siehe frühere Hausaufgaben).

Delphi-Quellcode:

procedure absolute_haeufigkeit( satz : string; hs : TStringList );
var zeichen : char;

    procedure zaehler( was : string );
    var  dummy, anzahl : integer;
    begin
        anzahl := strtointdef(hs.Values[was],0);
        if (anzahl = 0) then dummy := hs.Add( was + '=1' ) else hs.Values[was] := inttostr(anzahl+1);
    end;
begin
  satz := Uppercase( satz );
  for zeichen in satz do
    if CharInSet( zeichen, ['A'..'Z'] ) then
    begin
      zaehler( zeichen );
      if CharInSet( zeichen, ['A','E','I','O','U'] ) then zaehler( '*Vokale' ) else zaehler( '*Konsonanten' );
    end;
end;

[Mo53]

Mit Add und was habe ich ganz ehrlich noch nie hantiert und anscheinend funktionieren die auch nicht mit dem Angegebenen Compilerschalter.
Wir sollen alle Pascal Programme mit diesen Compilerschaltern erstellen, dann fangen wir nächstes Semester mit Java an.

[Michael II]

Zitat von Mo53:

Mit Add und was habe ich ganz ehrlich noch nie hantiert und anscheinend funktionieren die auch nicht mit dem Angegebenen Compilerschalter.
Wir sollen alle Pascal Programme mit diesen Compilerschaltern erstellen, dann fangen wir nächstes Semester mit Java an.

Doch. hs.Add() in #9 mit {$X-} Schalter funktioniert.

Du musst aber bei Verwendung von {$X-} (siehe oben in #9 erklärt) bei jeder Funktion das Resultat abholen; egal ob dich dieses nun interessiert oder nicht. hs.add(was); kann nicht kompiliert werden, weil add() eine Funktion ist und einen integer Wert zurück liefert. Du musst also diesen integer abholen:
Wenn du schreibst dummy := hs.add( was ); kannst du den Code mit {$X-} kompilieren.

Weiteres Beispiel?

Die Funktion tu_was multipliziert a mit 3 und gibt true zurück, wenn das Resultat gerade ist:

Delphi-Quellcode:

function tu_was( var a : integer ) : boolean;
begin
  a := a*3;
  tu_was := a mod 2 = 0;
end;

Wenn du gar nicht daran interessiert bist, ob das Resultat gerade ist, sondern nur am neuen Wert des Arguments, dann könntest du tu_was so aufrufen:

Delphi-Quellcode:

var b : integer;

begin
  b := 11;
  tu_was( b );
  writeln( b );
  readln;
end.

b ist am Anfang 11. In tu_was wird 11 mit 3 multipliziert und zurückgegeben. Ausgegeben wird 33.

Der Code oben kann aber nicht kompiliert werden, wenn du {$X-} gesetzt hast. Grund: Du hast das Resultat der Funktion tu_was nicht abgeholt.

Wenn du schreibst:

Delphi-Quellcode:

var b : integer;
    hb : boolean;
begin
  b := 11;
  hb := tu_was( b );
  writeln( b );
  readln;
end.

funktioniert's mit {$X-}. Grund: Du holst nun mittels hb := das Resultat von tu_was ab.

Es gibt natürlich zig andere Lösungswege für deine Aufgabe. Tipp: Weniger nach Lösungen googlen und mehr selber ausprobieren .