also ich habe sowas ähnliches schonmal programmiert und hab es etwas angepasst :
Delphi-Quellcode:
procedure ReplaceSmilie(Smile : String; Source : TRichedit);
var Posi : Integer;
text : String;
begin
text := Source.Text;
while pos(Smile,Text) <> 0 do begin
if pos(Smile,Text) > 0 then begin
Posi := pos(Smile,Text);
delete(Text,pos(Smile,Text),Length(Smile)); // ':)' wird gelöscht
insert('hehe',Text,posi); // und an dessen stelle 'hehe' eingefügt. Bei dir eben das bild
end;
Source.Text := Text;
end;
end;
Ich hoffe das dir das hilft und ich nicht irgendwie an dir vorbeirede ^^
Bei der Zeile mit
insert('hehe',Text,posi);
musst du halt dein Smilie einfügen aber ich denke das das funktioniert.