Hallo,
Delphi-Quellcode:
Function MachMichHochkomma(s : String) : String;
var
i : Integer;
begin
s := s + ' '; // Damit wir am Ende immer ein Blank haben.
for i := 1 to Length(s) - 1 do begin
Case s[i] of
#32..#64 : begin // Die Liste ggfls. anpassen
Case s[i + 1] of // Zeichen hinter "Nichtbuchstaben"
#34 : s[i + 1] := #132;
end;
end;
#65..#90,#97..#122 : begin // Die Liste ggfls. anpassen
Case s[i + 1] of // Zeichen hinter "Buchstaben"
#34 : s[i + 1] := #148;
end;
end;
end;
end;
Result := s;
end;
Aufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
s : String;
begin
s := 'Text text "text" text text, text, text ("text") '
+ 'text "text", text. '
+ 'Text text "text" text text, text, text ("text") '
+ 'text "text", text.';
ShowMessage(MachMichHochkomma(s));
end;
Stephan
PS: Ist nur so hingedaddelt, Feinheiten bitte selbst einbauen und hier zur Verfügung stellen
