mam aplikaciu s vlaknami. nie vzdy ale pri zatváraní aplikácie mi vyhadzuje chybu ( asi skor vynimka ) EOSERROR: system error code 1400. pravdepodobne tato chyba súvisí s handle? ale neviem ju odstranit. vie niekto o niecom?
obrazok
http://www.upnito.sk/imggal.php?viewGal ... 7adae9fd6d
dalsi maly problem so SpinEditom (zalozka samples)
ak necham EditorEnabled=True moze sa stat ze uzivatel vymaze komplet cislo v SpinEdite a nasledne sa program snazi tuto hodnotu vlozit niekam - tu vznikne chyba EConvertError : is value not integer. vie niekto o nejakej finticke ako testovat ci v SpinEdite nieco je?

1) obrázky sa dávajú do príloh
2) keď nenapíšeš o akom jazyku je reč, tak ti asi nikto neporadí
3) k tej chybe by bolo treba vidieť aspoň časť zdrojáku
4) výnimky, podmienky.. čokoľvek. Zase platí že nedokážem poradiť keď neviem o aký jazyk sa jedná

v Delphi
constructor TBlikPismo.vytvor;
begin
__Priority:=tpLowest;
__execute;
end;

procedure TBlikPismo.execute;
begin
__while Bpismo do begin
___if text='' then text:=txt else text:='';
___if Bpismo then Synchronize(prepis);
___if Bpismo then Sleep(500);
__end;
end;

procedure TBlikPismo.prepis;
begin
__MSG.Cells[col,0]:=text;
end;

procedure TForm1.KonecnyVypis;
var CF:TForm;
___BB:TBitBtn;
___Mg:Timage;
___SG:TStringGrid;
___r,i:Integer;
___FarbaPole:array[1..6]of TColor;
___colorsubor:file of TColor;
begin
__Form1.Enabled:=False;
__CF := TForm.Create(nil);
__with CF do begin
____Name := 'CVypis';
____Caption := 'Výpis';
____Color:=clWhite;
____BorderStyle := bsSizeable;
____BorderIcons:=[];
____Position := poScreenCenter;
____CF.OnClose:=FormKonecnyVypisClose;
__end;
__Mg:=Timage.Create(CF);
__Mg.Parent:=CF;
__SG:=TStringGrid.Create(CF);
__with SG do begin
____Parent:=CF;
____ColCount:=3;
____RowCount:=PocetSort+1;
____Cells[0,0]:='Názov';
____Cells[1,0]:='Čas behu';
____Cells[2,0]:='Poč. výmen';
____FixedRows:=1;
____FixedCols:=0;
____FixedColor:=RGB(217,231,255);//clGradientActiveCaption;
____DefaultColWidth:=95;
____Width:=DefaultColWidth*ColCount+(ColCount+1)*2;
____Height:=DefaultRowHeight*RowCount+(RowCount+1)*2;
____Left:=10;
____Top:=10;
____Font.Name:='Times New Roman';
____Font.Size:=12;
____Font.Style:=[fsItalic];
____Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRowSelect,goAlwaysShowEditor];
____OnMouseDown:=SGMouseDown;
____OnMouseMove:=SGMouseMove;
____r:=1;
____for i:=1 to PocetCheck do
____if CheckBox.vybrany then begin
______case i of
________1: Cells[0,r]:='Bubble';
. . .
________9: Cells[0,r]:='Merge';
______end;
______Cells[1,r]:=Cas;
______Cells[2,r]:=IntToStr(PocetVymen[r-1]);
______inc(r);
____end;
__end;
__CF.Width:=SG.Width+35;
__BB:=TBitBtn.Create(CF);
__with BB do begin
____Parent:=CF;
____Name:='OkBitBtn';
____Caption:='';
____Glyph.LoadFromFile('ok1.bmp');
____Width:=63;
____Height:=43;
____Left:= (CF.Width div 2)-(Width div 2);
____Hint:='OK';
____ShowHint:=True;
____NumGlyphs:=1;
____ModalResult:=mrOk;
____Default:=True;
__end;
__CF.ClientHeight:=SG.Height+BB.Height+30;
__BB.Top:=CF.ClientHeight-BB.Height-10;
__CF.Constraints.MaxHeight:=CF.Height;
__CF.Constraints.MaxWidth:=CF.Width;
__CF.Constraints.MinHeight:=CF.Height;
__CF.Constraints.MinWidth:=CF.Width;
__Mg.Width:=CF.ClientWidth;
__Mg.Height:=CF.ClientHeight;
__Mg.Canvas.Brush.Color:=clSkyBlue;
__Mg.Canvas.Rectangle(Mg.ClientRect);
__vybielit(Mg);
__AssignFile(colorsubor,'ModraPrechod');
__reset(colorsubor);
__for i:=1 to 6 do
____Read(colorsubor,FarbaPole);
__CloseFile(colorsubor);
__Obdlznik(FarbaPole,1,1,Mg.ClientWidth-1,Mg.ClientHeight-1,6,Mg);
__BlikPismo:=TBlikPismo.Create(True);
__BlikPismo.FreeOnTerminate:=True;
__BlikPismo.MSG:=SG;

__if CF.ShowModal=mrOk then begin
____Bpismo:=False;
____BlikPismo.Terminate;
____//BlikPismo.Free;
____Form1.Enabled:=True;
____Image1.Repaint;
____Form1.Repaint;
__end;
__CF.Free;
end;

toto je creatnuty formular so StringGridom kde sa spusta vlakno blikpismo
prosim vie mi niekto pomoct? som uz zufaly!!!!

EDIT : uprava kodu pre lepsiu citatelnost.