-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Ist veraltet ja, aber habe sonst noch keine andere Lösung gefunden.
Ja wäre ganz cool wenn ich schon fertig bin, aber was soll ich machen, wenn ich es nicht schaffe
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Ich brauch ListBox1.Items.Objects
Mit nur .Items spreche ich ja die line an
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Okay,da hab ich nicht überlegt! Ich muss ja erstmal einen Thread a7s meiner TCollection holen
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Ja da mangelt es.
Das wollte ich so lösen.
procedure TForm7.StartClick(Sender: TObject);
var
Thread1: TMyThread;
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Okay, also wenn ich das richtig verstehe, muss ich dann auch im deconstructor meine Threads terminieren und freigeben?
Mit den Ids hätte ich jetzt über die Listbox gelöst...oder ist das wieder schlecht, weil ich wieder direkt auf die GUI zugreife?
for i := 0 to 5 do
begin
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Ja ich meinte Constructor. Aber ich verstehe leider überhaubt nicht, wie ich das umsetzten soll.
So ist Quatsch oder ?
TThreadItem = class(TCollectionItem)
private
public
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
16. Nov 2017
Danke für die Geduld.
Ja, es findet wohl gar keine Zuordnung statt. Die sollte dann wahrscheinlich im Instructor von TThreaditem stattfinden oder.
Flength hab ich entfernt, war Quatsch.
Und das Array ergibt eigentlich aauch kein Sinn.
Ich möchte das beim Programmstart 6 Instanzen von TMyThread erstellt werden und in meiner TCollection eingefügt werden
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
15. Nov 2017
Okay, Sorry ist wohl etwas vom ursprünglichen Thema abgewichen, dann wieder zurück zu TCollection.
Ich habe jetzt versucht, dass beim Programmstart 6 Threads erstellt werden und in einer TCollection gespeichert werden. Hier mal der Code dazu
TMyThread = class(TThread)
protected
counter: integer;
procedure Execute; override;
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
15. Nov 2017
Natürlich weiß ich wie Schleifen, Arrays usw funktionieren ...ich hab nur mein Augenmerk auf Threads gelegt, weil ich da absolut keine Ahnung davon hatte.
Und nein, ich bin mir nicht sicher ob es der richtige Weg ist. Aber was spielt das hier für eine Rolle? Fertig machen werde 8ch das Studium
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
15. Nov 2017
Ich weiß das ich noch lange nicht fertig bin, aber ein "Danke" zwischendurch muss mal sein ..ist ja nicht selbstverständlich 😀
Ich werde mich dann gleich mal an deinen Punkten versuchen. Nur bei Punkt 1, irgendwie muss ich ja auf die GUI zugreifen oder ? Und als Liste wäre dann wahrscheinlich eine TCollection geeignet oder?
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
14. Nov 2017
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ExtCtrls;
type
TForm7 = class(TForm)
Start: TButton;
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
14. Nov 2017
Ja genau das war die Frage. Aber wenn ich z.b die if b=2 weglasse, wird auch 2mal ins Memo geschrieben. Dann wird alles von einem Thread ausgeführt?
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
14. Nov 2017
Vielen Dank, mache ich.
Aber eine Frage hätte ich noch. Wie sehe ich denn, das dies alles von mehreren Threads ausgeführt wird ?
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
14. Nov 2017
Ne Ne, zuhause dann. Nur hab da keine Prog für Delphi, deswegen konnte ich nicht testen ...also kann sein das ich mich vll vertippt habe.
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
14. Nov 2017
Oh hab ich wohl ausgelassen
In der execute, vor den if anweißungen ..b:=ID
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
13. Nov 2017
So jetzt mal der Code wie ich ihn bisher habe
type
TForm1=class(TForm)
Start:TButton;
Button3:TButton;
ListBox1:TListBox;
Label1:TLabel1;
Label2:TLabel2;
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
13. Nov 2017
Okay Id wird folgendermaßen bestimmt
Procedure TForm7.Listbox1Click(Sender:TObject)
Begin
ID=integer(ListBox1.Items.Objects);
End;
Ps: bin allein im Büro, deswegen kann ich ja auch keine Kollegen um Hilfe Fragen
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
13. Nov 2017
Okay
MACHT was = Form1.Memmo1.Lines.Add('Thread Nr 0' + DateTimetostr(Now) +'uhr')
Und das halt dann für jedem Thread, es ändert sich praktisch nur die Nummer des Threads
Meine einzelnen Threads starte ich über einen Button und davor wähle ich den Thread über die Listbox aus.
Procedure TForm1.StartClick(Sender: TObject)
Begin
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
13. Nov 2017
Hi,
Für die Aufgabe die ich gepostet habe bezüglich Threads hab ich folgende Execute Methode geschrieben
Procedure TMyThread.Execute;
Begin
While Not Terminated so
If ID=1 Then
Begin
//Macht was
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
10. Nov 2017
Ne, hab natürlich nachgefragt..ist nicht erwünscht
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
10. Nov 2017
Ich soll mich in der Arbeit nirgends einloggen.
Ich denke, ich hab es geschafft..ich probiere noch weiter rum ..und schicke den ganzen Code dann von Zuhause.
Danke
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
10. Nov 2017
Okay sorry, hab mit dem Handy geschrieben.
Danke für die Antwort, verstehe ich alles.
Würde ich jetzt die Schleife so setzen, dass nur 1 Thread erstellt wird. Wie könnte ich diesen dann über einen weitern Button wieder beenden oder pausieren lassen?
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
10. Nov 2017
Hi, jetzt hätte ich eine spezielle Frage zu Threads.
Ich habe folgenden Code
procedure TForm1.ButtonClick(Sender:TObjecjt)
Var
I:integer
Begin
For i:=1 to 6 so
Begin
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
8. Nov 2017
Okay, Danke
-
Forum: Object-Pascal / Delphi-Language
by MrBrown90,
8. Nov 2017
Was ein Thread ist, weiß ich natürlich