AGB  ·  Datenschutz  ·  Impressum  







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

Mehr zeiliger Text(Ansi-String) in Richedit

Ein Thema von Gr0by · begonnen am 26. Mai 2008 · letzter Beitrag vom 27. Jun 2008
Antwort Antwort
Gr0by

Registriert seit: 26. Mai 2008
4 Beiträge
 
#1

Mehr zeiliger Text(Ansi-String) in Richedit

  Alt 26. Mai 2008, 20:15
Hallo erstmal,

ich habe folgendes Problem:
Ich schreibe gerade ein Programm,welches die Zeoslib Componente(mysql) benutzt.
Nun habe ich ein Richedit wo der User einen "Comment" scheiben soll... das einlesen in einen string
funzt,da hab ich schon etwas gefunden,aber beim auslesen der Datenbank und Formatiert(nur zeilenumbruch und einrücken) in einen Richedit einfühgen,dort komme ich nicht weiter...zb.mir fehlt komplett der Ansatz Ich habe auch schon daran gedacht eine Textdatei zu erstellen und dann über loadfromfile ,den Text einzulesen.Aber das wäre zu unsicher!

Ich hoffe ihr könnt mir helfen mfg Gr0by.

ps:Mir ist kein besser Titel eingefallen
  Mit Zitat antworten Zitat
michaelg

Registriert seit: 20. Apr 2008
87 Beiträge
 
#2

Re: Mehr zeiliger Text(Ansi-String) in Richedit

  Alt 27. Jun 2008, 03:56
Probier mal das:

Delphi-Quellcode:
  const //oder "var", je nach Delphi-Version
    StdRichFont:String='Arial';
    StdRichSize:Integer=11;
    StdRichStyle:tFontStyles=[];
    StdRichColor:tColor=clBlack;

  procedure SetRichEditText(RichEdit:tRichEdit; Text:String);
    var
      ms:tMemoryStream;
    begin
      if comparetext('{\RTF',copy(text,1,5))<>0 then begin
        RichEdit.Text:=Text;
        RichEdit.SelectAll;
        RichEdit.SelAttributes.Name:=StdRichFont;
        RichEdit.SelAttributes.Size:=StdRichSize;
        RichEdit.SelAttributes.Style:=StdRichStyle;
        RichEdit.SelAttributes.Color:=StdRichColor;
        RichEdit.Paragraph.FirstIndent:=0;
        RichEdit.Paragraph.LeftIndent:=0;
        RichEdit.Paragraph.Numbering:=nsNone;
        RichEdit.Paragraph.RightIndent:=0;
        RichEdit.Paragraph.TabCount:=0;
      end else begin
        ms:=tMemoryStream.Create;
        ms.Write(Text[1],Length(Text));
        ms.Position:=0;
        RichEdit.PlainText:=False;
        RichEdit.Lines.LoadFromStream(ms);
        ms.Free;
      end;
      RichEdit.SelStart:=0;
      RichEdit.SelLength:=0;
    end;
  Mit Zitat antworten Zitat
Antwort Antwort


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 13:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz