Databases
StackOverflow2013
Postsdbo
POBeginThread Structure - Delphi
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POBeginThread Structure - Delphi
    primarykey
    data
    text
    <p>I've got a almost completed app now and the next feature I want to implement is threading. I chose to go with BeginThread(), although am aware of TThread in delphi. The problem I'm coming across is the structure of BeginThread() call. Normally the line in the program that would call the function I want to be threaded is</p> <pre><code>CompareFiles(form1.Edit3.Text,Form1.Edit4.Text,Form1.StringGrid2,op); </code></pre> <p>op is a integer. </p> <p>The line I've switched it out for to create a thread from it is </p> <pre><code>BeginThread(nil,0,CompareFiles,Addr('form1.Edit3.Text,Form1.Edit4.Text,Form1.StringGrid2,op'),0,x); </code></pre> <p>From the little amount of infromation I can find on how to actually use BeginThread() this should be a fine call, however on compling all I get is complier errors regarding the structure of my BeginThread() statement paramenters. </p> <p>EDIT FOR INFORMATION. </p> <p>The current procedure that calls CompareFiles is </p> <pre><code>procedure TForm1.Panel29Click(Sender: TObject); var op,x : integer; begin if (Form1.Edit3.Text &lt;&gt; '') AND (Form1.Edit4.Text &lt;&gt; '') then begin op := 3; if RadioButton7.Checked = True then op := 0; if RadioButton3.Checked = True then op := 1; if RadioButton4.Checked = True then op := 2; if RadioButton5.Checked = True then op := 3; if RadioButton6.Checked = True then op := 4; CompareFiles(form1.Edit3.Text,Form1.Edit4.Text,Form1.StringGrid2,op); end; end; </code></pre> <p>If I was to use TThread as suggested by a couple of people, and as displayed by Rob below, I'm confused at how a) I would pass op,Edit3/4.Text and StringGrid2 to the CompareFiles. Guessing from the example of TThread I've seen I thought I would replace the code above with <code>TCompareFilesThread.Execute</code>and the put the current code from Panel29Click into <code>TCompareFilesThread.Create</code> and then add</p> <pre><code>FEdit3Text := Edit3Text; FEdit4Text := Edit4Text; FGrid := Grid; </code></pre> <p>to this</p> <pre><code>FEdit3Text := Form1.Edit3.Text; FEdit4Text := Form1.Edit4.Text; FGrid := Form1.StringGrid2; </code></pre> <p>But I've got this nagging feeling that is totally off the mark.</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USjskrwyk
    1. USjskrwyk
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POBeginThread Structure - Delphi
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POBeginThread Structure - Delphi
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POBeginThread Structure - Delphi
      1. This table or related slice is empty.
      1. VTUpMod
    1. CO"Complaints about things not matching" is not a very useful description. Could you edit your question and paste a copy of the error message in please?
      singulars
      1. POBeginThread Structure - Delphi
      1. USMason Wheeler
    2. COI'm also curious why you're choosing to *not* use TThread? Using global thread functions without a nice object encapsulation vastly complicates things related to concurrency and race conditions. I'm also curious why you are nearing the completion of the application and then decided to add threading. IMO, threading should be considered from the outset and not an afterthought. There is a high probability of threading land-mines if not taken into account early enough.
      singulars
      1. POBeginThread Structure - Delphi
      1. USAllen Bauer
    3. COThe reason threading is getting implemented now is that this is a learning app for me. Threading was always planned just only getting round to implementing it now that the apps core features are complete (mostly). As for TThread, I can can't seem to find an good explanation on how to use it.
      singulars
      1. POBeginThread Structure - Delphi
      1. USjskrwyk
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload