Moin,
ich habe eine relativ einfache Frage.
Eine Datei auf der Festplatte wird mittels StringList geladen und in einem Memo angezeigt.
Funktioniert alles wunderbar.
Ich möchte das ganze jetzt aber auf einen Thread umbauen und habe die neuen Funktionen wie WaitFor usw gelesen.
Wie würdet ihr, ein ganz einfaches Konstrukt aufziehen für die obrige Aufgabenstellung, nur eben in ein Thread ausgelagert und nur die Anzeige wird dann von der VCL gemacht.

Delphi 12.2
Windows 11

Bist du sicher, dass das Laden von der Festplatte so lange dauert? Das Laden in das Memo wird deutlich länger dauern und genau das kannst du nicht in einem Thread machen.

Zur Frage:
Am einfachsten geht das mit einem anonymen Thread. So ungefähr:

zusammenfalten · markieren

Delphi-Quellcode:

TThread.CreateAnonymousThread(procedure
  var
    Data: TStringList;
  begin
    Data := TStringList.Create;
    try
      Data.LoadFromFile(MyFilenamme);
      TThread.Synchronize(nil, procedure
        begin
          TargetMemo.Lines.Assign(Data);
        end);
    finally
      Data.Free;
    end;
  end).Start;

Zitat von jaenicke:

Bist du sicher, dass das Laden von der Festplatte so lange dauert? Das Laden in das Memo wird deutlich länger dauern und genau das kannst du nicht in einem Thread machen.

In Zeiten von SSD dürfte das (wenn es nicht GB sind) nicht relevant sein.
Und auch dann dürfte die Anzeige der Limitierende Faktor sein.
Hier dürfte dann das Memo Limitierend sein.
Hier würde sich dann der virtual list box-Modus wichtiger sein, wenn man reine Anzeige und kein Edit benötigt.

Sorry für die unglückliche Aussage. Es stimmt natürlich, die Anzeige (VCL) ist das Problem.
Mir ging es in erster Linie wirklich um den Umbau des Ladens auf Thread.
Die Anzeige muss ich auch noch etwas machen, damit das evtl. nur das anzeigt was grad interessant ist (Abschnitt) und dann je nach scrollen etc. nachlädt.

Zitat:

virtual list box-Modus

Das muss ich mal gucken was das ist. Sagt mir aktuell nichts

Das Laden wird so oder so ganz bestimmt schneller sein, als die Übergabe an das Memo.
So gesehn, ist der Thread also eigentlich nahezu nutzlos, da der langsamere Teil sowieso sychronisiert werden muß.

Memo.Lines.LoadFromFile(Filename);

var X := TFile.ReadAllLines(Filename); Memo.Lines.AddString(X);

Was die Performance beim Füllen eines TMemo angeht, ist wohl das Memo1.Lines.Text := TFile.ReadAllLines(Filename); ein guter Ansatz.

Da TMemo.Lines mit TMemoStrings implementiert ist und das dortige SetTextStr nur einen einzigen SendTextMessage(.., WM_SETTEXT,...) Call macht, ist das bei vielen Zeilen in der Regel deutlich schneller als Assign oder AddStrings. Letztere laufen intern auf ein Insert hinaus, das für jede Zeile 2 - 4 Messages benötigt.