Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Vlakna v delphi

Zdravím,pomůže někdo.
S vlákny jsem ještě nedělal a s tímto mi pomáhal kámoš.
Potřebují to upravíte tak, aby se při vyvaření vlákna předal i obsah buňky gridu podle řádku
radek := stringgrid.Cells[2,i]

TMujThread = class(TThread)
  private
   i_radek:integer;
  protected
  procedure Execute; override;
  public
    constructor Create(radek:integer);
  end;
  
constructor TMujThread.Create(radek:integer);
begin
  i_radek := radek;
  inherited Create(True);
end;

for i := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Objects[0, i] := TMujThread.Create(i);
Předmět Autor Datum
Bud potrebujes i informaci o radku, pak si konstruktor rozsir o informaci obsahu bunky: TMujThread… nový
Jan Fiala 10.11.2013 11:13
 Jan Fiala
Děkují ;-) poslední
BigSandy 11.11.2013 16:45
 BigSandy

Bud potrebujes i informaci o radku, pak si konstruktor rozsir o informaci obsahu bunky:

TMujThread = class(TThread)
  private
   i_radek:integer;
   s_obsah:string;
  protected
  procedure Execute; override;
  public
    constructor Create(radek:integer; obsahbunky: string);
  end;
  
constructor TMujThread.Create(radek:integer; obsahbunky: string);
begin
  i_radek := radek;
  s_obsah := obsahbunky;
  inherited Create(True);
end;

for i := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Objects[0, i] := TMujThread.Create(i, stringgrid.Cells[2,i]);

nebo informaci o radku nepotrebujes a pak si proste zmen typ promenne na string a predavej tam obsah bunky

Zpět do poradny Odpovědět na původní otázku Nahoru