Re: 2 procedury na raz

Article View: pl.comp.lang.pascal

Article #92281

Back to pl.comp.lang.pascal Previous Next

#92281

From: Wiktor S.
Date: Thu, 15 Nov 2007 13:26

22 lines
1322 bytes

> - ogólnie - w FPC w unit Classes jest klasa TThread, wystarczy
>  przykryć wirtualną metode Execute i będziesz miał "przenośny" wątek.


TThread jest wrapperem na standardowe funkcje freepascala:


function watek(parametr:pointer):longint;
begin
  writeln('wątek');
end;


begin
  beginthread(@watek);         // albo:  beginthread(@watek,jakis_pointer);
  writeln('program główny');
end.



-- 
Azarien

Technical Details

Message-ID: <fhhhd3$omh$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail

References: <fhd53l$ofr$1@inews.gazeta.pl> <fhd8jt$nnc$1@news.dialog.net.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
From: "Wiktor S." <wswiktor&poczta,fm@no.spam>
Newsgroups: pl.comp.lang.pascal
Subject: Re: 2 procedury na raz
Date: Thu, 15 Nov 2007 14:26:00 +0100
Organization: Onet.pl
Lines: 24
Message-ID: <fhhhd3$omh$1@news.onet.pl>
References: <fhd53l$ofr$1@inews.gazeta.pl> <fhd8jt$nnc$1@news.dialog.net.pl>
NNTP-Posting-Host: 76.174.wmc.com.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1195133155 25297 87.250.174.76 (15 Nov 2007 13:25:55 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Thu, 15 Nov 2007 13:25:55 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198
X-Sender: 63e3folRCjcGWUjNfLSN0w==
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-Priority: 3
X-MSMail-Priority: Normal
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message