AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Strings in ListView vergleichen

Ein Thema von Onkelrossie · begonnen am 13. Aug 2006 · letzter Beitrag vom 17. Aug 2006
Antwort Antwort
Seite 1 von 2  1 2   
Onkelrossie

Registriert seit: 7. Aug 2006
43 Beiträge
 
Delphi 7 Architect
 
#1

Strings in ListView vergleichen

  Alt 13. Aug 2006, 02:27
Abend alle zusammen,
ich habe gerade eine Denkblockade.
Ich möchte aus einem ListView die Strings einer Spalte vergleichen und den Spaltenindex der Position
wo ein sich von dem vorherigen Sting unterscheidender neuer String anfängt in eine StringList adden.
Das klappt auch schon ganz gut bis zum ersten "Unterschied" aber ich weiss wie gesagt gerade nicht weiter
wie ich ab dem ersten "Unterschied" dann weiter vergleiche und in die StringList adde.
Hier mal Auszug wo ich gerade bin.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  for i := 0 to ListView1.Items.Count - 1 do
  if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then
  break;
  sl.Add(IntToStr(i+1));
end;
Vieleicht findet sich ja noch zu so später Stunde jemand der mir schnell weiter helfen kann.


HG
Onkelrossie
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Strings in ListView vergleichen

  Alt 13. Aug 2006, 09:19
Guten Morgen,

vielleicht musst du noch eine Kleinigkeit anpassen, aber vom Prinzip her sollte es so funktionieren:

Delphi-Quellcode:
procedure ExtractGroups(li: TListItems; index: Word; s: TStrings);
var
  i: Integer;
  sGroup, sTest: String;
begin
  s.Clear;
  sGroup := '';
  for i := 0 to Pred(li.Count) do
  begin
    sTest := IfThen(index = 0, li[i].Caption, li[i].SubItems[Pred(index)]);
    if (i = 0) or (sTest <> sGroup) then
    begin
      sGroup := sTest;
      s.Values[sGroup] := IntToStr(i);
    end;
  end;
end;

procedure TDemoForm.GroupsButtonClick(Sender: TObject);
begin
  ExtractGroups(ListView.Items, ValueListEditor.Strings);
end;
Grüße vom marabu
  Mit Zitat antworten Zitat
Sascha L

Registriert seit: 4. Jun 2004
Ort: Hamm
390 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Strings in ListView vergleichen

  Alt 13. Aug 2006, 10:32
Hallo onkelrossie,

Ich frage mich, wieso du ein break nutzt? Damit fliegst du komplett aus der for-schleife raus. Du willst aber doch weiterhin vergleichen. Warum machst du es nicht so:

Delphi-Quellcode:
1
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  for i := 0 to ListView1.Items.Count - 1 do begin
    if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then
      sl.Add(IntToStr(i+1));
  end;
end;
Sascha
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Strings in ListView vergleichen

  Alt 13. Aug 2006, 10:57
Hallo marabu!

Zitat von marabu:
sTest := IfThen(index = 0, li[i].Caption, li[i].SubItems[Pred(index)]);
Kommt es hier nicht zu einer Bereichsverletzung, falls index den Wert 0 enthält? Vor dem Aufruf der Funktion IfThen werden doch immer alle Argumente ausgewertet.

Gruß Hawkeye
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#5

Re: Strings in ListView vergleichen

  Alt 13. Aug 2006, 17:17
Hallo Hawkeye,

du machst deinem nick alle Ehre - natürlich hast du Recht. Es sind sogar noch weitere Fehler vorhanden, da ich die Prozedur recht kurzentschlossen beim Posten noch verallgemeinert habe: der Hinweis auf die Unit StrUtils (wegen IfThen) fehlt und im Aufrufbeispiel habe ich den Parameter index gar nicht bedient. Hier der korrigierte Code:

Delphi-Quellcode:
procedure ExtractGroups(li: TListItems; index: Word; s: TStrings);
var
  i: Integer;
  sGroup, sTest: String;
begin
  s.Clear;
  sGroup := '';
  for i := 0 to Pred(li.Count) do
  begin
    if index = 0
      then sTest := li[i].Caption
      else sTest := li[i].SubItems[Pred(index)];
    if (i = 0) or (sTest <> sGroup) then
    begin
      sGroup := sTest;
      s.Values[sGroup] := IntToStr(i);
    end;
  end;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  ExtractGroups(ListView.Items, 3, ValueListEditor.Strings);
end;
Aber immernoch geht es nur ums Prinzip - Prüfungen fehlen und eine implizite Voraussetzung sind sortierte Spaltenwerte.

Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat
Onkelrossie

Registriert seit: 7. Aug 2006
43 Beiträge
 
Delphi 7 Architect
 
#6

Re: Strings in ListView vergleichen

  Alt 14. Aug 2006, 18:09
Hallo,
danke erstmal für deine Vorschläge, Marabu! Ich werde sie gleich einmal testen und dann Antwort geben.

