zusammenhängende Doku irgendwo verfügbar?

motion · Beiträge: 295 XP, Linux D7 Prof

Gibt es irgendwo eine etwas umfangreichede Doku im Netz, welche die Nutzung der RichEdit VCL Komponente beschreibt.
Überall (auch hier im Forum) liegen ein paar Brocken rum, ich suche da mal etwas Ausführlicheres, damit ich den Zugang zur Nutzung hin kriege.

Mein aktuelles Problem ist z.B.:
Wie kopiere ich den RichtText inkl. Formattierungen aus einer Komponente in ein Blob Feld der Datenbank (eine DBRichText Komponenten kann ich in diesem Fall leider nicht verwenden). Geht das nur über ein Stream?

Gausi · Verfasst: Mi 05.10.05 21:43

motion hat folgendes geschrieben:

Mein aktuelles Problem ist z.B.:
Wie kopiere ich den RichtText inkl. Formattierungen aus einer Komponente in ein Blob Feld der Datenbank (eine DBRichText Komponenten kann ich in diesem Fall leider nicht verwenden). Geht das nur über ein Stream?

Soviel ich weiss, ja. Über RichEdit1.Text erhält man nur den Text ohne die Formatierungen. Um diese auch zu kopieren, muss man den Umweg über einen Stream gehen. Aber ich meine, dass das auch so in der Delphi-Hilfe steht...

_________________
We are, we were and will not be.

Lannes · Verfasst: Mi 05.10.05 22:12

Hallo,

motion hat folgendes geschrieben:

Gibt es irgendwo eine etwas umfangreichede Doku im Netz...

meines Wissens nicht.

Zu deinem aktuellen Problem:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GetRTFFromRichEdit(aRichEdit: TRichEdit): String;
var StrS : TStringStream;
begin
  StrS := TStringStream.Create('');
  try
    aRichEdit.Lines.SaveToStream(StrS);
    Result := StrS.DataString;
  finally
    StrS.Free;
  end;
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

motion · Beiträge: 295 XP, Linux D7 Prof

Bingo,
das scheint ein brauchbares Code-Fragment für mein aktuelles Problem zu sein.
ich werd's morgen mal testen.

motion · Beiträge: 295 XP, Linux D7 Prof

@Lannes,
jawoll, das hat funktioniert.
Jetzt bleibt nur noch das Restproblem, die Daten aus dem String wieder einzuladen. Okay, das kann man mit LoadfromStream machen, aber wie füttere ich den TStringStream als Zwischenpuffer damit?
Ich habe mal kurz probiert

markieren

Delphi-Quelltext

1:
2:
3:

        Buffer:=IB_Query1.FieldByName(Spaltenname).asString;
        Strs.Read(Buffer,Length(Buffer)); //Das klappt wohl nicht
        RTF.LoadFromStream(Strs);

Aber das Konstrukt funktioniert leider nicht.

Lannes · Verfasst: Do 06.10.05 09:31

Hallo,

versuch es mal damit: :wink:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure SetRTFToRichEdit(sRTF: String;aRichEdit: TRichEdit);
var StrS : TStringStream;
begin
  StrS := TStringStream.Create('');
  try
    StrS.WriteString(sRTF);
    StrS.Position := 0;
    aRichEdit.Lines.LoadFromStream(StrS);
  finally
    StrS.Free;
  end;
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

motion · Beiträge: 295 XP, Linux D7 Prof

Super,
funktioniert wie 'ne eins!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme