Thema: Delphi Smilies im Richedit

Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#16

Re: Smilies im Richedit

  Alt 21. Jun 2005, 14:42
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.
Michael
  Mit Zitat antworten Zitat