Moin und danke,
ja, das mit dem Einrücken hatte ich auch schon überlegt. Richedit muss sein wg. Formatierungen.
Folgendes klappt schon mal nicht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
wordpos: integer;
i: integer;
str, neustr: string;
mitte, neuepos: integer;
begin
mitte:= re.Width div 2;
for i:=0 to re.Lines.Count-1 do
begin
wordpos:= pos('haus', re.lines.strings[i]);
str:= re.lines.strings[i];
re.lines.strings[i]:= '';
neuepos:= mitte - wordpos;
insert(str, neustr, neuepos);
re.lines.strings[i]:= neustr;
end;
end;
Aber Leerzeichen auffüllen, sollte klappen.
