Code wird nicht ausgeführt - warum? (erledigt, danke an Popov)

[nachti1505]

Ich rate mal und sage: Ohne ShowMessage wird die ListView einfach nicht neu gezeichnet.... veranlasse doch nach der Änderung ein Neuzeichnen!

[himitsu]

Zitat von nachti1505:

Ich rate mal und sage: Ohne ShowMessage wird die ListView einfach nicht neu gezeichnet.... veranlasse doch nach der Änderung ein Neuzeichnen!

Je nach ListView-Style kommt es drauf an "wie" man das zuweist.

Und Standardmäßig sollte sich die Anzeige von selbst aktualisieren.

Aber

Zitat:

in der funnktion gibt es dann soetwas wie {* ... *}Zeile := WerteListe.Strings[i];

sagt ja sowas von garnichts aus.

[d7user1]

Zitat:

Ich rate mal und sage: Ohne ShowMessage wird die ListView einfach nicht neu gezeichnet.... veranlasse doch nach der Änderung ein Neuzeichnen!

ich ändere die listview nicht. ich ändere die dazu parallel erstellte stringlist.

Zitat:

Was wird wohl passieren, wenn da mal ein leerer String ('' ) auftaucht?

das wird nie passieren da es prüfungen gibt die das nicht zulassen.

Zitat:

Wieso baut eigentlich "WertGefunden" den Wert um, wo es doch angeblich nur sucht?

Zitat:

( ... ) in der weteren ausfhrung wird einfach nur geguckt ob dieser wert "Zeile" ein "_" als erstes zeichen hat oder nicht.
wenn ja, wird es entfernt anderenfalls wird es hinzugefügt:

wie kann ich denn mit dem debuggen genau an dieser stelle anfangen?

[Popov]

Zitat von d7user1:

wie kann ich denn mit dem debuggen genau an dieser stelle anfangen?

Eie Möglichkeit: in der Funktion am Anfang ein Haltezeichen setzten und dann (oder schon vorher) im Menü Ansicht>Debug-Fenster>Lokale Variablen wählen und Programm starten. Du bekommst ein Fenster mit aktuellen lokalen Werten. Mit der Funktionstaste F7 kannst du dann Zeile für Zeile weiter gehen.

PS: wenn da steht "auf Daten können wegen der Optimierung nicht zugegriffen werden", dann ist die Variable entweder unwichtig und oder bereits wieder entfernt, aber auf jeden Fall wegoptimiert.

[Popov]

Wo wir dabei sind, warum über ListView1MouseUp() und ListView1.GetItemAt(X, Y) ?

Da gibt es doch bessere Möglichkeiten, z. B. OnClick oder OnDblClick:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
begin
  with ListView1 do
  begin
    ViewStyle := vsReport;
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Caption';
    NewColumn.Width := 150;
    for i := 1 to 10 do
    begin
      ListItem := Items.Add;
      ListItem.Caption := 'Caption #' + IntToStr(i);
    end;
  end;
end;

procedure Test(Item: TListItem; i: Integer);
begin
  ShowMessage(Format('i ist: %d; Caption: %s', [i, Item.Caption]));
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  if not (Sender is TListView) then Exit;

  with TListView(Sender) do
    Test(Selected, 4711);
end;

Und um das zu steigern, warum Werte in einer Parallel-StringList? Warum nicht als Bagage an ListView?

Delphi-Quellcode:

type
  TMeineDaten = class
    Str: String;
    Int: Integer;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  MeineDaten: TMeineDaten;
begin
  with ListView1 do
  begin
    ViewStyle := vsReport;
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Caption';
    NewColumn.Width := 150;

    for i := 1 to 10 do
    begin
      MeineDaten := TMeineDaten.Create;
      MeineDaten.Str := '_Abc';
      MeineDaten.Int := 123;

      ListItem := Items.Add;
      ListItem.Caption := 'Caption #' + IntToStr(i);
      ListItem.Data := MeineDaten;
    end;
  end;
end;

procedure Test(Item: TListItem; i: Integer; Daten: TMeineDaten);
begin
  ShowMessage(Format('i ist: %d; Caption: %s', [i, Item.Caption]));

  ShowMessage(Format('Daten aus Bagage: %s und %d', [Daten.Str, Daten.Int]));
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  if not (Sender is TListView) then Exit;

  with TListView(Sender) do
  begin
    Test(Selected, 4711, TMeineDaten(Selected.Data));
  end;
