Mit POS Smilys ersetzen, findet aber nur 1. Smily

[Die Muhkuh]

Nunja, komischer Titel aber er trifft genau zu!

Also ich hab folgenden Code:

Delphi-Quellcode:

procedure TForm1.SmilyAktuallisieren(Richedit: TRxRichEdit);
var
  I : Integer;
begin
  for I := 0 to Richedit.Lines.Count - 1 do
  begin
    if pos(':-)', Richedit.Lines.Text) <> 0 then
    begin
      with Richedit do
      begin
        SelStart := pos(Copy(Richedit.Lines.Text, pos(':-)', Richedit.Lines.Text) - 2, 2), Richedit.Lines.Text);
        SelLength := 3;
        SelText := ' ';
        Form1.Image1.picture.LoadFromFile(BildPath + 'S_grinsend.bmp');
        InsertSmily;
      end;
    end;

    if pos(':-(', Richedit.Lines.Text) <> 0 then
    begin
      with Richedit do
      begin
        SelStart := SelStart - 4;
        SelLength := 3;
        SelText := '';
        Form1.Image1.picture.LoadFromFile(BildPath + 'S_schmollend.bmp');
        InsertSmily;
      end;
    end;

    if pos(':-|', Richedit.Lines.Text) <> 0 then
    begin
      with Richedit do
      begin
        SelStart := SelStart - 4;
        SelLength := 3;
        SelText := '';
        Form1.Image1.picture.LoadFromFile(BildPath + 'S_neutral.bmp');
        InsertSmily;
      end;
    end;

    if pos(':-D', Richedit.Lines.Text) <> 0 then
    begin
      with Richedit do
      begin
        SelStart := SelStart - 4;
        SelLength := 3;
        SelText := '';
        Form1.Image1.picture.LoadFromFile(BildPath + 'S_lachend.bmp');
        InsertSmily;
      end;
    end;
  end; 
end;

Ich füge in ein RXRichEdit einen Smily ein. Der Code für einen lachenenden ist . Da geht auch aber wenn zwei mal ein lachender Smily eingefügt wird. Bekommt nur der erste ein Bild beim zweiten steht immer noch der code da (). Kann mir mal jemand helfen? Das Problem ist das immer nur das erste Vorkommen geprüft wird und dann hörts auf!

[Matze]

Probiere das mal:

if pos(':-)', Richedit.Lines[i]) <> 0 then

[Sharky]

Hai Spider,

Du prüfst ja auch nur einmal pro Zeile ob ein "Smily" da ist. Du solltest dein Pos-Prüfung in eine Schleife packen die so lange durchlaufen wird bis der Smily in der Zeile nicht mehr gefunden wird.

[Edit] Und der Hinweis von Matze ist natürlich auch zu beachten [/Edit]

[Die Muhkuh]

ne geht auch net.

Jetzt sieht das so aus:

Code:

Admin (27.02.2004 08:29:57):
asd (Hier ist ein Smily) in (27.02.2004 08:30:00):
asd :-) asdasd
Admin (27.02.2004 08:30:04):
 asas

Da wo noch ist kein Smily.


PS: Da wo in (<Datum, Zeit>) steht sollte Admin (<Datum , Zeit>)

[Die Muhkuh]

Zitat von Sharky:

Hai Spider,

Du prüfst ja auch nur einmal pro Zeile ob ein "Smily" da ist. Du solltest dein Pos-Prüfung in eine Schleife packen die so lange durchlaufen wird bis der Smily in der Zeile nicht mehr gefunden wird.

[Edit] Und der Hinweis von Matze ist natürlich auch zu beachten [/Edit]

Hi Fisch,

Ähm die Pos-Prüfung ist doch schon in einer Schleife oder wie meinst du des?

[Matze]

Du solltest 2 Schleifen nehmen, eine, die die Zeile komplett durchläuft und eine, die alle zeilen durch läuft.

Die äußere Schleife durchläuft alle zeilen, die innere jedes zeichen einer zeile.

[Die Muhkuh]

?

Wo soll dann die Schleife hin?

[Matze]

Die soll dahin, wo du den Text nach Smileys überprüfst.

[Die Muhkuh]

Also hier:

Delphi-Quellcode:

 for I := 0 to Richedit.Lines.Count - 1 do
  begin
    if pos(':-)', Richedit.Lines.Text) <> 0 then
    begin
      with Richedit do
      begin
        for II := 0 to {Was???} do  //<-- HIER?
        begin
        SelStart := pos(Copy(Richedit.Lines.Text, pos(':-)', Richedit.Lines.Text) - 2, 2), Richedit.Lines.Text);
        SelLength := 3;
        SelText := ' ';
        Form1.Image1.picture.LoadFromFile(BildPath + 'S_grinsend.bmp');
        InsertSmily;
      end;
    end;
    end;

[Matze]

ne, so:

Delphi-Quellcode:

for i := 0 to RichEdit.Lines.Count.1 do
  for i := 1 to LängederZeile(kA, wie der Befehl ist :angle2:) do
  begin
     //Code
  end;