Ich versuche jetzt gerade für Menüpunkt D eine Anweisung zu erstellen die alle Wörter in denen kein Operator enthalten ist löscht.
Bsp.: (Gu+en Tag) wird zu (Gu+en).
Jedoch ist dies komplizierter als gedacht.
Habt iht vielleicht eine Idee?
Ich darf jedoch keine Arrays oder selbstgemachte Funktionen anwenden.
Delphi-Quellcode:
begin
if length(satz) > 0 then
begin
leerZeichen := ' ';
laufVariable := 1;
repeat
for laufVariable := 1 to pos(leerZeichen, satz, laufVariable) do
begin
case satz[laufVariable] of
'+':
inc(anzahlPlus);
'-':
inc(anzahlMinus);
'*':
inc(anzahlMal);
'/':
inc(anzahlGeteilt);
end;
keinOperator := (anzahlPlus = 0) and (anzahlMinus = 0) and
(anzahlMal = 0) and (anzahlGeteilt = 0);
if keinOperator then
delete(satz, laufVariable,
(pos(leerZeichen, satz, laufVariable) - 1));
end;
until (length(satz) = laufVariable);
end