Widze że nikt nie umie/nie chce mi pomóc ;( ;( ;(
To może powiecie mi co robie źle ( na pewno coś ).
JEST TO NA FATMEMO - jak ktoś nie ma a chce mi pomóc to moge wysłać (jest na torry.net)
Więc tak mam to powiedzmy w OnPress Edita:
S:=Edit1.Text;
L:=Chat.Lines.AddNew;
Pozycja:=Pos(':)', S);
{tu jest szukanie " : ) " i zastępowanie na Imaga}
while Pozycja > 0 do
begin
S2:=Copy(S,0,Pozycja-1);
Delete(S, 1, Pozycja+1);
P:=L.Add;
P.FontColor:=StringToColor(C2);
P:=L.Add;
P.Text:=S2;
P := L.Add;
P.Bitmap := ImgSmile.Picture.Bitmap;
Pozycja:=Pos(':)', S);
end;
{a tu do języka :) )}
Pozycja:=Pos(':P', S);
while Pozycja > 0 do
begin
S2:=Copy(S,0,Pozycja-1);
Delete(S, 1, Pozycja+1);
P:=L.Add;
P.FontColor:=StringToColor(C2);
P:=L.Add;
P.Text:=S2;
P := L.Add;
P.Bitmap := Jezyk.Picture.Bitmap;
Pozycja:=Pos(':P', S);
end;
P:=L.Add;
P.FontColor:=StringToColor(C2);
P:=L.Add;
P.Text:=S;
no i działa jak mam np. ':) :) :) :P :P :P' - wtedy super zamienia wszystko na emotki. Ale np. Jak zrobie ':P :)' (gdy "język" jest przed "uśmiechem") "'języka" mi nie zamienia i zostaje " : P "
hmm... hmm... hmm... ?????????????????????????????????????????????? hmm... hmm... hmm...