Új hozzászólás Aktív témák

• #5625 pckownz őstag

  Új Válasz 2011-12-18 21:26:43 #5625

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pckownz

  őstag

  Sziasztok, a problémám a következő.
  Írtam egy progit a suliban, ami fainul futott. Itthon viszont fagyasztja Lazarus-t.
  Lazarus-0.9.30.2-fpc-2.4.4-win64 verzió van meg, ha jól rémlik a suliban ugyan ez van.
  Minden más projectet képes lefuttatni, egyedül ezt nem. Program nem válaszol felirat, probléma leírás:
  Problémaesemény neve: AppHangB1
  Alkalmazásnév: lazarus.exe

  Ötlet?

  A kód a következő:

  unit Unit1;
  
  {$mode objfpc}{$H+}
  
  interface
  
  uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin, ExtCtrls, ComCtrls;
  
  type
  
  { TForm1 }
  
  TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Label1: TLabel;
  Label10: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Label9: TLabel;
  ListBox1: TListBox;
  ListBox2: TListBox;
  ListBox3: TListBox;
  ListBox4: TListBox;
  SpinEdit1: TSpinEdit; //maxvalue 2^24
  Timer1: TTimer;
  TrackBar1: TTrackBar;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Timer1Timer(Sender: TObject);
  procedure TrackBar1ChangeBounds(Sender: TObject);
  private
  { private declarations }
  public
  { public declarations }
  end;
  
  //--------------------------------------
  var
  Form1: TForm1;
  osztok:array[1..65535]of integer;
  primek:array[1..65535]of integer;
  nonprimek:array[1..65535]of integer;
  j,inp,osztodb:integer;
  var prim,falsprim,ikerprim:integer;
  //--------------------------------------
  implementation
  
  {$R *.lfm}
  
  { TForm1 }
  
  procedure Nullaz;
  begin
  prim:=0;
  falsprim:=0;
  ikerprim:=0;
  Form1.SpinEdit1.Value:=1;
  end;
  
  //********************************************* Számítás indítása
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Timer1.Enabled:=true;
  Nullaz;
  end;
  //---------------------------------------------
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  Timer1.Enabled:=false;
  Nullaz;
  end;
  
  //********************************************* Számítás leállítása
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  Label2.Visible:=false;
  Nullaz;
  end;
  //---------------------------------------------
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  ListBox1.Items.Clear;
  SpinEdit1.Value:=SpinEdit1.Value + 1;
  inp:=SpinEdit1.Value;
  osztodb:=0;
  (*********************OSZTO SZAMITASA***********************)
  for j:=1 to (inp div 2) do
  if (inp mod j) = 0 then
  begin
  Inc(osztodb);
  osztok[osztodb]:=j;
  end;
  for j:=1 to osztodb do
  ListBox1.Items.Add(IntToStr(osztok[j]));
  if (osztodb=1) and (inp<>0) or (inp=1) then
  begin
  Label2.Visible:=true;
  Inc(prim);
  primek[prim]:=inp;
  if (prim > 1 ) AND (primek[prim] - primek[prim-1] = 2) then
  begin
  ListBox4.Items.Add(IntToStr(primek[prim-1]));
  ListBox4.Items.Add(IntToStr(inp));
  ListBox4.Items.Add('----------');
  Inc(Ikerprim);
  Edit3.Text:=IntToStr(ikerprim);
  ListBox4.ItemIndex:=ListBox4.Items.Count-1;
  end;
  ListBox2.Items.Add(IntToStr(inp));
  Edit1.Text:=IntToStr(prim);
  ListBox2.ItemIndex:=ListBox2.Items.Count-1;
  end
  else
  begin
  Label2.Visible:=false;
  ListBox3.Items.Add(IntToStr(inp));
  ListBox3.ItemIndex:=ListBox3.Items.Count-1;
  Inc(falsprim);
  Edit2.Text:=IntToStr(falsprim);
  end;
  (********************Ikerprimek********************)
  
  end;
  
  procedure TForm1.TrackBar1ChangeBounds(Sender: TObject);
  begin
  
  end;
  
  end.

Új hozzászólás Aktív témák