Multi Code

function SplitAtChars(const S: String):String;
var i : integer; lastChar:Char;
begin
  result:= '';
  IF length(s) > 0 then begin
    LastChar:= s[1];
    result:= LastChar;
    For i:= 2 to length(s) do begin
      if s[i] <> lastChar then begin
        lastChar:= s[i];
        result:= result+ ', ';
      end;
      result:= result+ LastChar;
    end;
  end;
end; 

const S1 = 'gHHH5YY++///\';
procedure ShowSplitString(Memo: TMemo);
var S2: string;
begin
   Memo.Lines.Add(S1);
   S2:= SplitStringCharChange(S1);
   Memo.Lines.Add(S2);
end;

procedure JS_Solution;
begin
   with TEdgeViewForm.create(self) do begin
      width:= 1500;
      pagecontrol1.height:= 540;
      icon.loadfromresourcename(hinstance,'XJICON');
      Caption:= 'maXbox5 EdgeView2BrowserFeed_JScriptSolution' ;
      panel1.ParentBackground:= false;
      panel1.color:= clnavy;
      sleep(500);
      navigate('https://maxbox4.wordpress.com/2025/07/01/ekon-29/'); 
      memoJavaScript.text:= JSCRIPT;//JS_InitFunc;
        PageControl1.ActivePageIndex := 1;
        memoHTML.font.size:= 26;
        memoJavaScript.wordwrap:= true;
        memoJavaScript.lines.linebreak:= lf;
      tabsheet3.caption:= 'Result';
      panel3.caption:= 'Source: Result';
      sleep(300)
      ExecuteScript(JSCRIPT); 
      sleep(1600);
      writeln('result of js webview2: '+memoHTML.text);
      writeln('scriptresult of js webview2: '+getScriptresult);
      showmodal;    //save resources
      free;
   end;
end;

const JSFunc ='function stripchars(string, chars) { '+lf+
              '  return string.replace(RegExp("["+chars+"]","g"), ""); }'+lf+
              'stripchars("She was a soul stripper. She took my heart!","aei")';
              
procedure JS_Solution;
begin
   with TEdgeViewForm.create(self) do begin
      sleep(500)
      ExecuteScript(JSFunc);
      sleep(400)
      //)ExecuteScript('23*4');
      //memoJavaScript.text:= '23*4';
      //ExecuteScript('stripchars("She was a soul stripper. She took my heart!","aei"'); 
      sleep(2200);
      //writeln('result of js webview2: '+memoHTML.text);
      writeln('scriptresult jswebview2: '+getScriptresult);
      //showmodal;    //save resources
      free;
   end;
end;              

const JSCRIPT =
'(() => {                                                      '+lf+ 
'    "use strict";                                             '+lf+ 
'                                                              '+lf+ 
'    // ----------- SPLIT ON CHARACTER CHANGES ------------    '+lf+ 
'    const main = () =>                                        '+lf+ 
'        group("gHHH5YY++///\\")                               '+lf+ 
'        .map(x => x.join(""))                                 '+lf+ 
'        .join(", ");                                          '+lf+ 

Const PYFUNC =
  'def splitter(text):  '+lf+
  '  return ", ".join("".join(group) for key, group in groupby(text)) ';

