ListView im VirtualMode

[TiGü]

Sorry, aber selbst wenn man alle fehlenden Variablen ergänzt, kann das so nicht kompilieren.
Hast du das gerade kopiert oder abgetippt?

Wie ist die function Split definiert?
Ist das was selbst geschriebenes?

Du startest einen anonymen Thread und greifst auf VCL-Komponenten zu. Das ist schon mal grundsätzlich falsch. Sowas macht man nicht, dafür kommt man in die Programmierhölle!

Dein BeginUpdate der ListView ist richtig, aber du rufst EndUpdate innerhalb der Schleife auf. Das heißt, nach dem ersten Element hinzufügen hilft dir das nicht weiter.

Am Besten wäre es, wenn du uns anhand der eingehenden Daten erklärst, was du eigentlich machen möchtest. Ich vermute, man kann das alles einfacher und schneller lösen.
Vor allen mit der zweiten Schleife ist irgendwie unklar. Den StateIndex kannst du doch schon in der ersten Schleife setzen?

Ansonsten kannst du mal diese erste Verbesserung probieren:

Delphi-Quellcode:

var
  ListItem: TListItem;
  p: Integer;
  Strings, StringList: TStringList;
  FirstRun: Boolean;
  I: Integer;
  CurrentString: string;
  EntryString: string;
begin
  Strings := TStringList.Create;
  StringList := TStringList.Create;
  Strings.Text := MeinDatenString;

  Strings.BeginUpdate;
  StringList.BeginUpdate;
  ListView1.Items.BeginUpdate;
  try
    for I := 0 to Strings.Count - 1 do
    begin
      CurrentString := Strings.Strings[I];
      EntryString := Split(CurrentString, '|', 1);
      ListItem := ListView1.FindCaption(0, EntryString, False, True, False);

      if ListItem = nil then
      begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := EntryString;
        ListItem.SubItems.Add(Split(CurrentString, '|', 2));
        ListItem.SubItems.Add(Split(CurrentString, '|', 3));
        ListItem.SubItems.Add(Split(CurrentString, '|', 4));
        ListItem.SubItems.Add(Split(CurrentString, '|', 5));
        ListItem.SubItems.Add(Split(CurrentString, '|', 6));
      end
      else
      begin
        ListItem.StateIndex := 0;
        EntryString := Split(CurrentString, '|', 2);
        if ListItem.SubItems[0] <> EntryString then
          ListItem.SubItems[0] := EntryString;

        EntryString := Split(CurrentString, '|', 4);
        if ListItem.SubItems[2] <> EntryString then
          ListItem.SubItems[2] := EntryString;
      end;

      StringList.Add(ListItem.Caption);
    end;

    for I := ListView1.Items.Count - 1 downto 0 do
    begin
      ListItem := ListView1.Items[I];
      if ListItem.StateIndex = 2 then
      begin
        ListItem.Delete;
        Continue;
      end;

      p := StringList.IndexOf(ListItem.Caption);
      if p = -1 then
        ListItem.StateIndex := 2;
    end;

    FirstRun := False;
    ListView1.Refresh;
  finally
    ListView1.Items.EndUpdate;
    StringList.EndUpdate;
    Strings.EndUpdate;
    StringList.Free;
    Strings.Free;
  end;
end;