Entwickler-Ecke
Internet / Netzwerk - Indy Demos 9.0 (>Chat)
hibbert - Di 08.07.03 15:14
Titel: Indy Demos 9.0 (>Chat)
Hallo,
ich habe mir mal den Chat der Indy Demos angesehen und habe den etwas verändert. Ich habe anstatt des memos ein Richedit hingesetzt. Nun möchte ich gerne folgendes:
- Wenn eine Nachricht vom Server kommt, soll die nachricht Blau sein
- Wenn eine Nachricht von einem anderen User kommt, soll die Nachricht Grün sein
- Wenn es eine Private Nachricht ist, soll die Nachricht Rot sein
Wie ich den Text des Richedits färbe weiß ich schon, aber wie erkenne ich, von wem die nachricht ist, und was für ein Nachrichten-Typ (Privat/öffentlich) es ist?
thx Hibbert
SpeedyGTD - Di 08.07.03 21:38
ich würde irgendwas vor die Nachricht setzen, zB § für normale, $ für Server und % für eine Private nachricht, wenn das dann ankommt nimmst du einfach den ersten buchstaben, überprüfst was es für einer ist und färbst daraufhin ein ;), das erste Zeichen müsste natürlich gelöscht werden ;)
hibbert - Mi 09.07.03 16:54
Danke, ich glaube das lässt sich machen, nur wie entferne ich wieder das erste Zeichen?
thx hibbert
derDoc - Mi 09.07.03 17:28
Wie wäre es mit:
Delphi-Quelltext
1:
| StringVariable := copy(andereVariable, 2, Length(andereVariable)-1); |
andereVariable sollte auch ein String enthalten.
hibbert - Mi 09.07.03 17:51
mhh, das zeichen was ich davor geschrieben habe wird trotzdem mit angezeigt irgendwas funzt da nicht
hibbert
derDoc - Mi 09.07.03 19:26
Also ich habe das gerade nochmal getestet.
Ein Button, ein Edit und ein Label auf ein Formular gesetzt und folgender Quellcode:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := copy(Edit1.Text, 2, Length(Edit1.Text)-1);
end; |
Wenn du den Text im Editfeld belässt steht bei mir im Label: dit1 (E fehlt)
hibbert - Mi 09.07.03 19:59
Ich hab das dann mal mit ner Variable getestet und das funzt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
a:=edit1.Text;
Label1.Caption := copy(a, 2, Length(a)-1);
end; |
vorher habe ich das zwar auch so gemacht, aber nur Gott weiß warum das nicht funktioniert hat :wink:
Danke
Hibbert
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!