procedure PY_Charsplit_Solution;
begin
 with TPythonEngine.Create(Nil) do begin
    autofinalize:= false;
    loadDLL;
    try
      ExecString('import sys; from itertools import groupby');
      ExecString(PYFUNC);
      addclient(TEngineClient.create(nil));
      execstr('txt = ''gHHH5YY++///\\''  
      # Note backslash is Python escape char.');
      println(evalstr('f''Input: {txt}\n Split: {splitter(txt)}'''));  
      println(evalstr('sys.version'));
    except
      raiseError;
    finally
      unloadDll;
      Free;
    end;  
  end; 
end; 

function MP3PlayLength(aMP3FileName:string):string;
var
  wMP: TMediaPlayer;
  wLen: Cardinal;
 begin
   Try
     wMP:= TMediaPlayer.Create(self);
     try
        wMP.Visible:= false;
        wMP.parent:= self;
        wMP.FileName:= aMP3FileName;
        wMP.TimeFormat:= tfMilliseconds;
        wMP.DeviceType:= dtAutoSelect;
        wMP.Open;
        //sleep(50)
        try
           wLen:= trunc(wMP.Length / 1000);
           result:= inttostr(wLen div 60)+':'+inttostr(wLen mod 60);
        finally
           wMP.Close;
        end;
     finally
        wMP.free;
     end;
   except
     result:= '(mpplay err)';
   end;
 end;

//python template III  
procedure pymp3_Solution;
 begin
   with TPythonEngine.Create(Nil) do begin
     autofinalize:= false;
     loadDLL;
     try
      ExecString('import datetime,os,sys');
      ExecString('from mutagen.mp3 import MP3');
      ExecString(PYFUNC);
      execstr('path = str(r"'+songpath+'")'   +lf+
              'files = os.listdir(path)'   +lf+
               'total_files_time = 0 '+lf+
               'for f in files:                  '+lf+
               '   if f.endswith(''.mp3''):      '+lf+
               '      filePath = path + ''/'' + f'+lf+
               '      audio = MP3(filePath)      '+lf+
               '      length = audio.info.length '+lf+
               '      total_files_time += length ');
               
      println('pyout: '+evalstr('get_formatted_time(total_files_time)+ " of music!"'));
      println('pyout: '+evalstr('sys.version'));
      addclient(TEngineClient.create(nil));
      writeln('PythonOK '+botostr(PythonOK)+ ' clcount:'+itoa(clientcount));
     except
       raiseError;
     finally
       unloadDll;
       Free;
     end;  
   end;  
 end;  

 //converted from C source by /u/bleuge
function ssJaroWinkler(s1, s2: string): double;
var
  l1, l2, match_distance, matches, i, k, trans: integer;
  bs1, bs2: array[1..255] of boolean; //used to avoid getmem, max string length is 255
 begin
  l1:= length(s1);
  l2:= length(s2);
  //fillchar(bs1, sizeof(bs1), 0); //set booleans to false
  for it:= 1 to sizeof(bs1) do bs1[it]:= false;
  //fillchar(bs2, sizeof(bs2), 0);
  for it:= 1 to sizeof(bs2) do bs2[it]:= false;
  if l1 = 0 then
    if l2 = 0 then begin
      result:= 1
      exit; 
    end else begin
      result:= 1
      exit; end; 
  match_distance:= (max(l1, l2) div 2) - 1;
  matches:= 0;
  trans:= 0;
    for i:= 1 to l1 do begin
       for k:= max(1, i - match_distance) to min(i + match_distance, l2) do 
       begin
         if bs2[k] then
           continue;
         if s1[i] <> s2[k] then
           continue;
         bs1[i]:= true;
         bs2[k]:= true;
         inc(matches);
         break;
       end;
    end;
  if matches = 0 then begin
    result:= 0;
    exit end;
  k:= 1;
  for i:= 1 to l1 do begin
    if (bs1[i] = false) then
      continue;
    while (bs2[k] = false) do
      inc(k);
    if s1[i] <> s2[k] then
      inc(trans);
    inc(k);
  end;
  trans:= trans div 2;
  result:= ((matches / l1)+(matches / l2)+((matches - trans)/matches)) / 3;
 end;

procedure TForm8FormShow(Sender: TObject);
 begin
  // setup cport (already set to 9,600 baud rate)
  try
   if IsCOMPortReal(3) then begin
    ApdComPort1.ComNumber:= 3;
    writeln('debug comport: '+objtostr(apdcomport1)) ;
     //connect up the data-in event
      if (FStatusTrigger = 0) then begin
           FStatusTrigger:= ApdComPort1.AddStatusTrigger(stline); //sline
           ApdComPort1.SetStatusTrigger(FStatusTrigger,
                           lsOverrun or lsParity or lsFraming or lsBreak,
                                       True);
      end;
   end;
   except
     writeln('ArdEWI_Exc:'+ExceptiontoString(exceptiontype,exceptionparam));
   finally
     ApdComPort1.free;
     writ('debug finfree')
   end;  
  // For this sensor we know the data is coming in within this data range
  // so am setting Left Axis Min Max accordingly
  Chart1.Axes.Left.SetMinMax(-1,4);
  //ChartTool1.Value := 2.5;   //colorline as threshold line
 end;

unit fMain;

interface

uses
  Windows, Messages, SysUtils,
  Variants,
  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, atScript, FormScript, atPascal, ScrMemo, Scrmps,
  Vcl.ScripterInit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    log: TListBox;
    countrycombo: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    atPascalFormScripter1: TatPascalFormScripter;
    ScrMemo1: TScrMemo;
    ScrPascalMemoStyler1: TScrPascalMemoStyler;
    procedure Button1Click(Sender: TObject);
    procedure StAdd;
    procedure StClear;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // learns TatPascalScripter how to execute the Add & Clear methods for TStrings
  with atPascalFormScripter1.AddDelphiClass(TStrings) do begin
    AddMethod('Add',1,tkNone,nil,StAdd);
    AddMethod('Clear',0,tkNone,nil,StClear);
  end;
  atPascalFormScripter1.SourceCode.Assign(ScrMemo1.Lines);
  atPascalFormScripter1.Execute(null);
end;


// implementation of component method Add of TStrings
procedure TForm1.StAdd;
begin
  TStrings(atPascalFormScripter1.CurrentObject).Add(atPascalFormScripter1.GetInputArgAsString(0));
end;

// implementation of component method Clear of TStrings
procedure TForm1.StClear;
begin
  TStrings(atPascalFormScripter1.CurrentObject).Clear;
end;

end.

Const CSTRING5= 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=countries64japan;';

function DataBaseConnection_Test(bMessage: Boolean): AnsiString;
var
  asTimeout, asUserName, asPassword, asDataSource, ConnectionString: AnsiString;
  iReturn: Integer; OldCursor: TCursor;
begin
  OldCursor     := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  asTimeout     := '150';
  asUserName    := 'NT_Server'; asPassword:= 'SA';
  asDataSource  := 'SQL Server - My DataBase';

 { ConnectionString := 'Data Source = ' + asDataSource +
    'User ID = ' + asUserName +
    'Password = ' + asPassword +
    'Mode = Read|Write;Connect Timeout = ' + asTimeout;      }

  ConnectionString:= CSTRING5;

  try
    iReturn:= OpenConnection(ConnectionString);
    if (bMessage) then begin
      if (iReturn = 0) then begin
        (Application.MessageBox(utf8toansi('Connection_OK!'), ('Information'), MB_OK))
         writeln('ADO Connection OK!');
      end else if (iReturn = -1) then
        Application.MessageBox(utf8toansi('Connection Error!'), 'Error', MB_ICONERROR + MB_OK);
    end;
    if (iReturn = 0) then
      Result:= ConnectionString
    else if (iReturn = -1) then
      Result:= 'no thing';
  finally
    Screen.Cursor:= OldCursor; //crDefault; //OldCursor;
  end;
end;


function OpenConnection(ConnectionString: AnsiString): Integer;
var ADODBConnection: OleVariant; rs: Olevariant;
    sqlQuery: string;
begin
  ADODBConnection:= CreateOleObject('ADODB.Connection');
  ADODBConnection.CursorLocation:= 3; // User client
  ADODBConnection.ConnectionString:= ConnectionString;
  Result:= 0;
  try
    ADODBConnection.Open;
    sqlQuery:= 'SELECT * FROM Countries'; //Table1';
    rs:= ADODBConnection.Execute(sqlQuery)
    While Not rs.EOF do begin
       writeln(inttostr(rs.Fields('ID').Value)+': '+rs.Fields('Country').Value+
                                #9#9#9#9#9+'  code: '+rs.Fields('Code').Value);
       //writeln((rs.Fields('Country').Value));                           
       rs.MoveNext;
    end;   
  except
    Result:= -1;
  finally
    rs.close;
    ADODBConnection.close;  
  end;
end;