RichEdit Text auf gefüllt prüfen

[Eppos]

Hallo zusammen,

ich habe foglendes Problem. Ich habe ein Feld TDBRichEdit der den Text in die DB schreibt.
Wenn ich diesen Text nun aus der Datenbank lade und auf gefüllt prüfe dann schaut das so aus:

Delphi-Quellcode:

If aRichEdit = '' then close;

Da es aber nie leer ist greift diese Abfrage nicht.
Hab Ihr eine andere Idee?

Danke

[mkinzler]

Welchen Typ hat aRichEdit?

[Eppos]

aRichEdit : String;

[DeddyH]

Ist das Feld NOT NULL deklariert? Wenn ja, wie lautet der Standardwert?

[Eppos]

vielleicht hilf es weiter was drin steht:
{\rtf1\ansi\deff0{\fonttbl{\f0\fnil MS Sans Serif;}}'#$D#$A'\viewkind4\uc1\pard\lang1031\f0\fs 16 '#$D#$A'\par }

[DeddyH]

Ich bin jetzt nicht so vertraut mit dem RichText-Format, aber da steht mindestens ein Zeilenumbruch drin('#$D#$A').

[Eppos]

aber ich vergleich ja so:

Delphi-Quellcode:

if ( aMemo = '' ) then exit;

und in Memo stehen ja jede Menge zeichen

[DeddyH]

Lädst Du RichText in ein Memo? Dann stehen natürlich die ganzen Formatierungsanweisungen mit drin.

[Eppos]

also die Varibale heisst zwar aMemo, ist aber als String deklariert.
Aber die Formatierungen stehen so in der Datenbank. Es müsste als eine Funktion geben,
wo die Formatierungen abschneidet.

[mkinzler]

Was für einen typ hat das Feld?

[DeddyH]

Quick & Dirty-Lösung: den String in ein RichEdit laden, in dem PlainText auf true steht. Dann einfach dessen Text auslesen.

[Eppos]

Daran hatte ich auch schon geadach, fand ich aber keine schicke Lösung...

@Kinzler
Ich denke du meinst den Typ in der DB, der ist Blob 80

[DeddyH]

Naja, vielleicht kannst Du auch direkt mit der Riched32.dll arbeiten, aber ob der Aufwand lohnt, muss jeder selber wissen.

[simmi]

Kannst Du nicht einfach die Daten in die Komponente TRichEdit laden und die Frage nach dem gefüllt in etwa so stellen

Delphi-Quellcode:

if RichEdit1.Lines.Count=0 then

Sofern keine Zeile Text enthalten ist sollte es funktionieren.

[mkinzler]

Wie liest du den Blob aus?

[DeddyH]

Er will ja kein Richedit verwenden (obwohl sich das bei RichText ja geradezu aufdrängt).

[mkinzler]

Ich würde den Blob auch nicht unbedingt mit einem Richedit auslesen

[DeddyH]

Sondern?

[mkinzler]

Mir geht es um den Zugrigg auf das Datenbankfeld nicht um die Visualisierung

[DeddyH]

Ja eben, ich lese BLOBs immer in einen Stream ein. Nun steht da aber RichText drin, wie soll ich die Formatierung ohne RichEdit da rausbekommen?

[Eppos]

wie erzeugt man ein RichEdit zur Laufzeit ohne große was anzuzeigen?

[DeddyH]

Hier lade ich einen String aus einem MemoryStream in ein RichEdit und lasse ihn mir ausgeben. Bei Dir wäre das vermutlich ein BlobStream.

Delphi-Quellcode:

procedure TfrmMain.btnLoadClick(Sender: TObject);
var re: TRichEdit;
    memStream: TMemoryStream;
begin
  re := TRichEdit.Create(nil);
  try
    re.Visible := false;
    re.Parent := self;
    memStream := TMemoryStream.Create;
    try
      memStream.LoadFromFile(Dateiname);
      re.Lines.LoadFromStream(memStream);
      ShowMessage(re.Text);
    finally
      memStream.Free;
    end;
  finally
    re.Free;
  end;
end;