Problem s vlaknem – Delphi – Fórum – Programujte.com

Zdravím.

Jesem to oprašíl a nějak to nedavam.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Vlakno :=ZkontrolujVlakno.Create(True);
end;

procedure ZkontrolujVlakno.Execute;

begin
repeat
Synchronize(zapis);

until (Terminated = True);
end;
procedure ZkontrolujVlakno.zapis;
begin
form1.Memo1.Lines.Add('chyba');
Form1.memo1.Repaint;
end;

Memo furt prazdne

Vlákno vytvářís suspendované - takže se po vytvoření samo nespustí. Buď do konstruktoru pošli False nebo to vlákno po vytvoření ručně spusť (Resume/Start; podle verze Delphi). Jinak nevím, čeho chceš dosáhnout, protože metody poslaný do synchronize (což máš dobře, vzhledem k tomu, že tam šaháš na VCL) se provádějí v hlavním vlákně, takže to tvoje vlákno v zásadě vůbec nic nedělá.