procedure afvikling

så snart p1 er started. Hvis du skal have den til vente skal du lave en function

> dkn  -  den er jeg ikke enig med dig i.
Den afvikles sekventielt og ikke parallelt. Men du kan få den til at køre sådan ved at lave p1 om til en selvstændig tråd.
function / procedure - samme ting ...... (i den henseende)

Øh ?

Jeg vil stærkt formode at besked først bliver vist når p1 er afsluttet !

Jeg vil også sige at beskeden først bliver vist når p1 er afsluttet.

Men det kan man jo nemt teste ved at man i slutningen af p1 proceduren indsætter en ShowMessage('P1 afsluttet'); og så se hvilken besked der kommer først frem ;)

det kommer jo også an på hvad procedure skal udføre vil jeg sige.
Desuden ved jeg ikke hvordan MP og HT systemer vil gøre det

Jeg mener ikke at det overhovedet afhænger af hvad p1 gør. P1 vil afslutte
førend næste udføres (og selvom p1 evt. starter en tråd så afslutter p1 alligevel).

Og singletrådede apps opfører sig helt ens på single processor og multi processor
systemer.

jaa min fejl, overtræt tror jeg :)

Der er sku gået lidt for meget objects og mutithreaded kode i det på det sidste :D

haha - helt i orden, dkn. Men jeg må indrømme at du fik mig rystet mig lidt .... :)

Er konklusionen så, at p1 under alle omstændigheder vil blive afviklet før beskeden bliver vist ??
Hvad skal man så gøre, hvis man gerne vil have, at p1 bare bliver startet og beskeden derefter bliver vist ??

Ja

Du skal ikke kalde p1 men i.s.f. starte en tråd som kører p1.

Hvordan gør man det ??

Det ligger uden for mit erfarings område.

Men der må være noget på nettet.

Google fandt bl.a. følgende:
  http://www.delphicorner.f9.co.uk/articles/op2.htm

http://www.drbob42.com/uk-bug/hood-04.htm

Den første adresse virker ikke og den anden virker lidt uoverskuelig.
Er der nogle som har forstand på det, som kan forklare det ??

Jeg kan godt prøve at se om jeg kan få hello world til at virke trådet.

Hvad mener du med det ??

At jeg vil prøve at få et simpelt eksempel med TThread til at virke.

OK. Det lyder godt...

procedure p1;

begin
    ShowMessage('p1');
    Sleep(1000);
    ShowMessage('p1');
end;


type
  RunP1 = class(TThread)
      protected
        procedure Execute; override;
      end;


procedure RunP1.Execute;

begin
  p1;
end;


  t := RunP1.Create(false);
  ShowMessage('test');
  t.WaitFor;

udskriver:
  p1
  test
  p1
som den skal.

Du kan også godt se den komplette kode men jeg laver normalt console applikationer !

program thr;

{$APPTYPE CONSOLE}

uses
  Classes,Dialogs,Windows;

type
  RunP1 = class(TThread)
      protected
        procedure Execute; override;
      end;

procedure p1;

begin
    ShowMessage('p1');
    Sleep(1000);
    ShowMessage('p1');
end;

procedure RunP1.Execute;

begin
  p1;
end;

var
  t : RunP1;

begin
  t := RunP1.Create(false);
  ShowMessage('test');
  t.WaitFor;
end.

TThread kan nogle gange være lidt overkill til små opgaver. Du KAN også bruge en createthread()-API.

function MinThread( parameter : pointer ): LongInt; stdcall;
begin
  DoSomething1();
  DoSomething2();
  Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ThrID : DWord;
begin
  Createthread( nil, 0, @MinThread, nil, 0, ThrID );
  ShowMessage('Test');
end;

Men brug hvad du har lyst til :)

En helt enkel metode (og måske lidt primitiv), er at sætte "P1" koden ind i en OnTimer event.
Timeren er sat til interval = 1 og enabled = false;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
sleep(2000);
showmessage('Timer procedure slut');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
showmessage('Button1 procedure slut'); //udføres straks efter at timeren er startet
end;

Tid at få afsluttet spørgsmålet ?

Og et svar fra mig

Ja, det er vist ved at være tid at få afsluttet spørgsmålet.
Jeg venter lige og ser om der evt. er flere, som også vil af med et svar....