Beiträge von ANDRE

Zitat von wpsupport

Bitte
WPRichText.SaveTextFormat := 'ANSI';
s := WPRichText.AsString;
verwenden.

GetText erfordert einen formattierten RTF text.

Grüsse,
Julian

That's Works !!

Thank's

Es Funktioniert !!

Vielen Dank...

Thank´s for you Help Julian !

I habe ein andere problem... Ich denke dass ich etwas vergensen habe (vieleicht ein property must besonder konfigureiren lasen)

I create this WPRichText1 at RUNTIME and I recived with WPRichText1.Text only #$D#$A#$D#$A#$D#$A#$D#$A ??

Noch mal vielen Dank... Ich hoffe das du mein Deutsch verstehes kanst.

Dein
André

Thank´s for you Help !!

I have another problem....

I create this WPRichText1 at RUNTIME and I recived with WPRichText1.Text only #$D#$A#$D#$A#$D#$A#$D#$A ??

Thank one more time André

Zitat von MARK WILLIAMS

The following will do it, but may be a little inelegant for what you want:

wpRichText1.selectAll;
s:=wpRichText1.selText;
wpRichText1.selLength:=0; //or store the previous selStart and SelLen and restore them.

There may be a better way to do this, but I can't remeber finding one.

Regards,

Mark

Thank's for you Help !!

I need to obtain only plain text from a WPRichText1...

Thank's

André Aigneren
Genesys Ingeniería Ltda.

Thank`s very much !!

This work fine...

var sSearchString:String;
     nStart,  nEnde : Integer;


sSearchString:= '@mymark@';


       Finder.ToStart;
       While Finder.Next(sSearchString) do
         begin
           CPPosition:= Finder.FoundPosition;
           if nStart < 0 then
             nStart := CPPosition + 1
           else
             begin
               nEnde := CPPosition;
               SetSelPosLen(nStart-1, (nEnde - nStart) + Length(sSearchString)+1);
               SelectionAsString:=' ';
               nStart := -1;
             end;
         end;
       Refresh;

Regards

André

Hi !

Can I replace or erase the #13 code in a Text ?

I need erase Text between two mark, but with returns in Text Finder.Next() dont works...

Thank

André

The Method Finder Works very nice, but only in text without the #13 code (Return), but I need erase all text or image or bullets or cells between two marks.

Many thanks by so quick answer...

André

Many thanks by so quick answer..

This functions very well, but when characters of return exist (#13) does not work!

The routine also functions when boards(tabellen) in the text exist?

André Aigneren

Many thanks by so quick answer..

This functions very well, but when characters of return exist (#13) does not work!

The routine also functions when boards(tabellen) in the text exist?

André Aigneren

How can I delete one text betwin two mark`s ?

My Mark is @#1#@

and I will like delete all betwin the mark`s !!

Example.

@#1#@ Blabla text fdfdsf Blabla more text @#1#@

Thanks and Greatings from Chile...

Wie kann ich löschen ein text zwischen zwei marken...

main Mark ist @#1#@

und ich will alles zwischen die marken löschen !!

Zb.

@#1#@ Blabla ein text fdfdsf Blabla noch ein text @#1#@

Vielen dank und Grüsse aus Chile...