Eigene Funktion erstellen

[-lx-]

Hallo.

Und zwar bin ich gerade dran mir eien kleinen eigenen HTML Konvertierer zu bastlen.

Also ich gebe eien Text ein und dann wird mir der konvertierte Tet inklusive Quellcode usw. ausgegeben.

Soweit sogut. Jedoch würde ich gerne die Eingabe, die später innerhalb des bodys stehen und im Titel der Seite, überprüfen lassen, ob sie Umlaute oder SOnderzeichen enthalten und die dann gegebenfals umwandeln.

Code:

laenge:= Length(MText.Text);
Satz:='' ;
For i:= 1 To laenge Do
  begin
    Buchstabe:= ord(MText.Text[i]);
    Case Buchstabe of
      228: Satz:= Satz + 'ä' ;
      196: Satz:= Satz + 'Ä' ;
      246: Satz:= Satz + 'ö' ;
      214: Satz:= Satz + 'Ö' ;
      252: Satz:= Satz + 'ü' ;
      220: Satz:= Satz + 'Ü' ;
      223: Satz:= Satz + 'ß' ;
       10: Satz:= Satz + '
' + chr(10) ;
       13: Satz:= Satz + '' ;
      Else Satz:= Satz + chr(Buchstabe);
    end;

so, dies wäre der Teil, indme die Eingaben überprüft werden. Jedoch würde ich gerne auch den Titel überprüfen lassen und da müsste ich ja das Gleiche nocheinmal schreiben.

Gibt es die Möglichkeit diesen ganzen oberen Ablauf/Folge mit Hilfe einer "Funktionsvariable" aufzurufen?

also z.b. " umlaut('hier stäht jedä mänge täxtä') "

Die obere Folge heißt theoretisch "umlaut" -Funktion und der nachfolgende Text wird mit Hilfe dieser Funktion auf UMlaute überprüft.

Ich hoffe ich konnte euch in Etwa erklären, was ich meine.

Ich möchte Quasi nicht nocheinmal das Gleiche schreiben, um andere Variablen auf ihren Inhalt zu überprüfen.



mfg
Cya