String Fett

[Knotti2005]

Hey wie kann ich beidisem Code erreichrn das der string nick fett erscheint...

Delphi-Quellcode:

var
  s: string;
  nick: string;
  DataThread: TClientDataThread;
begin
  // create thread
  DataThread:= TClientDataThread.Create(true);
  // set the TagetList to the gui list that you
  // with to synch with.
  DataThread.TargetList := memRecv.lines;
  // Load the Threads ListBuffer
  nick := ClientSocket.Receiveln;
  s := ClientSocket.Receiveln;
  while s <> '' do
  begin
    DataThread.ListBuffer.Add( nick + '-' + TimeToStr(Time) +'@' + ClientSocket.RemoteHost + '> '+ s);
    s := ClientSocket.Receiveln;
  end;
  // Call Resume which will execute and synch the
  // ListBuffer with the TargetList
  DataThread.Resume;
  memrecv.Perform(EM_SCROLLCARET, 0, 0);
end;

[Oxmyx]

Gar nicht, "nick" ist eine Variable und Variablen werden in der Delphi-IDE aus gutem Grund nicht fett geschrieben. Wenn du den Code ausdrucken willst und aus irgend einem Grund diese Variable hervorheben möchtest, kopier dir den Quellcode einfach in ein Schreibprogramm und ändere ihn nach deinen Vorstellungen.

[DGL-luke]

öhm... ich denke eher, er will den string irgendwo reinschreiben ^^

wenn du es in nen fließtext reinwillst, nimm ein TRichedit, wenn du es nur irgendwo in deinem programm erscheinen lassen willst, ein label und da mal die font-eigenschaft ansehen.

ah... ich sehe grade, "listbuffer" scheint ne art listbox oder sowas zu sein. kann das sein?

[Knotti2005]

Ich glaub du hast mich falsch verstanden ich will nur das es bei der Ausgabe in einem RichText als Schrift dick erscheint nicht in der IDE.. Er ist eine Veriable die im Programm übers Netzwerk übermittelt wird... Die soll sich halt vom Rest abheben...

memrecv ist eine RichText Komponente nun möchte ich das alles auser die Variabele s (wo die Nachricht ) drinnsteht Fett erscheint...

[DGL-luke]

ok, beim richedit musst du den entsprechenden text auswählen und dann per selection.font formatieren.

[Knotti2005]

Wie stell ich das an da das ja alles automatisch passiert...

[Luckie]

Bemüh doch bitte einfach mal etwas die Hilfe, wie man Zeichen in einem RichEdit formatiert haben wir schon oft genug besprochen und Beispiel-Code im Forum gibt es dazu auch genug.

Und beim nächsten mal beschreib dein Problem bitte gelich etwas besser. dass es es um ein ein Text geht, der in ein RichEdit geschrieben werden soll, ist werde aus deiner Fragestellung noch aus dem Stückquellcode ersichtlich.

[Knotti2005]

Ich hab mich ja schon beschäftigt mit...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with richedit1 do
  SelAttributes.Style := [fsBold];
    richedit1.Lines.Add(edit1.Text);
  richedit1.Lines.Add(edit1.Text);
  richedit1.Lines.Add(edit2.Text);
end;

zb... als Probe nur manchmal ist edit1 fett manchmal auch alles dann wieder gernix irgentwas mach ich falsch..

[DGL-luke]

Delphi-Quellcode:

procedure Addbold(r: TRichEdit; s: string);
var start:integer;
begin
  start := r.strings.count -1;
  r.strings.add(s);
  r.selstart := start;
  r.sellength := r.strings.count - start;
  r.selAttributes.Style := [fsbold];
  r.sellength := 0;
  r.selstart := r.strings.count -1;
end;

So in etwa sollte das gehen. Bin mir nicht ganz sicher, ob die properties genau so angesprochen werden, also ein bisschen transferarbeit leisten ;)

[malo]

@DGL-Luke: Wenn du jetzt noch einen call-by-reference-Parameter verwendest, kann man die Funktion sogar benutzen :mrgreen:
also so:

Delphi-Quellcode:

procedure Addbold(s: string; var r: TRichEdit);

;)

[marabu]

Hi Calvin,

denke nochmal drüber nach. Der Zeiger auf das RichEdit soll ja gar nicht verändert werden - nur der Inhalt.

Grüße vom marabu

[malo]

Zitat:

Zitat von marabu

Hi Calvin,

denke nochmal drüber nach. Der Zeiger auf das RichEdit soll ja gar nicht verändert werden - nur der Inhalt.

Grüße vom marabu

Aber mit der Prozedur wird das RichEdit gar nicht verändert. Man muss also einen Zeiger übergeben, damit man auf das RichEdit, auf das verwiesen wird, zugreifen kann. Ein Aufrufebeispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddBold(Richedit1, 'test');
end;

Das ist jetzt bei der ersten Version. Was würde bei diesem Code passieren, wenn kein Zeiger übergeben wurde?
Nichts, weil das Richedit kopiert wird, statt referenziert ;)

[marabu]

So glaub mir doch, hier sind nur Zeiger im Spiel. Was wird wohl SizeOf(RichEdit1) liefern? Der Unterschied von call-by-value und call-by-reference tritt nur zu Tage, wenn du den Zeiger verändern möchtest. Für die Änderungen an den RichEdit1 properties ist die calling convention hier nicht relevant. Ich würde sogar sagen, dass call-by-value hier die vernünftigste Lösung ist. Nicht auszudenken, was alles passieren könnte, wenn da aus Versehen der Zeiger überschrieben würde.

Freundliche Grüße vom marabu