Nabend zusammen,
ich bin gerade dabei mich ein wenig mit Threads zu befassen.
Jetzt habe ich versucht 2 Memos zur selben Zeit zu befüllen, indem ich einfach die zahlen 0 bis 100 ausgeben lasse.

Dazu hier mein gesammter Quellcode:

markieren

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TThread1 = class(TThread)
    protected
       procedure SendMemo1; override;
       procedure SendMemo2; override;
  end;


type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);



  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TThread1.SendMemo1;
var i : integer;
begin
for i := 0 to 100 do
    TForm1.Memo1.Lines.Add(IntToStr(i));
end;

procedure TThread1.SendMemo2;
var i : integer;
begin
for i := 0 to 100 do
    TForm1.Memo2.Lines.Add(IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var Thread : TThread1;
begin
Thread := TThread1.Create(false);
Thread.FreeOnTerminate := true;

end;

end.

Doch immer wenn ich das Programm starten möchte kommt folgender Fehler:

"[DCC Fehler] Unit1.pas(12): E2137 Methode 'SendMemo1' nicht in Basisklasse gefunden"
"[DCC Fehler] Unit1.pas(13): E2137 Methode 'SendMemo2' nicht in Basisklasse gefunden"


Könnt ihr mir sagen, warum ich diese meldung bekomme?

Also in deinem Beispiel ist so ziemlich alles falsch.

markieren

Delphi-Quellcode:

type
  TThread1 = class(TThread)
    protected
       procedure SendMemo1; //override; <- zum Überschreiben von Methode aus den Vorgängerklassen
       procedure SendMemo2; //override;
  // wo ist die Methode Execute ???? denn die führt der Thread automatisch aus
  // und ohne, was soll der Thread ausführen, machen? Einfach nix
  end;

markieren

Delphi-Quellcode:

procedure TThread1.SendMemo1;
var i : integer;
begin
for i := 0 to 100 do
  // TForm1 ist die Klasse ... ein Zugriff kann aber nur auf ein Instanz erfolgen
  TForm1.Memo1.Lines.Add(IntToStr(i));
  // Aber ein Thread läuft in einem anderen anderen Thread-Kontext als eine Form
  // und da bekommt man ganz schnell Zugriffsfehler
  // also aus einem Thread NIEMALS direkt auf die GUI/Form/Form-Controls zugreifen
end;

Such mal nach Thread-Tutorials und ein paar Grundlagen Tutorials würden glaub ich auch nicht schaden

Hmmm, ich habe mich nach diesem Tut gehalten: http://wiki.delphigl.com/index.php/T...Multithreading

Und dort steht unten:

markieren

Code:

procedure TMyOwnThread.Execute;
begin
  // Führe hier irgendwelche Berechnungen aus.
end;

Deswegen dachte ich TMyOwnThread.Execute ist eine ganz normale procedure.

Override habe ich nur genommen, weil es eben im Beispiel auch da stand.

Ok, ich werde das nochmal durcharbeiten.


Jetzt stell ich mir nur die Frage, wie greife ich denn dann z.B. auf das Memo zu?

Schau dir einfach mal den Aufbau der Basisklasse TThread an

Und das Tut was du dir angeschaut hast sagt doch auch ganz deutlich

Zitat:

Das Erstellen eines Thread ist in Delphi wahnsinnig einfach. *eg*
Das Einzige was wir tun müssen ist die Klasse TThread abzuleiten und die Methode Execute zu überschreiben.
Wer keine Ahnung von Objekt orientiertem Programmieren (OOP) hat sollte sich an dieser Stelle erst einmal darüber schlau machen.

Das haben die nicht aus Langeweile geschrieben

Falls du wissen möchtest, welche Methoden du aus den Vorgängerklassen "overriden" kannst, dann hat die IDE da eine sehr geniale Hilfe

markieren

Delphi-Quellcode:

type
  TThread1 = class( TThread )
    // <- Mit dem Cursor an diese Stelle gehen (diesen Kommentar wegdenken) und dann STRG+SPACE drücken
    // dann bekommst du eine Liste mit diesen Methoden angezeigt und brauchst die gewünschte nur noch auswählen
    // SHIFT+STRG+C (CodeCompletion) und lostippen :o)
  end;

Eventuell hilft das: http://www.michael-puff.de/Programmi...rials/Threads/ Kapitel 10.

Oder das hier http://www.delphipraxis.net/142081-p...ogressbar.html (mit einem fertigen Beispiel-Projekt)

Oder das hier http://www.delphipraxis.net/847415-post19.html (ok, ist schon etwas abgedrehter)