Genau so wollte ich es haben
Das mit der Selektion müsste ich dann aber in der Ausgabe machen.. muss ich dann jeden einzelnen Buchstaben markieren und ersetzen?
Ich probier es mal vielleicht klappt es ja sogar^^ Ich poste dann gleich mal den Text
Edit:
Delphi-Quellcode:
procedure TVerschluesseln_Formular.Text_ausgeben;
var i, j, Markierung: 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
Markierung := Markierung + 1;
SetFocus;
SelStart := Markierung;
SelLength := 1;
SelText := Text_Array [i, j];
end;
end;
end;
Es scheint nicht zu klappen, beide Texte sind noch vorhanden und es gibt ein unregelmäßiges Buchstabengewursel... Was schein ich falsch zu machen?