Formatierter Text und String zusammenfügen

[Walter Landwehr]

Hallo,

stehe gerade so ein bisschen auf den Schlauch. Ich habe in einer Tabelle 2 Felder DATUM und TEXT. TEXT ist ein Blob Feld der formatierten RTF Text enthält. Gebt es eine Möglichkeit beide Felder in einem Feld zusammen zu führen ohne das die Formatierung verlorengeht.

Beispiel:

DATUM
16.02.2016

TEXT
Migräne --> (Hat Schriftattribute)

ZIEL
16.02.2016: Migräne --> (Schriftattribute sollen bleiben.

Danke für einen Tipp.

[DeddyH]

Du könntest ein unsichtbares RichEdit erzeugen
RichEdit := TRichEdit.CreateParented(HWND_MESSAGE); , dort Deinen Text hineinladen, ihn selektieren und im Anschluss SelText anpassen.

[p80286]

Jain!
Du mußt nur an den Anfang des Textes des RTF das Datum als String einfügen

Ein einfaches verketten der Felder geht auch aber das Ergebnis ist dann wohl nicht in Deinem Sinne.

die einfachste Lösung wäre es die RTF-Daten in ein Richedit zu übertragen und dann das Datum an den Anfang zu setzen. danach den Inhalt des Richedits wieder in das Blob-Feld der DB zurück speichern.

Gruß
K-H

[DeddyH]

Meine Rede

[Walter Landwehr]

OK Danke werde ich probieren. Muss jetzt erst mal weg berichte aber dann vom Ergebnis.

[p80286]

Zitat von DeddyH:

Meine Rede

Zitat von DeddyH:

.., dort Deinen Text hineinladen, ihn selektieren und im Anschluss SelText anpassen.

manchmal braucht's ein wenig ums zu verstehen

Gruß
K-H

[Sir Rufo]

Eine einfach zu handhabende Lösung wäre eine Klasse, die beide Felder aufnehmen kann und den Inhalt in einen Stream schreiben (und von dort auch wieder auslesen kann).

So etwas z.B.

Delphi-Quellcode:

unit Unit2;

interface

uses
  System.Classes;

type
  TDataObject = class( TInterfacedPersistent, IStreamPersist )
  private
    FDate: TDateTime;
    FText: TStrings;
    procedure SetText( const Value: TStrings );
  public { IStreamPersist }
    procedure LoadFromStream( Stream: TStream );
    procedure SaveToStream( Stream: TStream );
  public
    constructor Create;
    destructor Destroy; override;

    property Date: TDateTime read FDate write FDate;
    property Text: TStrings read FText write SetText;
  end;

implementation

{ TDataObject }

constructor TDataObject.Create;
begin
  inherited;
  FText := TStringList.Create;
end;

destructor TDataObject.Destroy;
begin
  FText.Free;
  inherited;
end;

procedure TDataObject.LoadFromStream( Stream: TStream );
var
  reader: TBinaryReader;
begin
  reader := TBinaryReader.Create( Stream );
  try
    FDate := reader.ReadDouble( );
  finally
    reader.Free;
  end;

  FText.LoadFromStream( Stream );
end;

procedure TDataObject.SaveToStream( Stream: TStream );
var
  writer: TBinaryWriter;
begin
  writer := TBinaryWriter.Create( Stream );
  try
    writer.Write( FDate );
  finally
    writer.Free;
  end;

  FText.SaveToStream( Stream );
end;

procedure TDataObject.SetText( const Value: TStrings );
begin
  FText.Assign( Value );
end;

end.

Um die Daten vom/zum Blob-Feld zu bekommen reicht dann

Delphi-Quellcode:

data := TDataObject.Create;

// Daten vom Feld holen
data.Assign( MyDataSet.FieldByName('BlobData') );

// Daten in das Feld schreiben
MyDataSet.FieldByName('BlobData').Assign( data );

[himitsu]

RTF ist ein TEXT-Format (wie XML, JSON, CSV usw., aber zum Glück ohne Byte-Offsets), wenn du im RTF einen "Platzhalter" hast, der im RTF-Quellcode nicht "schlimm" kodiert ist, dann einfach den TEXT aus dem BLOB auslesen und ein StringReplace drüber.

[TBx]

@Sir Rufo: Dem TE geht es wohl nicht darum, die Daten gemeinsam in einem Feld zu speichern, sondern um eine schöne formatierte Ausgabe der beiden Felder.

Wenn es nur um die Ausgabe in einem Report geht, würde ich mich in das BeforePrint-Ereignis der RTF-Elementes hängen und dort das Datumsfeld entsprechend injizieren.

[Sir Rufo]

Zitat von TBx:

@Sir Rufo: Dem TE geht es wohl nicht darum, die Daten gemeinsam in einem Feld zu speichern, sondern um eine schöne formatierte Ausgabe der beiden Felder.

Jetzt, wo du es ansprichst, fällt es mir auch auf