Funktion Copy verwenden - wie?

[DeddyH]

Zitat:

Delphi-Quellcode:

client.socket.SendText(inttostr(c)...

Wozu den Farbstring erstellen, wenn Du doch IntToStr(c) sendest? Ersetz das mal.

[Lyan]

kommt beim senden vom client immer "testnachricht" ist kein gültiger integer-wert.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var c: Integer;
    Farbstring: String;
begin
  c := colordialoguser.color;
  Farbstring := Format('%.2x%.2x%.2x', [GetBValue(c), GetGValue(c), GetRValue(c)]);
  if strtoint(memo2.Text) <> 0 then
    richedit1.SelAttributes.Style := [fsBold];
  client.socket.SendText(Farbstring + editusername.text + ' -> ' + memo2.text);
  memo2.Clear;
end;

[Lyan]

http://imageshack.us/f/846/deddy.jpg/

[DeddyH]

Ah, sch**ß C&P. Was soll denn

Zitat:

Delphi-Quellcode:

if strtoint(memo2.Text) <> 0 then
    richedit1.SelAttributes.Style := [fsBold];

bewirken? Dann darf in dem Memo auch nur eine Zahl stehen und nichts anderes.

[Lyan]

Zitat:

Zitat von DeddyH (Beitrag 1117760)

Ah, sch**ß C&P. Was soll denn

Zitat:

Delphi-Quellcode:

if strtoint(memo2.Text) <> 0 then
    richedit1.SelAttributes.Style := [fsBold];

bewirken? Dann darf in dem Memo auch nur eine Zahl stehen und nichts anderes.

Wollte damit bewirken das man keine leeren messages senden kann

[DeddyH]

Dann ersetze das StrToInt durch Length.

[Lyan]

okay funktioniert jetzt...

aber nur die attribute funktioniert (also das Bold) was dann später die Übersicht halten soll, dass man besser sieht was man selber geschrieben hat

Also das mit dem copy

[DeddyH]

Wenn ich Dich recht verstehe (ich habe jetzt keine Lust, den gesamten Code durchzugehen) musst Du das im Groben so machen:
- Farbstring auslesen und in TColor umwandeln (erledigt)
- ggf. SelLength des Richedits auf 0 setzen
- SelAttributes.Color auf die ermittelte Farbe setzen
- SelText auf den restlichen Text der Nachricht setzen

[Lyan]

Ich löse das mit Pos und PosEX ...