Ich hab es jetzt nicht probiert, aber wie würde es bei mehreren Zeilen bei dir aussehen? Die würden doch in eine Zeile wandern oder?
Außerdem hab ich es glaub ich selber
:
Delphi-Quellcode:
procedure TVerschluesseln_Formular.Text_ausgeben;
var i, j: Integer;
begin
with Eingabetext_Formular.Eingabetext
do begin
for i := 0
to Lines.Count - 1
do for j := 0
to Length(Lines[i]) - 1
do begin
SetFocus;
SelStart := SendMessage(
Handle, EM_LINEINDEX, i, 0) + j;
SelLength := 1;
SelText := Text_Array [i, j];
end;
end;
end;
Es scheint einwandfrei zu klappen
Alle Formatierungen und Absätze bleiben beibehalten
Trotzdem danke für deinen Versuch, kam jetzt nur leider eine Minute zu spät