Zitat von Sascha L:
Hallo onkelrossie,
Ich frage mich, wieso du ein break nutzt? Damit fliegst du komplett aus der for-schleife raus. Du willst aber doch weiterhin vergleichen. Warum machst du es nicht so:

Delphi-Quellcode:
1
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  for i := 0 to ListView1.Items.Count - 1 do begin
    if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then //Exception
      sl.Add(IntToStr(i+1));
  end;
end;
Das hatte ich auch schon versucht aber ich bekam dann eine Exception in der Zeile die ich oben markiert habe, da der Listenindex übersprungen wird. Wie gesagt es war auch schon spät in der Nacht und ich konnte nicht mehr klar Denken. Wenn ich den Code jetzt so sehe dann ist mir klar das es ListView1.Items.Count - 2 heisen muss da ich ja auch immer beim vergleichen eine zeile dazu addiere. Ich habs nun auf ListView1.Items.Count - 2 geändert und schon gings.

HG
Onkelrossie
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#7

Re: Strings in ListView vergleichen

  Alt 14. Aug 2006, 19:25
  for i := 0 to ListView1.Items.Count - 1 do und
if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then //Exception passen nicht zusammen, denn im letzten durchlauf greifst du so auf
ListView1.Items[ListView1.Items.Count].SubItems[2] zu, was zu der Exception führt...mach die schleife bis -2 dann sollte es gehen

Gruß Frank
  Mit Zitat antworten Zitat
C.Schoch

Registriert seit: 2. Jan 2006
Ort: Wüstenrot
235 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Strings in ListView vergleichen

  Alt 14. Aug 2006, 19:27
Hi,
So vergleichst du aber nur den vorherigen String mit dem nächsten und nicht jeden String mit jedem in der Liste.

@Frank
Steht doch schon im vorherigen Post.
Tschau Christian
Das System hofft auf Besserung
[Siemens]
  Mit Zitat antworten Zitat
Onkelrossie

Registriert seit: 7. Aug 2006
43 Beiträge
 
Delphi 7 Architect
 
#9

Re: Strings in ListView vergleichen

  Alt 15. Aug 2006, 04:18
Morgen,
@C.Schock, genau das wollte ich auch nur.
@_frank_, das habe ich doch schon geschrieben.
@Marabu, dein Code funktionierte bei mir nach ein paar änderungen auch wunderbar.

Danke nochmal an alle die geholfen haben.


HG
Onkelrossie
  Mit Zitat antworten Zitat
Onkelrossie

Registriert seit: 7. Aug 2006
43 Beiträge
 
Delphi 7 Architect
 
#10

Re: Strings in ListView vergleichen

  Alt 16. Aug 2006, 00:17
Abend zusammen,
ich stehe schon wieder vor einem Problem.
ich habe nun wie oben beschrieben ein ListView in dem ich eine Spalte auf Unterschiede durchlaufe bzw. den Index wo ein neuer Wert anfängt in eine StringList speichere. Jetzt wollte ich die Spalte paralell daneben auf Gleichheit prüfen.

z.B.
Delphi-Quellcode:
SubItem1 | SubItem2 //Die Spalte "SubItem2" Definiert die Gruppe
---------|---------
gleich | a }
gleich | a } Gruppe1(SubItem1 = vollständig)
gleich | a }
         |
gleich | b }
ungleich | b } Gruppe2(SubItem1 <> vollständig)
ungleich | b }
SubItem2 durchlaufe ich ja schon wie beschrieben mit diesem Code womit ich den Index bekomme wo eine neue Gruppe anfängt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  for i := 0 to ListView1.Items.Count - 2 do
  if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then
  sl.Add(IntToStr(i+1));
end;
Jetzt wollte ich, das auf Basis dieses Codes SubItem1 durchlaufen wird und den Index des letzten Items der jeweiligen Gruppe zurrück gibt, deren Items den Wert "gleich" haben. Solange in einer Gruppe noch ein wert namens "Ungleich" ist soll garnix passieren. Bis jetzt habe ich es wieder so weit hin bekommen das es mit der ersten Gruppe klappt. Aber danach scheint irgendwo was falsch zu laufen in den For Schleifen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i, idx, c :integer;
  sl, slok: TStringList;
begin
  sl:= TStringList.Create;
  for i := 0 to ListView1.Items.Count - 2 do
  if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then
  sl.Add(IntToStr(i+1));
  for idx := 0 to sl.Count - 2 do
  begin
    for I := StrToInt(sl.Strings[idx]) to StrToInt(sl.Strings[idx + 1]) do
    begin
      if Listview1.Items[i].SubItems[2] = 'gleichthen c := c + 1; //hier wusste ich nicht mehr so richtig wie ich weiter
      if c = StrToInt(sl.Strings[idx + 1]) then slok.add(sl.Strings[idx + 1]; //machen sollte und dabei ist das raus gekomen
    end;
  end;
end;
Ich hoffe ich konnte mein Problem verdeutlichen und es findet sich jemand der mir helfen kann.
Danke schonmal im vorraus an alle die sich die Zeit nehmen eine Lösung zu finden.


HG
Onkelrossie
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:07 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz