Hubavo e da prochetesh knijkite (i chastta s opasnotite, za da znaesh kakvo da pravish ako ima problem). Eto ti edin primer na rabota s nishka:

V glavnata programa:
uses UnitNaNishkata;

kudeto shte se izvurshva background rabotata s nishkata slagash
TMoqtaNihska.Create(Parametur);

eto i koga na UnitNaNishkata.pas:
unit UnitNaNishkata;

interface

uses
Classes; //i kakvoto oshte trqbva

type
TMoqtaNihska= class(TThread)
public
constructor Create(const AString: string);
destructor Destroy; override;
protected
procedure Execute; override;
private
FString: string;
procedure Update;
end;

implementation


constructor TMoqtaNihska.Create(const AString: string);
begin
FString := AString; //eto kak podadohme nqkakuv parametur ot glavnata programa vuv nishkata

inherited Create(false);
end;

destructor TMoqtaNihska.Destroy;
begin
//ako si suzdavash razni bozi v nishkata (nqkakvi StringList-ove i tn.), tuka mu e mqstoto da gi .Free;
end;

procedure TMoqtaNihska.Execute;
begin
FreeOnTerminate := true;
Priority := tpHigher; //ili kolkoto iskash

//pravish si kakvoto iskash
//tuka mu e mqstoto
FString := ''blabla - promenen e ot nishkata;
//mojesh da pratish neshto na glavnata programa eto taka
Synchronize(Update);
//surhi li execute znachi si zaminava nishkata
end;

procedure TMoqtaNihska.Update;
begin
MainForm.Label1.Caption := FString;
end;

end.

//Ei nakraq kniga moga da napisha

by Wise Guy

Съдържаниет е скрито
Влезте за да го видите