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 + '
ä' ;
196: Satz:= Satz + '
Ä' ;
246: Satz:= Satz + '
ö' ;
214: Satz:= Satz + '
Ö' ;
252: Satz:= Satz + '
ü' ;
220: Satz:= Satz + '
Ü' ;
223: Satz:= Satz + '
ß' ;
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