Strings in RichEdit auf Substring ausrichten

[frieder2008]

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.