string nach smileys parsen

[SirThornberry]

ungefähr so (UNGEFÄHR)

Delphi-Quellcode:

var Nachricht: String;
    LStringlist: TStringlist;
begin
  LStringlist := TStringlist.create;
  while pos(' ', LNachricht) > 0 do
  begin
    LStringlist.Add(copy(Nachricht, 1, pos(' ', LNachricht)-1);
    LNachricht := copy(LNachricht, length(LStringlist.Strings[LStringlist.count-1]) + 1, length(LNachricht)); 
  end;
  LStringlist.Free;