Bilder in Richedit

[ichbins]

wie wärs mit:

den selben code mehrmals ausführen?

etwa so:

Delphi-Quellcode:

procedure TForm1.JvRichEdit1Change(Sender: TObject);
var
  Bitmap: TBitmap;
  i,rep,pos :integer;
const
  smileys:array of [0..1] string = (':-(',':-)');  //Hier Smileys speichern. [:-(] in Element 0 der Imagelist, [:-)] in Element 1 der Imagelist usw...
begin
  for i:=low(smileys) to high(smileys) do begin 
    rep:=0;
    pos:=0;
    while pos<>-1 do begin
      Pos := jvrichedit1.FindText(smileys[i], rep, Length(JvRichEdit1.Text), []);
      rep:=rep+1
      if Pos <> -1 then
      begin
        Bitmap := TBitmap.Create;
        ImageList1.GetBitmap(i, Bitmap);
        JvRichEdit1.SetSelection(Pos, Pos + length(smileys[i]), true);
        JvRichEdit1.InsertGraphic(Bitmap, false);
        JvRichEdit1.SelStart := Length(JvRichEdit1.Text);
        Bitmap.free;
      end;
    end;
  end;

(ungetestet)