Guten Abend zusammen, ich habe eine Frage, wo ich mir jetzt schon die ganze Zeit meinen Kopf zerbreche.
Also ich ahbe ein Programm geschrieben, welches ganz stubide immer 1 addiert.
Hier der Code:
Code:
procedure TThread1.Execute;
var i : integer;
list : TStringList;
begin
list := TStringList.Create;
Form1.ProgressBar1.Min := StrToInt(Form1.Edit1.Text);
Form1.ProgressBar1.Max := StrToInt(Form1.Edit2.Text);
for i := StrToInt(Form1.Edit1.Text) to StrToInt(Form1.Edit2.Text) do
begin
List.Add(IntToStr(i));
Form1.ProgressBar1.Position := i;
end;
List.SaveToFile(Form1.Edit1.Text+'-'+Form1.Edit2.Text+'.txt');
List.Free;
end;
Das ganze wird in einem Thread gestartet wie man sieht.
Ich möchte das ganze jetzt ein wenig beschleunigen, indem ich das ganze in mehreren Threads starte.
Jetzt ist nur die Frage, wie ich das jetzt am besten realisiere?
Soll ich z.B. jedem Thread einen Bereich zu ordnen, den er generieren soll oder was denkt ihr?
Und wenn ja wie kann ich dass das aufteilen?
Hoffe ihr könnt mir helfen.