end;

//WICHTIG: bei löschen, der Items muss das Objekt vorher freigegeben werden!!!

[d7user1]

Zitat:

Wo wir dabei sind, warum über ListView1MouseUp() und ListView1.GetItemAt(X, Y) ?

das mache ich so weil ich in der listview auf eine CheckBox klicke und der code nur ausgeführt werden soll wenn ich diese eben klicke.

ich habe dein beispiel mit OnClick mal ausprobiert und es funktioniert. mein code macht nichts anderes aber es funktioniert nicht.

ich glaube das liegt daran dass ich mich im OnMouseUp-Event befinde. aber wenn ich tatsächlich auf OnClick umsteige, wie komme ich an den klick auf die checkbox dran?

---

ich habe das jetzt mal geändert:
es wird nicht mehr geprüft ob ich auf eine checkbox klicke und und und.
sobald ich das fenster mit der listview bestätige um den prozess danach zu starten rufe ich folgendes auf:

Delphi-Quellcode:

 for i := 0 to WerteListe.Count - 1 do
  begin
   for j := 0 to ListView1.Items.Count - 1 do
    begin
     if (not ListView1.Items[j].Checked) and ItemGefunden(ListView1.Items[j], i) then
      begin
       break;
      end;
    end;
  end;

selbst bei einer sortierten liste nach klick auf eine column wird so genau der string aus der stringlist entfernt welcher in der listview nicht checked ist.

aber warum das nicht in OnMouseUp nicht funktioniert sondern nur mit showmessage ist mir ein großes rätsel.

[Popov]

Delphi-Quellcode:

procedure Test(Item: TListItem; i: Integer; Daten: TMeineDaten);
const
  Schwadawum: array[Boolean] of String = ('nicht gesetzt.', 'gesetzt');
begin
  //ShowMessage(Format('i ist: %d; Caption: %s', [i, Item.Caption]));

  //ShowMessage(Format('Daten aus Bagage: %s und %d', [Daten.Str, Daten.Int]));

  ShowMessage(Format('Die Checkbox ist %s', [Schwadawum[Item.Checked]]));
end;

EDIT:

Delphi-Quellcode:

   for j := 0 to ListView1.Items.Count - 1 do
    begin
     if (not ListView1.Items[j].Checked) and ItemGefunden(ListView1.Items[j], i) then

Warum gehst du alle Items durch. Du hast doch das eine Item, das du angeklickt hast, doch geschickt. Du mußt nur das abfragen.

[d7user1]

es tut mir leid dass ich kein beispiel posten wollte und das was ich gepostet habe schwachsinn zu sein scheint.

ich werde mich mal einlesen ob bei OnMouseUp irgendwelchen speziellen messages gepostet werden und ob da was geblockt hat.

nur noch eine sache zur bagage:
die daten liegen in einer externen stringlist da ich diese stringlist noch an anderer stelle sehr häufig brauche.

[Popov]

Doppelte Pflege ist niemals gut.

NACHTRAG:

OnMouseUp ist für das was du vorhast nicht das optimale Ereignis, es gibt bessere. GetItemAt bietet zwar die Möglichkeit, aber dafür ist es nicht gedacht. Wenn dir ein OnDblClick nicht passt, es gibt noch OnClick. Wie gesagt, das ListItem auf das du geklickt hast kannst du auch über Selected ermitteln, statt mit GetItemAt. Das eine sagt welches ListItem aktuell ausgewählt ist (bei MultiSelected = False, sonst ist es das Erste), das andere über welchem ListItem sich gerade die Maus befindet.

Guck dir mal die Ereignisse mal der Reihe mal durch.

[d7user1]

Warum gehst du alle Items durch. Du hast doch das eine Item, das du angeklickt hast, doch geschickt. Du mußt nur das abfragen. diese for-schleife befindet sich in einem ButtonOnClick. ich frage ganz zum schluss ab welche items checked sind und welche nicht.

zur bagage nochmal:
kann es sein dass ich mir diese doppelte for-schleife zum finden eines items und dem passendem stringlist-eintrag mit dem bagage sparen kann da die daten direkt am item hängen?