program testthreads;
{$mode objfpc}
uses
sysutils,
classes;
type
TMyThread=class(TThread)
private
ch : char;
protected
procedure Execute; override;
public
constructor Create(c:char);
end;
procedure TMyThread.Execute;
begin
repeat
write(ch);
until Terminated;
end;
constructor TMyThread.Create(c:char);
begin
ch:=c;
inherited Create(false);
end;
var
t1,t2 : TMyThread;
begin
t1:=TMyThread.Create('a');
t2:=TMyThread.Create('b');
readln;
t2.Terminate;
readln;
t1.Terminate;
readln;
t2.Destroy;
t1.Destroy;
end.
При запуске секунды 3-4 работает как надо, потом ошибка
Error, DISC FULL
И вылетает.
Компилятор FPC.
То-же самое делаю на Delphi, все идеально!
+ в FPC когда прога еще работает, если нажать на клавишу, то прога вылетит.
почему?