Jump to content

bernhard_LA

Members
  • Content Count

    18
  • Joined

  • Last visited

Community Reputation

0 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. need a good and flexible solution to convert string to floats the string can be 1,99 vs. 1.99 the OS can be german or english or .... not working code goes like this :-( internalFormatSettings := TFormatSettings.Invariant(); Result := StrToFloat(FloatStr, internalFormatSettings);
  2. in VCL I can get the selected cell with the Selection property. In FMX this property does not exist. how to change this code for FMX? aStatusBar.SimpleText := 'selected cell -> ' + strngrd_Point3D.Selection.Top.ToString + '/' + strngrd_Point3D.Selection.Left.ToString;
  3. what is the best method to convert a double value back into a real data type ? var x : double ; y : real ; y: = x ; what are the risk's ?
  4. bernhard_LA

    Adding libraries to a Python embedded installation

    can you execute matplotlib code if you use you /python folder and python.exe inside this folder? how are you setting the reference to pythonDLL and pythonDLL path in your application? I followed the config of Tpythonengine from here .... because different PC's have many different python settings / also drives me crazy ... to get one application running on different CPUs. did not want to go for my own python installation to be distributed with my application .....
  5. bernhard_LA

    Enbedded editor, debugging, etc...

    you need to download and install python4delphi components https://github.com/pyscripter/python4delphi there are many samples for start up
  6. I try to run that simple python script with my app using python4delphi components import matplotlib.pyplot as plt import numpy as np x = np.arange(0,4*np.pi,0.1) # start,stop,step y = np.sin(x) plt.plot(x,y) plt.show() compiling and execution of my app for windows is no problem , the LINUX version failed this failure ...... import _tkinter # If this fails your Python may not be configured for Tk ValueError: character U+68002f is not in range [U+0000; U+10ffff .... Error is EPyValure Error with above code
  7. bernhard_LA

    DUNIT X memory leak checking

    open question : unit DUnitX.MemoryLeakMonitor.LeakCheck does not compile, because , of missimg include file {$I DUnitX.inc} where to get this file ?
  8. bernhard_LA

    DUNIT X memory leak checking

    thanks for this hint, in addition I found : https://medium.com/@Zawuza/delphi-leakcheck-2242270ef42d My dunitX installation does not come with a file DUnitX.MemoryLeakMonitor.LeakCheck , you need to copy from https://bitbucket.org/shadow_cs/delphi-leakcheck/src/master/External/DUnitX/ to this folder .....
  9. bernhard_LA

    DUNIT X memory leak checking

    I must convert a dunit project to a dunixX project, the following code does not compile any longer , how to include dunit leak checks into dunitX ? procedure TestClass_MemoryLeaks.Test_..........h; begin try G := TGraph<Char>.Create(normal_directed); GraphTestData(G); G.AddEdge...... finally G.Free; self.CheckTrue(not(self.GetFailsOnMemoryLeak), 'Failed on memory leak when Adding Repeated Edge on Directed Graph'); end; end;
  10. bernhard_LA

    install DUNITX

    I use DELPHI 10.3, my current - default installation of DUNITX seems to be incomplete, because I need to uncomment several units? what is the next step : a) ignore because some test projects are working ? b) install again from git, any instruction how to update installation program N_TESTS_VCLGUIAPP; {$R *.res} uses Vcl.Forms, System.SysUtils, // DUnitX.Examples.General, // DUnitX.Loggers.Text, DUnitX.Loggers.XML.NUnit, // DUnitX.Loggers.XML.xUnit, // DUnitX.MacOS.Console, DUnitX.Test, DUnitX.TestFixture, DUnitX.TestFramework, DUnitX.TestResult, DUnitX.RunResults, DUnitX.TestRunner, DUnitX.Utils, // DUnitX.Utils.XML, DUnitX.WeakReference, DUnitX.Windows.Console, // DUnitX.StackTrace.EurekaLog7, // DUnitX.Examples.EqualityAsserts, DUnitX.Loggers.Null, DUnitX.MemoryLeakMonitor.Default, DUnitX.AutoDetect.Console, DUnitX.ConsoleWriter.Base, // DUnitX.DUnitCompatibility, DUnitX.Extensibility, DUnitX.Extensibility.PluginManager, DUnitX.FixtureProviderPlugin, DUnitX.FixtureResult, DUnitX.Generics, DUnitX.InternalInterfaces, DUnitX.IoC, DUnitX.Loggers.Console, DUnitX.CommandLine.OptionDef, DUnitX.CommandLine.Options, DUnitX.CommandLine.Parser, DUnitX.OptionsDefinition, DUnitX.Banner, DUnitX.FilterBuilder, DUnitX.Filters, DUnitX.CategoryExpression, DUnitX.TestNameParser, DUnitX.Loggers.GUI.VCL, // DUnitX.Examples.AssertFailureCompare, DUnitX.Timeout, DUnitX.Exceptions, DUnitX.ResStrs, // DUnitX.Examples.UITest, ......... ; begin Application.Initialize; Application.Title := 'DUnitX'; Application.CreateForm(TGUIVCLTestRunner, GUIVCLTestRunner); Application.Run; end.
  11. bernhard_LA

    best practise unit testing , DUNITX

    following the samples from http://delphiprogrammingdiary.blogspot.com/2018/09/introducing-dunitx-new-unit-test.html we created now also 2 different delphi projects *.dpr for each test a) the consoleAPP for automatic execution within JENKINS and CI b) the VCLGUI app for debugging of our testcases we include the testcas.pas file inside both projects Q1 : any known issue while sharing the test case class (*.pas) between VCLGUI app and console APP ? Q2 : how to separate or select different test cases? we have test cases with a very short execution time ( below 1 min) and some with a very long execution time (several hours) if I could select the individual testcase via the GUI, this would help, I don' want to create a third App for the long test cases ....
  12. thanks for helping - found also my mistake : after change from var LoadString: String; to var LoadString: AnsiString; code is working, with a typecast String(Loadstring) ; but now different issue .... this will now work for compiling under LINUX 😞
  13. I'm almost sure that I already used the code below without any issues in previous application. Now a added this to a new app and dumped the Loadstring variable into a memo with memo.lines.add ( Loadstring ) ; All text is now displayed using chines char's , the file I#m reading for sure is ASCII and only latin chars ..... What went wrong ? var LoadString: AnsiString; FS: TFileStream; begin FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); try SetLength(LoadString, (FS.Size div SizeOf(Char))); if FS.Size > 0 then FS.Read(Pointer(LoadString)^, FS.Size); finally FS.Free ;
  14. bernhard_LA

    Shellexecute @ UBUNTU platform

    Basic Wish a) just start a executeable like ./myapplication and pass also command line parameters Advanced Wish b) a notification once the ./myappliaction is finished work around i) any solution using RAD C++ and Linux compile options ?? ii) call a phyton script from Delphi ???? iii) a dll written in Lazarus ?????
  15. bernhard_LA

    Shellexecute @ UBUNTU platform

    I need a solution to replace the shellexecute command for the windows platform If possible no external / 3rd party lib involved Can someone provide a working code here ?
×