On request, here is how I would do this myself: First, I want to create a function that performs this operation, so it can be reused every time we need to do this. I could have this function return or populate a TList<TWordRec>, but then it would be tiresome to work with it, because the … Read more
Using only integer numbers and Fisher-Yates shuffle: program cont3; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; const SummandsCount = 5; WantedSum = 100; var i, j, t, Cnt, WhereToInsert: integer; JustNaturalNumbers: array[1..WantedSum] of Integer; DividingPoints: array[0..SummandsCount] of Integer; begin Randomize; Cnt := 1; DividingPoints[0] := 0; DividingPoints[SummandsCount] := 100; for i := 1 to WantedSum – … Read more
Because IVO GELOV did not updated his code and/or did not removed his answer, I am adding my current code, which I am using. type TBytes = array of byte; procedure Dictionary.WriteData(var Data: TBytes); begin try DataStream.Write(Data[0], sec[sid].grp[grp].META.dataLength); finally end; end; solved How to pass pointer to array of byte to function?
What you are looking for is more than likely multithreading. (Or maybe multiprocessing.) You should rewrite your application to process data and perform tasks in a parallel manner. While that is not a really difficult task, the wording of your question suggests, that you are not familiar with the concept of parallel programing. If you … Read more
Give a try; Procedure TFNewCarAct.BtnSaveClick(Sender: TObject); begin adoQueryCCA.Close(); adoQueryCCA.SQL.Clear; adoQueryCCA.SQL.Add(‘INSERT INTO tblcaractivity ([CCarID],[Date],[Millage],[SerRcd],[EOType],[EOQunt],[AirFil],[GOil])’); adoQueryCCA.SQL.Add(‘VALUES(:CCarID,:Date,:Millage,:SerRcd,:EOType,:EOQunt,:AirFil,:GOil)’); adoQueryCCA.Parameters.ParamByName(‘CCarID’).Value:= Integer(ComboBox2.Items.Objects[ComboBox2.ItemIndex]); adoQueryCCA.Parameters.ParamByName(‘Date’).Value:= Edit6.Text; adoQueryCCA.Parameters.ParamByName(‘Millage’).Value:= Edit1.Text; adoQueryCCA.Parameters.ParamByName(‘SerRcd’).Value:= memo1.Text; adoQueryCCA.Parameters.ParamByName(‘EOType’).Value:= Edit2.Text; adoQueryCCA.Parameters.ParamByName(‘EOQunt’).Value:= Edit3.Text; adoQueryCCA.Parameters.ParamByName(‘AirFil’).Value:= Edit4.Text; adoQueryCCA.Parameters.ParamByName(‘GOil’).Value:= Edit5.Text; adoQueryCCA.ExecSQL; ShowMessage(‘Done’); end; procedure TFNewCarAct.FromShow(Sender: TObject); begin ADOQueryCT.Open; while Not ADOQueryCT.Eof do begin ComboBox1.Items.Add(ADOQueryCT.FieldByName(‘Name’).AsString); ADOQueryCT.Next; end; ADOQueryCT.Close; if ComboBox1.Items.Count > 0 then ComboBox1.ItemIndex := 0; … Read more
In your progress callback, try returning an error HRESULT value instead of S_OK or S_FALSE. 9 solved 7-Zip API abort progress
After creating a new project in a new directory and then adding all the files too the project the issue had dissapeared! The problem seemed to be somewhere in de dproj file. I tried too find it, but it was to big for me to locate it. solved Android backbutton doesn’t work in Delphi XE5/XE6
You need to call LockList() outside of the try block instead of inside of it, eg: function del_from_list(const id: string): boolean; var List: TList; i : integer; begin Result := False; List := global_list.LockList; try with List do begin for i :=0 to Count-1 do begin if Tthread_list(Items[i]).id = id then begin Delete(i); Result := … Read more
If you have a standard Delphi7 install, try this In the IDE go to Component | Install packages In the pop-up, click Add and navigate to your Delphi Bin folder, you should see a package dclIndy70.Bpl. Open it. You should now have the Indy components on your Component Palette. They’ll be a bit out of … Read more
Why when we add an android service to an app, delphi automatically include in the dpr of the app the unit of the datamodule of the service? solved Why when we add an android service to an app, delphi automatically include in the dpr of the app the unit of the datamodule of the service?
What you describe in the question is not consistent with reality. Is this “renaming” not a legal thing to do? Exporting the same function under multiple names is perfectly legal. The problems you describe do not happen. Can I debug DLL with FastMM4 without changing it into a console app? Yes you can. Specify a … Read more
Button1Click is stopping the execution of the main thread for 3 seconds. During the sleep(3000) execution, no GDI message is processed, so the dialog boxes are NOT displayed immediately. In fact, TCustomThread.doProc works as expected, but the dialog box is not displayed until the GDI messages are processed. You have to change this method e.g. … Read more
type TForm1 = class(TForm) .. private procedure WmNCCalcSize(var Msg: TWMNCCalcSize); message WM_NCCALCSIZE; .. .. procedure TForm1.WmNCCalcSize(var Msg: TWMNCCalcSize); begin inherited; if Msg.CalcValidRects then begin InflateRect(Msg.CalcSize_Params.rgrc[0], -10, -6); Msg.Result := 0; end; end; Please, carefully read WM_NCCALCSIZE‘s documentation though, including the remarks section and also NCCALCSIZE_PARAMS, as I’m not sure this is what you want. But … Read more
This problem is coming in urlmon.dll. problem is due to IE, not your application ,suggested solution is to remove and reinstall IE or repair it Try methods given at this URL https://www.experts-exchange.com/questions/10316551/Access-violation-fault-in-module-urlmon-dll.html 2 solved Delphi access violation only on specific computer [closed]
I don’t know for sure if this is your problem, but there is a huge design flaw with your current code. You are creating 1 thread per image. Assuming that you have hundreds or thousands of threads this design cannot scale. For a start there is a significant overhead associated with creating, starting and terminating … Read more