Eigene Funktion erstellen

Ist nun schon was klarer

Delphi-Quellcode:

			function konvert(Text:string):string;

var laenge, i, Buchstabe :Integer ;

begin

laenge:= Length(Text);

Satz:='' ;

For i:= 1 To laenge Do

  begin

    Buchstabe:= ord(Text[i]);

    Case Buchstabe of

      228: Satz:= Satz + '&auml;' ;

      196: Satz:= Satz + '&Auml;' ;

      246: Satz:= Satz + '&ouml;' ;

      214: Satz:= Satz + '&Ouml;' ;

      252: Satz:= Satz + '&uuml;' ;

      220: Satz:= Satz + '&Uuml;' ;

      223: Satz:= Satz + '&szlig;' ;

       13: Satz:= Satz + chr(13) + chr(10) + '<br' ;

       10: Satz:= Satz + '>' + chr(13) + chr(10);

      Else Satz:= Satz + chr(Buchstabe);

    end;

  end;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

Satz:= konvert(Satz);

MHTML.Clear ;

MHTML.Lines.Add('<html>');

MHTML.Lines.Add('<head>');

MHTML.Lines.Add('<title>  </title>');

MHTML.Lines.Add('</head>');

MHTML.Lines.Add('<body>');

MHTML.Lines.Add( Satz ) ;

MHTML.Lines.Add('</body>');

MHTML.Lines.Add('</html>');

end;

Was ist nun daran falsch? Es muss ein problem mit der funktion geben.

Die Variable "Satz" ist eine globale String-Variable!

mfg
Cya

Eigene Funktion erstellen

Re: Eigene Funktion erstellen

Forumregeln