Hallo zusammen,
ich habe leider keine passendere Überschrift für das Thema gefunden, da ich sonst den kompletten Fehler hätte hinschreiben müssen.
Darum verzeiht mir.
Es geht darum, dass ich mich gerade mit Threads auseinander setze.
Nur verstehe ich den Ablauf nicht so ganz.
Besser gesagt, das Ergebnis.
Hier erst einmal mein kompletter Code.
Und bitte verzeicht die Namensgebung diverser Dinge.
Diente nur als Test.
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,System.Classes;
type
TIdThread =
class(TThread)
private
tText:
String;
protected
procedure Execute;
override;
public
procedure SetText(text:
String);
virtual;
end;
var
i: Integer;
maxThreads: Integer;
Thread: TIdThread;
procedure TIdThread.SetText(text:
String);
begin
tText := text;
end;
procedure TIdThread.Execute;
begin
Writeln(tText);
end;
begin
try
Write('
Wie viele Threads sollen erzeugt weden: ');
Readln(maxThreads);
for i := 1
to maxThreads
do
begin
Thread := TIdThread.Create();
Thread.FreeOnTerminate := true;
Thread.SetText('
Ich bin Thread ' + IntToStr(i));
Thread.Execute;
end;
Readln;
{ TODO -oUser -cConsole Main : Code hier einfügen }
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
end.
Wenn ich dieses Gebilde nun ausführe und die Zahl 1 eingebe, dann erhalte ich komischerweise folgendes als Ergebnis:
Ich bin Thread 1
Ich bin Thread 1
Ich bin Thread 1
Die Ausgabe erscheint also 3 mal.
Nur die Frage ist, wieso ???
Desweiteren fürde ich interessieren, warum ich der Execute-Prozedur keine Parameter mitgeben kann?
Ich musste ich es über einen Setter machen.
Vielen Dank schonmal.