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

[Der schöne Günther]

Zitat von d7user1:

ein beispiel kann ich leider nicht anhängen da mein code an vielen ecken und enden mit vielen weiteren dingen verknüpft ist.

es ist lediglich eine stringlist mit ein paar werten und dieselben werte sind in der listview grafisch dargestellt.

Die Situation wie du sie schilderst lässt viel zu viel Raum für Interpretationen und Abweichungen ("Davor dann noch ein if" ...).

Ich weiß nicht, ob ich da auf einem zu hohen Ross sitze. Aber ich finde, man sollte sich die drei Minuten Mühe machen, ein Minimalbeispiel für die Leute, die das Problem finden sollen, zu erstellen.

[himitsu]

Zitat:

 WerteListe.Strings[i][1]

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


Wieso baut eigentlich "WertGefunden" den Wert um, wo es doch angeblich nur sucht?
Entweder es gibt noch sowas wie "WertUmschalten", welched danach den Wert ändert,
oder man gibt der "Gefunden"-Funktion einen entsprechenden Namen.


Manchmal fragt man sich, warum keiner auf die blöde Idee kommt den Debugger auszuprobieren.
Und eventuell auch mal die Index- und Bereichsprüfung in den Projektoptionen zu aktivieren.

[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.