Hallo,
ich habe noch nie mit Threads gearbeitet und nun dachte ich es wird mal Zeit. Dabei stellt sich ein Problem auf.
Zunächst einmal der Code:
Delphi-Quellcode:
type
TLoadThread = class(TThread)
private
{ Private-Deklarationen }
protected
Value: TObject;
procedure Execute; override;
procedure UpdateProgress;
end;
procedure TLoadThread.Execute;
var
i : Cardinal;
Time1 : Real;
Time2 : Real;
begin
with Main do
begin
for i := 0 to 10 do
begin
Time1 := GetTickCount;
if Value = BtnFirstValue then LVwUser.Items[i].SubItems[0] := LoadValue
else
begin
LVwUser.Items[i].SubItems[1] := LoadValue;
LVwUser.Items[i].SubItems[2] := 'andere Text';
end;
Time2 := GetTickCount;
Time1 := Time2 - Time1;
Time1 := Time1 / 1000;
LVwUser.Items[i].SubItems[3] := FloatToStr(Time1);
Synchronize(UpdateProgress);
end;
PBrUser.Visible := False;
end;
end;
procedure TLoadThread.UpdateProgress;
begin
Main.PBrUser.Position := Main.PBrUser.Position + 1;
end;
Delphi-Quellcode:
procedure TMain.BtnFirstValueClick(Sender: TObject);
begin
PBrUser.Visible := True;
PBrUser.Max := 10;
PBrUser.Position := 0;
Thread := TLoadThread.Create(True);
Thread.Value := Sender;
Thread.FreeOnTerminate := True;
Thread.Resume;
end;
Das funktioniert soweit auch, aber ich dachte,
VCL Komponenten wie die LVwUser könnten nur über Synchronize bearbeitet werden, doch wie man sieht geht es auch in der Execute. Wieso geht es auch dort? Sollte dann nicht auch die Funktion LoadValue, die im Hauptthread liegt ebenfalls nicht funktionieren?
Die Tatsache dass es funktioniert verwirrt mich, denn ich dachte eingentlich dass es nicht geht.
Kann mir das jemand erklären? Ich würde die Funktion LoadValue auch in den Thread nehmen, zu Testzewcken habe ich die Funktion einfach unter TLoadThread deklariert. aber geändert hat sich nichts. Sicher war das auch nicht korrekt. Wie muss ich das aufbauen, damit es richtig ist?
Gruß
Mazel
Sprachen und Entwicklungsumgebungen
Zitat
Baum-Darstellung
