|
Тема |
Re: Помощ с пустите му Нишки [re: Яceн *;o)] |
|
Автор |
Wise Guy (да бе умен...) |
|
Публикувано | 18.04.02 11:34 |
|
|
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
|
| |
|
|
|