Smilies im Chat??

[fkerber]

Hi!

Zitat von Sko:

Diese Prozedur sucht den entsprechenden String (hier ), löscht ihn und ruft die Prozedur Bildeinfuegen auf, die an diese Position dann den entsprechenden Smiley setzt(hier das Bild mit dem Index 0 aus der Imagelist "Smileys". Bei mir sieht das im ganzen dann so aus:

Delphi-Quellcode:

for i := 0 to 10 do
  begin
    SucheSmiley('*:-D*',0, MainForm.Smileys);
    SucheSmiley('*;-)*',1, MainForm.Smileys);
    SucheSmiley('*evil*',2, MainForm.Smileys);
    SucheSmiley('*cry*',3, MainForm.Smileys);
    SucheSmiley('*cool*',4, MainForm.Smileys);
    SucheSmiley('*shock*',5, MainForm.Smileys);
    SucheSmiley('*thumbup*',6, MainForm.Smileys);
    SucheSmiley('*grübel*',7, MainForm.Smileys);
    SucheSmiley('*angel*',8, MainForm.Smileys);
    SucheSmiley('*idea*',10, MainForm.Smileys);
    SucheSmiley('*->*',11, MainForm.Smileys);
    SucheSmiley('*!*',12, MainForm.Smileys);
    SucheSmiley('*?*',13, MainForm.Smileys);
    SucheSmiley('*freak*',14, MainForm.Smileys);
    SucheSmiley('*stupid*',15, MainForm.Smileys);
    SucheSmiley('*:-S*',16, MainForm.Smileys);
    SucheSmiley('*neutral*',17, MainForm.Smileys);
    SucheSmiley('*wiejetz*',0, MainForm.Smileys_2);
    SucheSmiley('*heuldoch*',1, MainForm.Smileys_2);
    SucheSmiley('*tuichdoch*',2, MainForm.Smileys_2);
  end;

Ist sicher nicht die optimalste Methode, ich bin auch noch Anfänger. Ich hab den ganzen Spass noch in einen Thread ausgelagert, da merkt mans nicht beim Nachrichtenschreiben etc.

Warum rufst du denn das ganze 11x auf?

Ciao Frederic