AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

String erkennen und mit Bild ersetzen

Ein Thema von -Phantom- · begonnen am 3. Jul 2011 · letzter Beitrag vom 3. Jul 2011
 
-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#1

String erkennen und mit Bild ersetzen

  Alt 3. Jul 2011, 16:45
Delphi-Version: 7
Hey Leute,

Ich scheibe wie so viele einen Chat. Ich bin nun bei einem Punkt wo das Programm z.B aus einem ": D" ein Smiley Bild machen soll. Ich hab es nun so halb hinbekommen aber auch nur sehr unelegant gelöst.
Delphi-Quellcode:
procedure Tchat.Smileyerkennen();
var
letzezeile, i : Integer;
duchstring,zeichen : String;
bild : Tbitmap;
begin
letzezeile := verlaufbox.Lines.Count-1;
duchstring := verlaufbox.Lines[letzezeile];
bild := tbitmap.Create;
imagelist1.GetBitmap(0,bild);
clipboard.Assign(bild);
bild.Free;
for i := 0 to length(duchstring) do begin
zeichen := duchstring[i]+duchstring[i+1];
if zeichen = ':Dthen begin
verlaufbox.SelStart := SendMessage(verlaufbox.Handle, EM_LINEINDEX, letzezeile, i) + i-1;
verlaufbox.PasteFromClipboard;
end
end;
Ver zeit mir die Namensgebung der Variablen, es ist noch ein Test Projekt...

Das Ergebnis sieht dann so aus, dass das Bild richtig eingefügt ist aber das ": D" immer noch da ist. Wenn ich nun mit "Stringreplace()" versuche das ": D" wegzukommen wird ja wieder die "changemethode" von der Verlaufbox ausgelöst und er findet kein Smiley mehr.

Hoffe ihr könnt mir helfen...
Mathias Jansen
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz