mORMot Open Source

But how else do you find true position of some chinese substring in a large text?

Ofcourse you can manipulate cookies! The problem is SynCrt didn't implement it... sadly.

Will need to make my own wrapper.

http://msdn.microsoft.com/en-us/library … s.85).aspx

Random() is not thread safe at all. Because it is not a thread var. Plus 64 bit is a lot slower since its written in ASM.

dwUtils.pas has a super fast version of IntToStr32/64 Unicode version ofcourse.

IMHO UTF8 is not worth it. Too many problems. You end up working AGAINST the compiler.

But if you want even more raw performance you should write it with ICC(Intel C++).

What is the license of SynCommons? I would like to extract all the low level RTL replacements and add it in to a more light unit. With your license ofcourse.

Actually is not the same. Your supports SSE2 MAX! That one supports from MMX - SSE3. Now cpus support SSE 4.1, 4.2 etc

So not the same.

Sorry I meant UTF16.

Yes but easier to maintain IMHO... it is the future of Delphi like it or not. In 5 years it will be standard.

Ah we found TWriteOnlyBlockStream. Which is about 10x faster than TTextWriter when using regular strings. It is about 20ms faster when TTextWriter is using UTF8.

Yes it would be very much great to split it in to namespaces much like newer versions do it..

System.Sysutils
System.Types

etc..

Yes but where to do the conversions for example? When interfacing?

Only slightly by a couple of ms. Not much. But RawUTF8 string is alot faster. However you cannot use it with VCL/RTL in newer versions.
Due to constant conversions..

program Project6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Diagnostics,
  SynCommons;

var
  TW: TTextWriter;
  SW: TStopwatch;
  StrA: String;
  StrB: RawUTF8;
  i, j: Integer;
begin
  j := 100000;
  StrA := 'test string';
  StrB := 'test string';
  SW := TStopwatch.Create;
  TW := TTextWriter.Create(nil);
  TW.CreateOwnedStream;

  // delphi UTF16
  SW.Start;
  for i := 0 to j do
  TW.AddString(StrA);
  SW.Stop;
  TW.Flush;
  TW.CancelAll;
  WriteLn('String: '+SW.ElapsedMilliseconds.ToString());
  SW.Reset;

  // RawUTF8
  SW.Start;
  for i := 0 to j do
  TW.AddString(StrB);
  SW.Stop;
  TW.Flush;
  TW.CancelAll;
  WriteLn('RawUTF8: '+SW.ElapsedMilliseconds.ToString());
  SW.Reset;

  // StringToUTF8
  SW.Start;
  for i := 0 to j do
  TW.AddString(StringToUTF8(StrA));
  SW.Stop;
  TW.Flush;
  TW.CancelAll;
  WriteLn('StringToUTF8: '+SW.ElapsedMilliseconds.ToString());
  Readln;
end.

Anyway {$WARN IMPLICIT_STRING_CAST OFF} is the solution for using Syncommons.pas from XE4. Nasty solution but it works.

@ab but how to store regular unicode string types in TTextWriter? Do we have to use UTF8ToString / StringToUTF8 ? This would be very very inefficient if used in a loop. IMHO SynCommons.pas is unusable because of this on newer versions.

It would be good to add something like this..

procedure TTextWriter.AddString(const S: String);
begin
..
end;

Reason?

[dcc32 Warning] unit.pas(76): W1057 Implicit string cast from 'Char' to 'RawUTF8'
[dcc32 Warning] unit.pas(79): W1057 Implicit string cast from 'RawUTF8' to 'string'

Or atleast some switch to turn RawUTF8 = String.

RTL/VCL needs to recompile to strip the RTTI out.

More readable? It needs a simple "Result := Self" in the function. I am sure you can add this to the unit.
The problem I see with SynCommons.pas is that its too big. It adds 2mb to debug and 600kb to a console application just
by using TTextWriter. There seems to be a lot of dead code left !

program Project6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  SynCommons;

var
  TW: TTextWriter;

begin
  TW := TTextWriter.Create(nil);
  TW.CreateOwnedStream;
  try
    WriteLn(TW.AddString('Hello').AddString(' from').AddString(' Synopse forums!').Text);
  finally
    TW.Free;
  end;

  Readln;
end.

Yes but i think an implementation based on THeapMemoryStream would be very very fast. Because TStringList has advantages over TStringBuilder but it consume a lot of memory!

Yes but it would be nice if you could provide a 64 bit .obj file.

DISQLite3 supports 64 bit since ages!

EDIT: We decided to use UNIDAC.

Does SynCommons contain a fast dynamic array which dont use LOCK instructions?

Also is it possible to use sqlite3 with SynSQLite3 without dll? In 64 bit?

What about a lock free dynamic array ? Many thanks!

So only solution is to modify System.pas? But i guess how to recompile? They add these stupid locks everywhere.

With this lock isn't called.. LStrAsg is called and LOCK is skipped.

procedure Test(const A,B:Integer; var Return:RAWUTF8);
begin
  Return := 'A';
end;

Correct way of using?

I think this needs to be fixed on compiler side. Fiddling with code is waste of time and productivity. If you fix the string then you still other components that use it. So it is pretty much pointless. Must be fixed by Embercadero..

The problem is that "var" also adds this "call @UStrAsg"

with this procedure Test(const A, B, C: Integer; var Return: String);

So what is real example on how to solve this?