RJ TextEd

I forgot to backup your files uploaded to this forum. Sorry about that. There may be an avatar missing as well...

I've moved the forum and the RJ TextEd site to a new web hosting provider. Hopefully it will solve a few issues, especially with the slow forum speeds.

My web hosting provider is under DDOS attack and has been for a few days now. Because of this the forum is sometimes very slow and hard to access.

I'm considering moving my home page and forum to a different web host...

This code will work in v10.20. { String s = ""; string sz = "C:\\Test.txt"; var size = FileSize(sz); if (FileExists(sz)) { Word mode = fmOpenReadWrite; TFileStream stream = TFileStream.Create(sz, mode); try { s = stream.ReadString(size, encAnsi); s = s + "This text is append...

Maybe streams are are a better choice. I've fixed the issues and I'll release v10.20 beta in a few days. I've also made some updates to the help file. You could use // Read an UTF8 file to a string. WORD mode = fmOpenRead; TFileStream stream = TFileStream.Create("C:\\Test.txt", mode); try ...

You could try:

Code: Select all

TStringList list = TStringList.Create;
try
  list.LoadFromFile("C:\\Test.txt");
  var text = list.Text;
  ...
finally
   list.Free;
end;

or

Code: Select all

WStrings.LoadFromFile("filename.txt");
var text = WStrings.GetText;

I'll look into the stream issue.

Merry Christmas everyone!

I've made a couple of changes in v10 (beta 1) that may help. The "Clipboard" object enables access to the Windows clipboard. Ex. String s = Clipboard.AsText; ... Clipboard.AsText = s; I also added an argument to the close function. bool Document.Close(bool bDiscardChanges = false); If you ...

These are superb news and what I really like about your wording is that it is "we" who get those compilers :) Yet another sign of your grandeur. Well, it does benefit us all. Right 8) Btw my Comodo AV gives me warning about 32-bit file, purportedly containing ApplicUnwnt.Win32.Hoax.ArchSM...

I've upgraded my Delphi 2007 version to Delphi XE6. This means we get a 32-bit and 64-bit compiler, a huge number of new components, native Unicode support... Converting the entire project will take some time, but it does give me an opportunity to clean up some things... It may take a month or two t...

Are you creating your own highlighter? If so, could you post it?

If you're not creating your own highlighter, is it a plain HTML file? I can't reproduce your issue using the few lines you've posted.

Try this // C++ script { string s; int i,n; int startx,startLine,endx,endLine; if (Document.SelLength > 0) { Document.GetSelection(startx,startLine,endx,endLine); } else { startLine = 0; endLine = Document.LineCount - 1; }; Document.BeginUpdate(); try { i = startLine; while (i <= endLine) { // Get l...

I implemented a different solution. Instead of replacing all components I simply made some changes to the event handlers. E.g. void KeyPress(TObject sender, char key) => void KeyPress(TObject sender, int key) void KeyPress(TObject sender, int key) { int base = 10; string name = TEdit(sender).Name; i...

Made some minor changes. It still doesn't work properly yet. The editor component (TEdit) use ANSI while the script engine use Unicode. I need to replace all the components for events like entDecimal.OnKeyPress = &KeyPress; to work. I had to comment out some events for the script to work below. ...

It's been fixed in the next release. Thanks!

Search found 1045 matches

Re: Home page and forum moved to new web host

Home page and forum moved to new web host

DDOS attacks and slow forum

Re: How do I use SaveToFile in order to...?

Re: How do I use SaveToFile in order to...?

Re: How do I read from a file?

Merry Christmas 2015

Re: Simple script - works slightly differently with RJTE upg

Re: 64 bit version and Delphi XE6...

64 bit version and Delphi XE6...

Re: Quote characters in HTML text blocks

Re: Help with script

Re: Numeric base translator

Re: Numeric base translator

Re: Convert between HTML entities and special characters