Ist der Richtext leer?

[Andreas Albers]

Hi,

ich muss herausfinden ob der Richtext in einer Variablen leer ist.

Ich brauch das zum Drucken. Ich verwende List und Label und dort wird selbst wenn das Feld Leer ist mindestens eine Zeile gedruckt.
Also muss ich vorher rausfinden ob sich auch sinnvoller Text zwischen den Steuerzeichen verbirgt.

Kann mir jemand bei dem Problem weiterhelfen?

Gruss
Andreas

[Lannes]

Hallo,

wenn das Feld leer ist wird der Richtext doch immer gleichbleibend sein.
Also hast du doch dadurch eine Vergleichsmöglichkeit.

if StandardLeerRichText = AktuellerRichtext then
  //Drucke nicht

[Andreas Albers]

Hallo,

dass ist nicht richtig. Wir ein Text mit Formatierungen versehen wie Fett oder eine andere Schrift etc. so bleibt unter umständen die Formatierung bestehen obwohl Text zwischen den Befehlen entfernt wurde.
Beispiel:
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fc harset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\lang1031\f0\fs16 \f1\par
}

[Bernd Schulz]

Hallo!

Vielleicht hilft das weiter?!?
http://entwickler-forum.de/showthread.php?t=14986

BYE BERND

[Lannes]

Hallo,

übergib den String zur Überprüfung an ein RichEdit.

Beispiel mit einem virtuellem RichEdit:

  public
  fVirtualRE: TRichEdit;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  fVirtualRE := TRichEdit.CreateParented(THandle(-3));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  fVirtualRE.Free;
end;

function IsRichTextStrEmpty(RE: TRichEdit;sRTF: String): Boolean;
begin
  Result := False;
  RE.Clear;
  RE.SelText := sRTF;
  if Trim(RE.Text) = '' then
    Result := True;
end;{}

procedure TForm1.ButtonClick(Sender: TObject);
var s : String;
begin
    s :=  '{\rtf1\ansi\ansicpg1252\deff0'
       +'{\fonttbl{\f0\fnil\fc harset0 MS Sans Serif;}'
       +'{\f1\fnil MS Sans Serif;}}'
       +'\viewkind4\uc1\pard\lang1031\f0\fs16 \f1\par}';
  if IsRichTextStrEmpty(fVirtualRE,Memo1.Text) then
    showmessage('RichText enthält keinen Text');
end;

[Andreas Albers]

Ich sträube mich immer vor visuellen Komponenten...

Hi,

ich bilde mir immer ein das diese Art der Lösung zu langsam ist.
Ich werde es Probieren.

Danke