StringGrid nach doppelten Einträgen durchsuchen

[Micha]

Ich hoffe mal mir kann bei meinem Problem wer weiterhelfen, bin leider noch net so fit in Delphi.

Ich lade eine Excel-Tabelle in ein StringGrid und möchte mir dann in einer Listbox die Werte ausgeben, die in einer bestimmten Spalte mehrfach vorkommen.

Wie ich nach einem best. String suche hab ich mir hier im Forum schon zusammengesucht:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var suchtext:string;
    r,c : integer;
    gefunden:boolean;
begin
   gefunden:=False;
   suchtext:=edit1.Text;
    if trim(suchtext) <> '' then 
     begin
      For r:=0 to StringGrid1.RowCount-1 do
       For c:=0 to StringGrid1.ColCount-1 do
        If (AnsiPos(LowerCase(suchtext),LowerCase(StringGrid1.Cells[c,r])) <> 0) then
         begin 
          gefunden:=True;
          zeile:=r+1;
           ShowMessage(inttostr(r)); 
           break; 
         end; 
      if not gefunden then MessageDlg('" '+suchtext+'" wurde nicht gefunden', mtInformation, [mbOK],0); 
     end; 
end;

Aber leider weiß ich nicht, wie ich mir die Schleife bauen soll, damit er mir die ausgibt, die mehrfach enthalten sind.

Ich hoffe, mir kann jemand weiterhelfen.

Vielen Dank im Voraus.

[Niko]

Du könntest alle Zellen der Spalte durchgehen, jeweils den Wert lesen und nach diesem suchen. Dabei darfst du dann nur nicht abbrechen wenn der String das erste mal gefunden wird, sondern musst stattdessen die Anzahl der Fundstellen zählen - ist die größer 1 kommt der String merfach vor und du überträgst ihn in deine Listbox.

[Micha]

ja, des wär eigentlich genau des. *g*

Aber ich komm da net ganz zurecht. Ich weiß einfach net, wie ich die Schleife dazu bauen soll.

[Niko]

Sollte in etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);

  function SearchString(Column: Integer; Str: String): Integer;
  // gibt die Anzahl der Fundstellen von Str in der Spalte Column zurück
  var
    r: Integer;
  begin
    Result := 0;
    if Trim(Str) <> '' then
    begin
      for r := 0 to StringGrid1.RowCount - 1 do
        if (AnsiPos(LowerCase(Str), LowerCase(StringGrid1.Cells[Column, r])) <> 0) then
          Inc(Result);
    end;
  end;

const
  Column = 1;  // Spalte, in der gesucht werden soll
var
  r: Integer;
begin
  for r := 0 to StringGrid1.RowCount - 1 do
  begin
    if SearchString(Column, StringGrid1.Cells[Column, r]) > 1 then
      ListBox1.Items.Add(StringGrid1.Cells[Column, r]);
  end;
end;

[sakura]

@Micha: Um wieviele Daten handelt es sich hier eigentlich? Mehrere tausend Zellen oder, sagen wir mal, weniger als 5000?

...:cat:...

[Micha]

Hey, klasse Niko funktioniert einwandfrei. DANKESCHÖÖÖN

Jetz muss ich mir des Ding aber erstmal anschauen, dass ich da auch durchsteig.

@sakura: sind ca. 3000 Zeilen

[sakura]

Zitat:

Zitat von Micha

@sakura: sind ca. 3000 Zeilen

Dann gib mir mal ein bisschen Zeit und ich schreibe Dir eine Unit, welche das ganze auf Geschwindigkeit auslegt (ich versuche es zumindest :))

...:cat:...

P.S.: Ich sehe gerade, daß Du es spaltenweise machst, dann sollte es schnell genug sein ;) Vergiss es, zumindest für Dein Problem, ich schreibe es mal generell ;)

[Micha]

Wow, stark, danke Sakura

[Micha]

Eine Frage hab ich noch:

Delphi-Quellcode:

if (AnsiPos(LowerCase(Str), LowerCase(StringGrid1.Cells[Column, r])) <> 0) then
          Inc(Result);

Wenn ich zwei Datensätze habe "AB" und "ABCDE" gibt er mir die, auf Grund von AnsiPos ja auch als doppelt aus.
Das möchte ich aber nicht. Ich möchte wirklich die raussuchen, die wirklich identisch sind.

Habt ihr da nochmal ne Lösung für mich?

[ibp]

ja, mit einem direkten vergleich, ohne die pos-funktion...

Delphi-Quellcode:

if LowerCase(Str)=LowerCase(StringGrid1.Cells[Column, r]) then
  Inc(Result);